Discussion :

[dodo69]

Bonjour à tous,

J'aimerai pouvoir afficher un compte-à-rebours dans un label d'un userform

Explication: J'ai un Userform qui pose une question fermée à l'utilisateur,( réponse oui ou non) j'ai 2 boutons de réponse donc "oui" et "non".
Si l'utilisateur n'a pas réagit en cliquant sur un bouton avant 20 secondes, une macro s'éxécute.

Il faudrait que l'Userform s'actualise toute les secondes pour avertir du temps

Comment puis-je faire cela?

Merci d'avance

Cordialement
DoDo

[delphine35]

Tu peux utiliser les fonctions NOW et TIMEVALUE

ex :

Code :

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

VAR1 = Now + TimeValue("00:00:20")

VAR1 = date/heure de maintenant + 20 secondes

Et Wait :

Exemple :

Code :

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

1
2
3
If Application.Wait(Now + TimeValue("0:00:10")) Then
    MsgBox "Time expired"
End If

[dodo69]

Delphine, l'idée est là,

mais disons que dans ton exemple, il m'affiche l'heure et pas un compte-à-rebours.

Et je n'ai pas compris ton Wait...il attend 10 seconde avant de démarré?

Merci de ton aide.

Je n'arrive vraiment pas à afficher un compte a rebours sur cet Userform

[fring]

Bonjour,

ça pourrait être par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub toto()
Dim i As Integer
 
With UserForm1
    .Show 0
    For i = 10 To 0 Step -1
        Application.Wait Now + TimeValue("00:00:01")
        .Label1 = i
        .Repaint
    Next
End With
 
End Sub

[dodo69]

Merci fring, c'est exactement ça

Merci beaucoup

Cdlt
DoDo