[XL-2007] Timer à terminer

Option Explicit Public Lheure As Date Public Dheure As Date Sub ArretTimer() On Error Resume Next Application.OnTime Lheure, "ExecutionTimer", , False End Sub Sub ExecutionTimer() Attente.Label1.Caption = Format(Dheure - Now(), "hh:mm:ss") If Dheure - Now() > 0 Then Lheure = Now() + TimeSerial(0, 0, 1) Application.OnTime Lheure, "ExecutionTimer" Else ArretTimer Attente.Label1.Caption = "stop !" End If End Sub

Je ne vois pas comment ton compteur peut marcher dans la mesure où ta variable Dheure n'est actualisée nulle part.

Avec le code suivant, l'arrêt devrait marcher.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Public Lheure As Date
Public Dheure As Date
Public Marche as Integer
 
Sub ArretTimer()
   Marche = 0
   Attente.Label1.Caption = "Arret !"
End Sub
 
Sub ExecutionTimer()
    Marche = 1
    Call AfficheTimer()
End Sub
 
Sub AfficheTimer()
 
   If Marche = 0 Then Exit Sub
 
   Attente.Label1.Caption = Format(Dheure - Now(), "hh:mm:ss")
 
   If Dheure - Now() > 0 Then
      Lheure = Now() + TimeSerial(0, 0, 1)
      Application.OnTime Lheure, "ExecutionTimer"
 
   Else
      ArretTimer
      Attente.Label1.Caption = "stop !"
   End If
 
End Sub