pascal_tie
XLDnaute Nouveau
Bonjour,
Je souhaite utiliser ce code pour un chrono, or il se bloque à ce niveau " Lbl_CHRONO.Caption = Format(CDate(DateAdd("S", 1, CDate(Lbl_CHRONO.Caption))), "HH:NN:SS")"
Pourriez vous me donner une solution.
Option Explicit
Dim bPause As Boolean 'Pause
Dim bStop As Boolean ' Fin
Private Sub Cmd_Go_Click()
'-* Déclaration
Dim dDepart As Double
Dim dValue As Double
'-* init
bStop = False
bPause = False
Encore:
dValue = 1
dDepart = Timer
'-* Boucle
Do While Timer < dDepart + dValue
If (bPause = True) Or (bStop = True) Then GoTo Fin
DoEvents
Loop
'-* Mise à jour du label
Lbl_CHRONO.Caption = Format(CDate(DateAdd("S", 1, CDate(Lbl_CHRONO.Caption))), "HH:NN:SS")
GoTo Encore
Fin:
If bStop Then Lbl_CHRONO.Caption = "00:00:00"
End Sub
Private Sub Cmd_Pause_Click()
'-* Init
bPause = True
End Sub
Private Sub Cmd_stop_Click()
'-* Fin du chrono et init
bStop = True
End Sub
Merci
A+
Pascal
Je souhaite utiliser ce code pour un chrono, or il se bloque à ce niveau " Lbl_CHRONO.Caption = Format(CDate(DateAdd("S", 1, CDate(Lbl_CHRONO.Caption))), "HH:NN:SS")"
Pourriez vous me donner une solution.
Option Explicit
Dim bPause As Boolean 'Pause
Dim bStop As Boolean ' Fin
Private Sub Cmd_Go_Click()
'-* Déclaration
Dim dDepart As Double
Dim dValue As Double
'-* init
bStop = False
bPause = False
Encore:
dValue = 1
dDepart = Timer
'-* Boucle
Do While Timer < dDepart + dValue
If (bPause = True) Or (bStop = True) Then GoTo Fin
DoEvents
Loop
'-* Mise à jour du label
Lbl_CHRONO.Caption = Format(CDate(DateAdd("S", 1, CDate(Lbl_CHRONO.Caption))), "HH:NN:SS")
GoTo Encore
Fin:
If bStop Then Lbl_CHRONO.Caption = "00:00:00"
End Sub
Private Sub Cmd_Pause_Click()
'-* Init
bPause = True
End Sub
Private Sub Cmd_stop_Click()
'-* Fin du chrono et init
bStop = True
End Sub
Merci
A+
Pascal