Modifier Format Chrono JB

http://cjoint.com/?lcvK7wwcXL

Public ProchainChrono
Sub majChrono()
x = (Timer() - [TempsDépart]) / 3600
Sheets("Chrono").Shapes("MonChrono").TextFrame.Characters.Text =
Format(x / 24, "hh:mm:ss")
If Not [Pause] Then
If [A1] <> 1000 Then
ProchainChrono = Now + TimeValue("00:00:1")
Application.OnTime ProchainChrono, "majChrono"
Else
[Démarre] = False
On Error Resume Next
Application.OnTime ProchainChrono, Procedure:="majChrono",
Schedule:=False
End If
End If
End Sub

Sub Arret()
[Démarre] = False
[C3:E20].ClearContents
[A2].Select
On Error Resume Next
Application.OnTime ProchainChrono, Procedure:="majChrono",
Schedule:=False
End Sub

Sub Dpause()
[Pause] = True
On Error Resume Next
Application.OnTime ProchainChrono, Procedure:="majChrono",
Schedule:=False
[DébutPause] = Timer()
[A2].Select
End Sub

Sub Fpause()
[Pause] = False
[TempsDépart] = [TempsDépart] + (Timer() - [DébutPause])
majChrono
End Sub

Sub raz()
[Démarre] = False
[Pause] = False
[DébutPause] = 0
[TempsDépart] = 0
[C3:E20].ClearContents
[A2].Select
On Error Resume Next
Application.OnTime ProchainChrono, Procedure:="majChrono",
Schedule:=False
Sheets("Chrono").Shapes("MonChrono").TextFrame.Characters.Text = "0"
End Sub


JB

Bonjour JB
Je n'ai pas fais attention au début, mais est il possible de voir le ch rono
défiler en h : mn : ss.
Cela m' éviterais de faire le calcul à chaque fois.

Cordialement
Guy

Salut JB
Je suis content de te revoir et je te remercie encore.
Au fur et à mesure que j'avance, je viens de m'apercevoir que je ne peut pas
faire démarrer le chrono en sélectionnant une cellule fusionnée, est- il
possible quand même de le faire ?
Cordialement
Guy

"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1162499895.119164.290480@e3g2000cwe.googlegroups.com...
http://cjoint.com/?lcvK7wwcXL

Public ProchainChrono
Sub majChrono()
x = (Timer() - [TempsDépart]) / 3600
Sheets("Chrono").Shapes("MonChrono").TextFrame.Characters.Text Format(x / 24, "hh:mm:ss")
If Not [Pause] Then
If [A1] <> 1000 Then
ProchainChrono = Now + TimeValue("00:00:1")
Application.OnTime ProchainChrono, "majChrono"
Else
[Démarre] = False
On Error Resume Next
Application.OnTime ProchainChrono, Procedure:="majChrono",
Schedule:úlse
End If
End If
End Sub

Sub Arret()
[Démarre] = False
[C3:E20].ClearContents
[A2].Select
On Error Resume Next
Application.OnTime ProchainChrono, Procedure:="majChrono",
Schedule:úlse
End Sub

Sub Dpause()
[Pause] = True
On Error Resume Next
Application.OnTime ProchainChrono, Procedure:="majChrono",
Schedule:úlse
[DébutPause] = Timer()
[A2].Select
End Sub

Sub Fpause()
[Pause] = False
[TempsDépart] = [TempsDépart] + (Timer() - [DébutPause])
majChrono
End Sub

Sub raz()
[Démarre] = False
[Pause] = False
[DébutPause] = 0
[TempsDépart] = 0
[C3:E20].ClearContents
[A2].Select
On Error Resume Next
Application.OnTime ProchainChrono, Procedure:="majChrono",
Schedule:úlse
Sheets("Chrono").Shapes("MonChrono").TextFrame.Characters.Text = "0"
End Sub


JB

Bonjour JB
Je n'ai pas fais attention au début, mais est il possible de voir le
chrono
défiler en h : mn : ss.
Cela m' éviterais de faire le calcul à chaque fois.

Cordialement
Guy