Timer qui s'affiche dans un label

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:

---

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:

---

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 !

Bonjour,

Dans le module de la Form :

Code:

---

1 2 3 4

Private Sub UserForm_Activate() Chrono End Sub

---

Dans un module standard :

Code:

---

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.

Bonjour,

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

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


A+

Merci beaucoup, ça fonctionne !!!!!!!!!!!:mrgreen:

Salut, à titre posthume : Chronomètre