Bonjour à tous !
Alors voilà mon problème, j'aimerai créer un timer (minuteur et non un chronomètre)
Mon timer marche mais je n'arrive pas à insérer un bouton pause et un bouton réinitialiser à 10min
Si quelqu'un peut m'aider , ce serait très gentil.
Dim ChronoEnCours As Boolean, Pause As Boolean
Dim Depart As Double, Temps As Double
Sub CommandButton1_Click()
' Bouton Play
If ChronoEnCours = True Then Exit Sub
ChronoEnCours = True
Depart = [now()]
Range("W31") = "00:10:00"
Timer
End Sub
Sub CommandButton2_Click()
' Bouton stop
If ChronoEnCours = True Then Exit Sub
ChronoEnCours = True
Depart = [now()]
Range("W31") = "00:10:00"
Timer
ChronoEnCours = False
Pause = False
Range("W31") = "00:10:00"
End Sub
Sub Timer()
On Error Resume Next
Dim xRng As Range
Set xRng = Application.Sheets("Feuil2").Range("W31")
xRng.Value = xRng.Value - TimeSerial(0, 0, 1)
If xRng.Value <= 0 Then
xRng.Value = TimeSerial(0, 10, 0)
'Exit Sub
End If
gCount = Now + TimeValue("00:00:01")
Application.OnTime gCount, "Timer"
End Sub