Tirage nombres aléatoire VBA

[Eric]

Bonjour à tous les excelliens,

Après plusieurs tentatives restées vaines, je me permet de solliciter votre aide afin que la macro ci-dessous (tirage aléatoire) se répète - un nouveau tirage - à chaque fois que j'actionne le CommandBouton1. Merci à tous.

Private Sub CommandButton1_Click()
Dim cell As Range
For Each cell In Range('F1:F30')
Randomize
If cell = Empty Then cell = Int(50 * Rnd)
Next
End Sub

 

[ERIC S]

Bonjour

pourquoi faire le test cellule vide ?

Private Sub CommandButton1_Click()
Dim cell As Range
For Each cell In Range('F1:F30')
Randomize
cell = Int(50 * Rnd)
Next
End Sub

A+

 

[Eric]

Bonjour Eric S,
Je te remercie pour ton aide, cela fonctionne et je n'y avais pas pensé
Je te souhaite une bonne journée.
Eric