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 !