chiffres aleatoires

benj1989 · 27 Mars 2007

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 · 27 Mars 2007

Re : chiffres aleatoires

bonjour benj1989

teste:

Code:

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 · 28 Mars 2007

Re : chiffres aleatoires

merci, ca marche à merveille!

chiffres aleatoires

benj1989

XLDnaute Nouveau

pierrejean

XLDnaute Barbatruc

benj1989

XLDnaute Nouveau

Discussions similaires