Décalage d'une demi seconde Résolu/Fermé

Question

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

DjiDji59430 · Answer

Bonjour à tous,

je n'ai pas bien compris ton exemple
Une suggestion .....

https://www.cjoint.com/c/KBhk70Br23S

Crdlmt

via55 · Answer

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

Décalage d'une demi seconde

2 réponses

Discussions similaires