verrouiller une boucle "horloge"

[chris-57]

Bonjour,

j'ai réalisé une petite horloge qui va me servir dans un gros programme de planification. J'ai utilisé une boucle simple qui est :

Do
[E2] = Hour(Time) & ":" & Minute(Time) & ":" & Second(Time)
HEUREvérifiée = [E2].Text
DoEvents
Loop Until [A5] = 1


Ce moyen me permet d'afficher l'heure en E2 tout en faisant défiler les secondes.
Seulement le fait de cliquer dans une case ou de faire une manip quelquonque arrête la boucle et cela même si A1 est différent de 1 !

Y a t'il un moyen de "verrouiller" cette boucle ?

 

[myDearFriend]

Bonsoir Chris, le Forum.


Le code suivant te donnera le même résultat sans interruption impromptue :

Dim Temps As Date '==> Déclaration au niveau module

Sub Horloge()
Temps = Now + TimeValue("00:00:01")
Application.OnTime Temps, "Horloge", , True
If Range("A5") = 1 Then ArretHorloge
Range("E2") = Time
End Sub

Sub ArretHorloge()
Application.OnTime Temps, "Horloge", , False
End Sub


Cordialement,
Didier_mDF

 

[chris-57]

ça fonctionne à merveille !!!

MERCI !!!!