Décalage d'une demi seconde
Résolu
mic6259
Messages postés
371
Statut
Membre
-
DjiDji59430 Messages postés 4278 Date d'inscription Statut Membre Dernière intervention -
DjiDji59430 Messages postés 4278 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je ne sais pas si c'est possible avec le tirage Aléa() de décaler d'une demi seconde, la cellule B2 par rapport a A2 puis C2 par rapport a B2, D2 par rapport a C2 et E2 a D2 a chaque tirage.
Possibilité en VBA, mais je ne sais pas comment le faire.
Pourriez-vous me trouver la solution suivant le pièce jointe.
Merci beaucoup
https://www.cjoint.com/c/KBhgFzEDcNl
Je ne sais pas si c'est possible avec le tirage Aléa() de décaler d'une demi seconde, la cellule B2 par rapport a A2 puis C2 par rapport a B2, D2 par rapport a C2 et E2 a D2 a chaque tirage.
Possibilité en VBA, mais je ne sais pas comment le faire.
Pourriez-vous me trouver la solution suivant le pièce jointe.
Merci beaucoup
https://www.cjoint.com/c/KBhgFzEDcNl
2 réponses
-
Bonjour
1) La feuille Alea est inutile dans tous les cas s'il s'agit bien d'obtenir des nombres entre 1 et 5
par formule il suffit d'utiliser ALEA.ENTRE.BORNES en feuille Tirage
2) Pour un décalage entre l'affichage des nombres dans la feuille Tirage il faut pour chaque cellule faire le tirage aléatoire en VBA puis faire une pause avant de passer à la suivante
La macro à associer au bouton tirage pour faire ceci :Sub Macro1() Randomize 'initialise le générateur de nombres aléatoires Range("A2:E2").ClearContents 'efface la plage For n = 1 To 5 ' boucle sur les 5 colonnes Cells(2, n) = Int(Rnd * 5) + 1 ' inscrit un nombre aléatoire entre 1 et 5 dans la cellule en ligne 2 Application.Wait Time + TimeSerial(0, 0, 1) 'Pause de 1 seconde Next End Sub
Cdlmnt
Via
-
Bonjour à tous,
je n'ai pas bien compris ton exemple
Une suggestion .....
https://www.cjoint.com/c/KBhk70Br23S
Crdlmt
