Tirage aléatoire sans doublons
RE Bonjour,
Pour que ce soit totalement aléatoire (chipotage de collègue
Malgré mes recherches, je ne trouve rien sur internet...
L'idéal serait de cliquer sur le bouton pour lancer la macro, puis elle s'arrête au bout de 10 secondes par exemple. Est-ce que ce serait possible ?
J’espère ne pas en demander de trop
Bonjour
Au lieu d'un do loop avec variable interrupteur, une boucle définie For to next où le To est aleatoire :
Nbtour = INT(RND*20) + 10
FOR I=1 TO NBTOUR
Cela donne une boucle aleatoire entre 10 et 29, un minimum de 10 + alea entre 0 et 19.
Ne pas oublier de mettre Randomize en debut de code.
@ bientôt
LouReeD
Je n'arrive même pas à le mettre en place dans le fichier
Bonsoir,
Sub LouReeD()
Randomize
nbtour = Int(Rnd * 20) + 10
For i = 1 To nbtour
ThisWorkbook.RefreshAll
Next i
' juste pour afficher combien de tour ont été fait
Range("I1") = nbtour
End Sub@ bientôt
LouReeD
D'une facilité déconcertante...
Bon, j'ai rajouté un msgbox, car ça je sais faire !
+1 pour toi !
Merci encore,
A bientôt
+1 pour vous et vos remerciements !
@ bientôt
LouReeD
Bonjour à tous,
Pour la communauté, je viens de tomber sur cette vidéo de notre administrateur de ce beau forum... alors je fais de la PUB
Bien expliqué
Bonsoir,
oui !
De mon coté j'ai mis le "+10" en dehors de la parenthèse de INT car 10 est déjà entier, mais cela ne change rien !
@ bientôt
LouReeD
Bonjour …
Les aléas du jour n’est-ce pas LouReed
Une de mes façons de faire…
Bonsoir Ordonc !
UNE de vos façons ? Et bien alors j'aimerais en voir une autre car là je n'ai pas tout compris !
@ bientôt
LouReeD
Bonsoir,
et donc Ordonc est ce la plus simple ?
@ bientôt
LouReeD