Dim T As New ClasseTimer
Public gblnArret As Boolean, x As Boolean
Private Sub UserForm_Initialize()
Columns("C:C").ClearContents
End Sub
Private Sub cmdDepart_Click()
Range("c6") = "depart"
If x = True Then _
Range("c" & Rows.Count).End(xlUp)(2) = T1 / 86400
x = True
gblnArret = False: Beep
T.DemarreTimer
Do
DoEvents
T1 = T.ControleTimer / 1000
If gblnArret Then T1 = T.ArretTimer / 1000: Exit Do
Tbx1 = Right(T1, 3)
Tbx2 = Int(T1) - (Int(Int(T1) / 60) * 60)
tbx3 = Int(Int(T1) / 60) - (tbx4 * 60)
tbx4 = Int(Int(T1) / 3600)
Loop
End Sub