mon message chrono plus explicite

PubliĆ© par mimi1958pp le 27/12/2017 18:47:33

voici le code de ma macro pour chrono :
Dim ok As Boolean
Sub Demarrechrono()
'Macro Dan pour stephane Guidon
ok = True
Range("A1") = TimeSerial(0, 1, 0)
Call decompte
End Sub

Sub decompte()
'Macro Dan pour stephane Guidon
If ok Then
If Range("a1") = 0 Then
ok = False
Range("A1") = TimeSerial(0, 0, 0): End
End If
Range("A1") = Range("A1") - TimeSerial(0, 0, 1)
Range("A1").NumberFormat = "mm:ss"
Application.OnTime Now + TimeValue("00:00:01"), "deCompte"
End If
End Sub

mon chrono se trouve sur feuille 2 etla macro dans un module.

quand je suis sur feuille 1 , grace a une macros , je lance le chrono de la feuille 2.
la feuille 2 s'ouvre mais le chrono defile a une tres grande vitesse ( ce qui n'est plus un chrono)
merci de votre collboration

.

Ce message est de : http://excel.veriti.net/modules/newbb/viewtopic.php?post_id=575