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
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
Dernière édition: