Fermer UserForm après délai

[Kuartz42]

Bonjour à tous,

En fait le but de la manoeuvre est d'ouvrir un 'Userform' puis de le faire disparaitre automatiquement au bout de quelques secondes (2 seraient l'idéal). Ceci évitera à l'utilisateur d'être obligé d'appuyer sur un bouton pour fermer la fenêtre.

La macro que j'ai écris est celle-ci :

Application.OnTime Now + TimeValue("00:00:5"), "macro1"
Application.Run "macro2"

Le contenu de la macro 1 est :

Sub Unload()
Unload Attention
End Sub

Celui de la macro 2 est :

Sub Load()
Attention.Show
End Sub

"Attention" étant le nom du UserForm.

La macro générale de la feuille (car tout ceci doit s'éxécuter à l'ouverture d'un feuille) ne marche pas.

Je suis preneur de tous les conseils que vous pourrez me donner et vous remercie d'avance !

Jérome

 

[mromain]

Re : Fermer UserForm après délai

bonjour Kuartz42,

voici un exemple.

Dim usf As UserForm1
Set usf = New UserForm1

usf.Show 0
Application.Wait (Now + TimeValue("00:00:02"))
usf.Hide

a+

 

[Kuartz42]

Re : Fermer UserForm après délai

Merci beaucoup mromain mon problème est désormais résolu !

Cette aide aura été utile pour tout un cabinet d'expertise comptable merci encore !

Jérôme