Discussion :

[philou59178]

Bonjour à tous

Je suis enseignant en EPS et je pratique depuis peu la programmation en VBA
J'ai réussi à développer un chronomètre pour mes épreuves de course ou de natation, mais je n'arrive pas à le modifier pour me servir des centièmes de seconde.
Voici la macro que j'ai inscrite dans mon classeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
Public running As Boolean, temps As Single
Const UneSec = 1 / 86400
Sub compte()

If running = True Then
Application.OnTime Now + TimeValue("00:00:01"), "compte"
temps = temps + UneSec
Range("J1") = temps
End If
End Sub

'mon Chronomètre s'affiche dans la cellule J1 mais également dans une bulle (orange)

Sub chrono()
'Départ chrono
If running = False Then
running = True
compte
End If
End Sub

Toutes mes cellules contenant du temps sont formatées comme suit " mm:ss,0
de plus j'ai l'impression que dès que je déclenche le chronomètre, il affiche instantanément 00:01 au lieu d'attendre une seconde

Cordialement