Creer une liste VBA avec EXCEL

[Membre supprimé 1]

Bonjour.
Je souhaite créer une liste de 6 nombres aléatoires que je souhaite placer dans une liste vba-excel. A chaque nouveau nombre aléatoire, je teste si il est déja rencontré avant, pour simuler un loto. Comment créer une telle liste ? merci, eric.

 

[zeb]

Salut,

Alcyon, quel joli nom ... d'oiseau

En VB, foin de structure compliquée. Ça reste très basique. Par contre, tu peux remplir un tableau :

Dim tableau_loto(1, 6) As Integer

 

[Membre supprimé 1]

Bonsoir Zeb.
Merci pour ta réponse.
Je pensais adjoindre ceci:
Sub Ellipse1_Clic()





For k = 1 To 6

Randomize
Mavaleur = Int(Rnd * 49) + 1

Cells(k, 1).Select
ActiveCell.Value = Mavaleur

Next
End Sub

Comment utilise-t-on ton tableau ? je ne suis pas fortiche en VBA...
Merci,
eric.
Ps: Alcyon est aussi un avion français.

 

[zeb]

Attention, tu dois présenter ton code entre les balises

, conformément au règlement que je t'invite à lire.

Ton résultat, tu veux le mettre dans un tableau VB ou dans une feuille Excel ? (spa pareil ! :o)

______________
Alcyons, c'est aussi un AC ! Le MS733, tu as volé avec ?

 

[Membre supprimé 1]

Ah oui merci...désolé.
Pour le Ms733, je suis laché dessus, oui.
Pour le code, que dois-je écrire alors ?
Merci ZEb.
eric.

 

[zeb]

Salut,

Ben pourquoi ton pseudo a-t-il disparu ?

Modifie ton message pour le rendre conforme au règlement. Je ne lis jamais un code mal présenté !
Bon, parfois, il faut savoir faire des exceptions. Genre en plein IMC, il faut se dire qu'il faut quand même ramener l'appareil.

Il te faut pas moins de trois boucles imbriquées. La première est une boucle For de 1 à 6. Tu l'as. La seconde est une boucle while dont on ne sortira que si le numéro à ajouter n'existe pas encore. La troisième est une boucle For qui va de 1 à k où k est la variable d'itération de la première boucle.

As-tu tout compris ?