Discussion :

[Zebulon777]

Bonjour à tous,

Dans un de mes programmes, pour faire une pause de 30 secondes, j'utilise la fonction :

Code :

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

1
2
3
4
5
Sub Wait(P_Seconde)
' Attendre P_Seconde secondes
Application.Wait Time + TimeSerial(0, 0, P_Seconde)
' Continuer après la pause
End Sub

Je voudrai modifier cette fonction pour qu'elle affiche un compte à rebours dans un userForm pendant l'attente ?

Merci d'avance pour votre aide.

[Zebulon777]

Bon, ben, je me réponds à moi-même, j'ai posé ma question un peuit vitre désolé, j'ai trouvé

Voici ce que j'ai fait :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub Decompte(P_Secondes, P_Message)
    WSecondes = P_Secondes
    Do
        If WSecondes = 0 Then
            Exit Do
        End If
        Wait (1)
        WSecondes = WSecondes - 1
        WMessage = P_Message & vbCrLf & vbCrLf
        WMessage = WMessage & WSecondes & " / 30"
        Call Affiche_Message("NON", WMessage, "SUITE", "OUI")
    Loop
End Sub

(La fonction Affiche_Message gère juste l'affichage dans un UserForm)

Si ça peut aider du monde...