1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
| Dim ok As Byte
Sub DemarreCalculTps()
ok = 1
Range("A1").Value = TimeValue("00:00:00")
Application.OnTime Now + TimeValue("00:00:01"), "mettre_a_jour"
End Sub
Sub mettre_a_jour()
If ok = 1 Then
Range("A1").Value = [A1] + TimeSerial(0, 0, 1)
Range("A1").NumberFormat = "hh:mm:ss"
Application.OnTime Now + TimeValue("00:00:01"), "mettre_a_jour"
ElseIf ok = 2 Then
Application.OnTime Now + TimeValue("00:00:01"), "mettre_a_jour"
End If
End Sub
Sub ArretCalculTps()
ok = 0
End Sub
Sub Pause()
If ok = 1 Then
ok = 2
Else
ok = 1
End If
End Sub |
Partager