Décalage d'une demi seconde

Résolu/Fermé
mic6259 Messages postés 342 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 11 décembre 2023 - 7 févr. 2021 à 07:40
DjiDji59430 Messages postés 4042 Date d'inscription samedi 19 avril 2008 Statut Membre Dernière intervention 6 mai 2024 - 7 févr. 2021 à 18:02
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

2 réponses

via55 Messages postés 14408 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 5 mai 2024 2 704
7 févr. 2021 à 15:06
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
1
mic6259 Messages postés 342 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 11 décembre 2023 1
7 févr. 2021 à 17:49
Super merci beaucoup
Cordialement
0
DjiDji59430 Messages postés 4042 Date d'inscription samedi 19 avril 2008 Statut Membre Dernière intervention 6 mai 2024 647
7 févr. 2021 à 18:02
Effectivement, je n'avais pas bien compris .....
0
DjiDji59430 Messages postés 4042 Date d'inscription samedi 19 avril 2008 Statut Membre Dernière intervention 6 mai 2024 647
7 févr. 2021 à 12:00
Bonjour à tous,

je n'ai pas bien compris ton exemple
Une suggestion .....

https://www.cjoint.com/c/KBhk70Br23S

Crdlmt
0