Bonjour

Je reviens sur le site ,je ne m'en étais pas aperçu de suite comme le nez au milieu du visage, mais le code du compteur que Theze m'a gentiment proposé passe par 4:99 alors que je décompte des minutes et des secondes.Je remets son code
merci


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
47
48
49
50
51
52
53
54
55
56
57
58
Private Declare Function GetTickCount Lib "Kernel32" () As Long
 
 
Dim Arret As Boolean
 
Sub Minuterie(Milliseconde As Long)
 
    Dim Fin As Long
 
    Fin = GetTickCount() + Milliseconde
 
    Do While GetTickCount() < Fin And Arret = False
 
        'décompte dans le label
        LblClock.Caption = Format((Fin - GetTickCount()) / 1000, "00:00")
 
        DoEvents
 
    Loop
 
End Sub
 
Private Sub UserForm_Initialize()
 
    'label à zéro
    LblClock.Caption = "00:00"
 
End Sub
 
Private Sub CmdArret_Click()
 
    'arrête le décompte
    Arret = True
 
End Sub
 
Private Sub CmdMarche_Click()
 
    'vide le label
    LblClock.Caption = ""
 
    'autorise le décompte
    Arret = False
 
    'pour le test, 5 minutes
    Minuterie 500000
 
End Sub
 
Private Sub CmdReset_Click()
 
    'label à zéro
    LblClock.Caption = "00:00"
 
    'arrête le décompte
    Arret = True
 
End Sub