Discussion :

[sylvain62100]

Voici le code du timer:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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

mais il ne repart pas à 0 et ne s'arrête pas après pression sur les boutons RAZ & Fin. De même, il n'attend pas la pression du bouton début pour commencer.

Merci de votre aide.