Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

verrouiller une boucle "horloge"

C

chris-57

Guest
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 ?
 
M

myDearFriend

Guest
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…