Creer un chrono avec les centièmes de seconde

Bonjour

Je joins le code qui fonctionne bien hh:mm:ss je cherche a le faire fonctionner avec en plus les centièmes.

Ma cellule G9 qui affiche le chrono est au format personnalisé [hh]:mm:ss.00

Si vous avez une solution je suis preneur

Merci pour votre aide

Option Explicit

Dim Arret As Long
Dim i As Integer
Public OnOff As Boolean
Declare Function GetTickCount Lib "Kernel32" () As Long

 Sub Minuterie(Milliseconde As Long)
    Arret = GetTickCount() + Milliseconde
    Do While GetTickCount() < Arret
    DoEvents
    If Not OnOff Then Exit Do
    Loop
End Sub

Sub Chronométre()
    OnOff = True
    Chrono [G9] * 60 * 60 * 24  'Durée
End Sub

Sub Chrono(Optional i As Integer = 5)
    Do While i >= 0
    [G9] = i / 60 / 60 / 24
    Minuterie 1000
    If Not OnOff Then Exit Do
    i = i + 1
    Loop
End Sub

Sub Arrêt()
    OnOff = False

End Sub

Bonsoir Joco7915,

En retour un exemple de Chrono au centièmes de seconde.

53chrono2022.xlsm (30.25 Ko)

Voir notes en rouge et macros.

Bonjour à tous,

à noter que sur l'exemple de X Cellus la précision exacte est plutôt de 2/100 s.
Avec un debug.print :
00:00:01.34
00:00:01.35
00:00:01.37
00:00:01.38
00:00:01.40
00:00:01.42
00:00:01.43
00:00:01.45
00:00:01.47
00:00:01.49

et parfois 3/100 s :
00:00:00.10
00:00:00.13
00:00:00.14
00:00:00.17
00:00:00.20
00:00:00.23
00:00:00.26
Sans doute pas important (Edit: si lancement et arrêt manuel) mais autant le savoir.
eric

bonjour,

quand on mesure le temps avec un chronomètre manuel, il y a un erreur qu'on doit accepter de 0.250-0.500 milliseconds. La précision du "timer" d'excel est quelque part dans les dixièmes de secondes, même s'il montre 5 chiffres après la virgule, mais vraiment inférieur à la faute humaine.

Soit avec ces macros, vous pouvez chronometrer 2 choses en même temps. Vous poussez "Start" pour démarrer, "Stop" pour arrêter et "Reset" pour effacer le tableau. Avec les boutons A & B, vous recuperez les entre temps de A et B dans le tableau. Avec le souris, c'est assez gênant, alors, il y a aussi la possibilité avec l'accoursie CTRL+SHIFT+A et CTRL+SHIFT+B.

Mais en tout cas, avec le chronomètrage "humaine", n'utilisez que les centièmes de secondes, même si j'affiche 3 chiffres après la virgule.

40chrono2022-1.xlsm (41.98 Ko)
Rechercher des sujets similaires à "creer chrono centiemes seconde"