Nombres aléatoires différents VBA

Bonjour,
je cherche à sortir n nombres aléatoires tous différents les uns des autres avec vba,
Je sais le faire avec d'autres langages mais la notion de liste dans vba ne le permet j'ai l'impression.

Bonjour

https://excel.developpez.com/faq/?pa...aleurAleatoire

ONTAYG

merci beaucoup!

Hello,

Citation:

---

Envoyé par ayhemrick

Je sais le faire avec d'autres langages mais la notion de liste dans vba ne le permet j'ai l'impression.

---

Tu peux utiliser une collection en VBA.
Voici un exemple qui remplit une collection avec les nombres à tirer et le tirage unique d'une partie des nombres de la collection :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub TirageAuSortUnique() Dim listeNombres As New Collection Dim x, nbALea As Integer Randomize ' remplissage des nombres For x = 1 To 99 listeNombres.Add (x) Next ' tirage aléatoire de 50 nombres For x = 1 To 50 nbALea = Int(listeNombres.Count * Rnd) + 1 Debug.Print listeNombres.Item(nbALea) listeNombres.Remove (nbALea) Next End Sub

---

[EDIT] L' autre avantage avec une collection c'est que l'on peut tirer autre chose que des nombres.

Ami calmant, J.P