Discussion :

[bobob2]

Bonjour,

Je suis en train de faire un travail pratique et je dois mettre en place un timer (compte à rebours) qui s'affiche dans le caption d'un label.

J'ai donc écrit le code suivant dans le sub userform.

Code :

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

1
2
3
lblTimer.Caption = TimeValue("00:03:00")
 
Application.OnTime Now + TimeValue("00:00:01"), "Timer"

Puis, j'ai définit la procédure Timer comme suit.

Code :

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

1
2
3
nomduformulaire.lblTimer.Caption = Format(TimeValue(nomduformulaire.lblTimer.Caption) - TimeValue("00:01"), "nn:ss")
 
Application.OnTime Now + TimeValue("00:00:01"), "Timer"

Mais là, quand j’exécute, j'obtiens l'erreur Incompatibilité de type !

Que faire ???

Merci !

[Theze]

Bonjour,

Dans le module de la Form :

Code :

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

1
2
3
4
 
Private Sub UserForm_Activate()
    Chrono
End Sub

Dans un module standard :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub Timer()
 
    UserForm1.lblTimer.Caption = Format(CDate(UserForm1.lblTimer.Caption) + 1 / 24 / 3600, "hh:mm:ss")
    Chrono
 
End Sub
 
Sub Chrono()
 
    Application.OnTime Now + TimeValue("00:00:01"), "Timer"
 
End Sub

A toi de voir ce que tu veux pour gérer l'arrêt du timer.

[Igloobel]

Bonjour,

A titre d'info j'ai dans le sous-forum CONTRIBUER créer une pendule sous Excel je pense que le principe est voisin.

http://www.developpez.net/forums/d15...on-simultanee/


A+

[bobob2]

Merci beaucoup, ça fonctionne !!!!!!!!!!!

[kiki29]

Salut, à titre posthume : Chronomètre