chiffres aleatoires

[benj1989]

Salut,

J'ai pu reconstruir un petit script pour avoir quelques nombres aleatoire..

Sub bingoa()
Randomize
Dim cellule As Range
For Each cellule In Range("B3:E5")
cellule = Int(Rnd * 49) + 1
Next cellule
End Sub


Mais, je n'arrive pas à éléiminer les doublons... est-ce que quelqu'un pourrait m'aider?

Merci bcp

 

[pierrejean]

Re : chiffres aleatoires

bonjour benj1989

teste:

Sub test()
Dim num As Collection
Set num = New Collection
While x < 12
Randomize
numero = Int(Rnd * 49) + 1
On Error Resume Next
num.Add numero, CStr(numero)
On Error GoTo 0
x = num.Count
Wend
n = 1
For Each cel In Range("B3:E5")
cel.Value = num(n)
n = n + 1
Next cel
End Sub

 

[benj1989]

Re : chiffres aleatoires

merci, ca marche à merveille!