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.
Puis, j'ai définit la procédure Timer comme suit.
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"
Mais là, quand j’exécute, j'obtiens l'erreur Incompatibilité de type !
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"
Que faire ???
Merci !
Partager