Créer un Chronométre

**PUARAI** · 29/05/2009, 23h35

Bonsoir à tous,

Voila mon souci,

J'ai copier un code qui se trouver sur un bouquin excel qui permettais de creer un chronométre mais j'ais fais comme ils ont dits dans le bouquin et rien ne se passe voici le:
Bouton Point d'interrogation

Code :

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

1
2
3
4
Public vChrono
Private Sub CommandButton1_Click()
MsgBox Format(Now() - vChrono, "h:mm:ss"), vbOKOnly, "Chrono"
End Sub

Bouton GO

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CmdGO_Click()
CmdGO.Enabled = False
CmdRAZ.Enabled = False
CmdARRET.Enabled = True
Do
    vChrono = Now() - [B2]
    DoEvents
Loop
End Sub

Bouton ARRET

Code :

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

1
2
3
4
5
6
7
Private Sub CmdARRET_Click()
CmdGO.Enabled = False
CmdRAZ.Enabled = True
CmdARRET.Enabled = False
vChrono = [B2]
End
End Sub

Bouton RAZ

Code :

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

1
2
3
4
5
6
Private Sub CmdRAZ_Click()
CmdGO.Enabled = True
CmdRAZ.Enabled = False
CmdARRET.Enabled = False
[B2] = 0
End Sub

Donc voila si quelqu'un aurait une idée

Merci d'avance

A +++

**laetitia** · 29/05/2009, 23h52

bonjour PUARAI le forum il y a quelques temps je me suis amusée en crée un au milliéme de secondes si cela peut t' aider pour réalise ton projet

**PUARAI** · 30/05/2009, 00h33

Merci beaucoup Laetitia, je vais voir ça dés demain

Je te souhaite une bonne soirée et bonne nuit.

A +++

**casefayere** · 30/05/2009, 00h40

Bonjour Puarai, chère amie Laetitia,
J'ai essayé ton chronometre Laetitia et mes secondes ont été vraiment rapides, elles ressemblent plus à des dixiemes voire des centièmes de secondes, pourvu que je ne vieillisse pas à cette vitesse

Bonne nuit, en meme temps c'était un petit coucou

**babybell** · 30/05/2009, 09h02

Bonjour

Voici un petit code que j'ai fait pour moi et il fonctionne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub timer_off()
Dim start, PauseTime
Dim S As Byte
    PauseTime = 600   ' Définit la durée.
    start = Timer    ' Définit l'heure de début.
    UserForm1.Show ([0])
    Do While Timer < start + PauseTime
        If S <> Second(Time) Then
            UserForm1.Label1.Caption = Int(start + PauseTime - Timer)
            S = Second(Time)
        End If
        DoEvents    ' Donne le contrôle à d'autres processus.
    Loop
End Sub

Il ne te reste plus qu'à créer un userform avec un label1 et c'est tout et en plus tu peux faire autre chose en même temps

avec ça pour les minutes, secondes

Code :

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

UserForm1.Label1.Caption = Format(100*Int((start + PauseTime - Timer) /60) + Int((start + PauseTime - Timer) mod 60),"00:00")

Mais ce n'est pas vraiment un vrai chrono, là les chiffres se décrémentent, mais cela peut te servir

**PUARAI** · 30/05/2009, 09h39

Bonjour Laititia, Cazefeyere, Babybell, le forum

Je vous remerci beaucoup, je vais tester tous ça,

et que j'aurais fini mon petit chrono je vous le ferais savoir,

bonne journée a tous car le beau temp est au rendez vous

Affaire à suivre

A +++