Private Fin_Chrono As Long
Dim Pause As Boolean
Dim Depart As Double
Dim Temps As Double
Private Sub Demarre_Click()
Dim DerL&
DerL = Feuil1.Range("B65000").End(xlUp).Row + 1
If Me.Demarre.Caption = "Temps Intermédiaire" Then
Pause = True
Me.Demarre.Caption = "Reprise"
Exit Sub
ElseIf Me.Demarre.Caption = "Reprise" Then
Pause = False
Me.Demarre.Caption = "Temps Intermédiaire"
Depart = [Now()] - Temps
Exit Sub
Else
Me.Demarre.Caption = "Temps Intermédiaire"
Pause = False
Fin_Chrono = 0
Depart = [Now()]
End If
Do While Fin_Chrono = 0
If Pause = False Then
Temps = [Now()] - Depart
End If
If CheckBox1 = True Then
Label1.Caption = WorksheetFunction.Text(Temps, "hh:mm:ss.00")
Else
Label1.Caption = WorksheetFunction.Text(Temps, "hh:mm:ss.00")
End If
DoEvents
Loop
Feuil1.Cells(DerL, 2) = WorksheetFunction.Text(Temps, "hh:mm:ss.00")
End Sub
Private Sub Arret_Click()
If Fin_Chrono = 0 Then
Fin_Chrono = 1
CheckBox1 = False
Me.Demarre.Caption = "Top Départ !"
ElseIf Fin_Chrono = 1 Then
Label1.Caption = "00:00:00"
End If
End Sub