Discussion :

[ayhemrick]

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.

[ONTAYG]

Bonjour

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

ONTAYG

[ayhemrick]

merci beaucoup!

[jurassic pork]

Hello,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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