Bonjour,
En m'appuyant sur un peu de code trouver sur Internet et en ré-développant,
J'ai réalisé un petit chronomètre qui marche avec trois boutons Start, STOP, Reset
J'aimerais n'avoir plus que deux boutons, en fusionnant Start et STOP.
Je l'utilise actuellement pour mesurer des temps à la seconde, se n'est donc as très pratique, je fais avec et je n'ai malheureusement pas beaucoup de temps pour me pencher sur le problème, je sollicite donc votre aide
Cordialement
Voici le code
Puis
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Private fin_chrono As Long Private DEPART, DeltaT, temps As Double
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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46 Private Sub UserForm_Initialize() Chrono.Caption = "00:00:00" 'Initialise le chrono End Sub rivate Sub BTN_Depart_Click() BTN_Depart.Enabled = False BTN_Depart.Caption = "Restart" BTN_Stop.SetFocus fin_chrono = 0 DEPART = [now()] Do While fin_chrono = 0 temps = [now()] - DEPART + DeltaT If CheckBox1 = False Then Chrono.Caption = WorksheetFunction.Text(temps, "hh:mm:ss.00") Else Chrono.Caption = WorksheetFunction.Text(temps, "hh:mm:ss") End If DoEvents Loop End Sub Private Sub BTN_Stop_Click() fin_chrono = 1 DeltaT = temps BTN_Depart.Enabled = True BTN_Depart.SetFocus End Sub Private Sub BTN_Reset_Click() 'Remet le chrono à zéro BTN_Depart.Caption = "Départ" BTN_Depart.Enabled = True BTN_Depart.SetFocus fin_chrono = 1 Chrono.Caption = "00:00:00" 'hh:mm:ss DeltaT = Empty End Sub
Partager