Discussion :

[albelk]

Bonjour à tous,
Je souhaiterai fermer automatiquement un Userform avec deux boutons (OK et Cancel) au bout de 20 secondes, voici le code utilisé :

Code :

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

1
2
3
4
Private Sub UserForm_Activate()
 Application.Wait Now + TimeValue("00:00:20") 
 Unload UserForm1
End Sub

Le Userform se ferme effectivement au bout des 20 secondes, cependant il est impossible de cliquer sur l'un des deux boutons du Userform.
Comment faire pour contourner se problème ??

Merci pour votre aide !

[antonysansh]

Bonjour albelk

Voila une possibilité :

Code :

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

1
2
3
4
5
6
7
Sub FermetureUF()
    Unload UserForm1
End Sub
 
Private Sub UserForm_Activate()
    Application.OnTime Now + TimeSerial(0, 0, 20), "FermetureUF"
End Sub

Plutôt que d'attendre 20 secondes et de bloquer l'application pendant ce temps, il faut lui demander de lancer la fermeture dans 20 secondes.

[albelk]

Bonjour Antonysansh,

Merci pour ton aide mais ca ne semble pas fonctionner, le userform ne se ferme toujours pas au bout des 20 secondes.

[antonysansh]

J'ai oublié une petite précision :

Dans un module standard :

Code :

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

1
2
3
Sub FermetureUF()
    Unload UserForm1
End Sub

Et dans le code de ton UF :

Code :

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

1
2
3
Private Sub UserForm_Activate()
    Application.OnTime Now + TimeSerial(0, 0, 20), "FermetureUF"
End Sub

Il faut aussi adapter Unload UserForm1 au nom de ton UF.

[albelk]

Très bien merci beaucoup Antony !