K
Kuartz42
Guest
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
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
Dernière modification par un modérateur: