C
carlos
Guest
Bonjour
G le message suivant sur cette macro : erreur 438
Sub aleatoire()
Dim cell As Range
For Each cell In Range('a2:a11')
If cell = Empty Then cell = Application.WorksheetFunction.rand()
Next
End Sub
En faite je souhaite quand cell est vide coller un nombre aleatoire compris entre 0 et 10
Merci
G le message suivant sur cette macro : erreur 438
Sub aleatoire()
Dim cell As Range
For Each cell In Range('a2:a11')
If cell = Empty Then cell = Application.WorksheetFunction.rand()
Next
End Sub
En faite je souhaite quand cell est vide coller un nombre aleatoire compris entre 0 et 10
Merci