Bonjour à tous,
Je cherche à incorporer un chronomètre à l'aide de vba pour excel. Il est constitué de 4 boutons RAZ, Go, Stop, et ?. Je vais supprimer ce dernier qui ne me sert pas, mais là n'est pas le problème. Je vais vous montrer mon code placer dans feuil1:
Le problème réside dans le fait que la valeur du chrono s'affichant en B2 et dans la fenêtre excel n'est pas 00:00:01........ mais 0,000048392.... et je ne sais pas comment résoudre ce petit problème. Si vous avez une petite solution cela m'aiderait grandement. De plus pourriez vous me dire comment afficher ce temps dans un label avec ce code?
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
22
23
24 Public vChrono Private Sub cmdChrono_Click() MsgBox Format(Now() - vChrono, "h:mm:ss"), vbOKOnly, "Chrono" End Sub Private Sub cmdGo_Click() cmdArret.Enabled = True cmdGo.Enabled = False cmdRAZ.Enabled = False vChrono = Now() - [B2] Do [B2] = Now() - vChrono DoEvents Loop End Sub Private Sub cmdArret_Click() cmdArret.Enabled = False cmdGo.Enabled = True cmdRAZ.Enabled = True vChrono = [B2] End End Sub Private Sub cmdRAZ_Click() [B2] = 0 End Sub
Merci d'avance
Partager