voici mon probleme je voudrais génère 6 chiffre de 1 a 50 et les insérais dans une listbox (lst1) cela devra se faire en appuyant sur une commande (cmd1) pas grave si il y as des doublons je regarderais sa par la suite moi même merci de répondre

merci :)

crere un bouton command
copie et cole ce code
debut du code
Private Sub Command1_Click()
'declare 6 variable entiere
dim n1 as integer
dim n2 as integer
dim n3 as integer
dim n4 as integer
dim n5 as integer
dim n6 as integer
' l'initialisation
Randomize
n1 = Int((1 * Rnd) * 50)
lst.additem n1
Randomize
n2 = Int((1 * Rnd) * 50)
lst.additem n2
Randomize
n3 = Int((1 * Rnd) * 50)
list.additem n3
 Randomize
n4 = Int((1 * Rnd) * 50)
lst.additem n4
Randomize
n5= Int((1 * Rnd) * 50)
lst.additem n5
Randomize
n6 = Int((1 * Rnd) * 50)
lst.additem n6
End Sub

fin du code

*N'OUBLIEZ PAS LE BOUTTON  RECHERCHER AU DESSUS AVANT DE POSTER

je ne doute pas que ton code soit mauvais il as même l aire bon mais il n apore rien par a port a celui de econs qui est plus cours ? dis moi si je me trompe

le code de econs est bon je l'avoue juste que a chaque fois on a les meme resultat

voila ces resultat dans lst

36
27
29
15
16
39

compil et dit moi si g me suis tromper

il suffirait d'un randomize avant le code de econs

en effet je n avais pas fais attention a cela
merci :)

Et j'ajouterai qu'il est absoluement inutile de mettr eun Randomize avant chaque appel à Rnd() !!! Un seul suffit ! Il est même inutile de le mettre dans le code du bouton lancant la boucle de Econs ! On le placera dans le Form_Load de la 1ere form du projet ou dans la Sub Main() (selon le cas) et cela sufira largement ! CR