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
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Private fin_chrono As Long
Private DEPART, DeltaT, temps As Double
Puis

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