P
pierre123
Guest
Bonjour,
J'ai une macro pour faire un décomptage de temps (15 à 0 secondes)
Je souhaite faire fonctionner plusieurs compteurs de façon indépendante.
pour le moment, il faut attendre la fin du premier pour que la suite se lance.
Comment faire pour que 4 compteurs fonctionnent séparément?
Merci Pierre
Ci joint la macro:
Sub prison152()
Dim d As Single, i As Integer
Range("D6").Value = 15
d = Timer
For i = 15 To 1 Step -1
Do While Timer < d + 1
DoEvents
Loop
Range("D6").Value = Range("D6").Value - 1
d = Timer
Next i
End Sub
J'ai une macro pour faire un décomptage de temps (15 à 0 secondes)
Je souhaite faire fonctionner plusieurs compteurs de façon indépendante.
pour le moment, il faut attendre la fin du premier pour que la suite se lance.
Comment faire pour que 4 compteurs fonctionnent séparément?
Merci Pierre
Ci joint la macro:
Sub prison152()
Dim d As Single, i As Integer
Range("D6").Value = 15
d = Timer
For i = 15 To 1 Step -1
Do While Timer < d + 1
DoEvents
Loop
Range("D6").Value = Range("D6").Value - 1
d = Timer
Next i
End Sub