Bonsoir à toutes et à tous!
Je bricole un peu et vient de découvrir la fonction rnd.
Je souhaite réaliser un lancer de dé, ca fonctionne bien mais les valeurs ne sont pas des nombres entiers:
Pouvez-vous m'aider ?
Bonne soirée et merci!
Je bricole un peu et vient de découvrir la fonction rnd.
Je souhaite réaliser un lancer de dé, ca fonctionne bien mais les valeurs ne sont pas des nombres entiers:
Sub random_myself()
Dim i As Integer
Randomize Timer
For i = 1 To 500
ActiveSheet.Cells(i, 1) = Int(5 + 1) * Rnd + 1
Next i
End Sub
Pouvez-vous m'aider ?
Bonne soirée et merci!