Utiliser Application.Ontime dans un userform

Bonjour à tous,

J'ai un code tout simple avec lequel j'aimerai faire afficher un message (grâce à un userform) pendant quelques secondes:

Code:

---

1 2 3 4 5 6 7

Private Sub UserForm_Initialize() Application.OnTime Now, "fermer", Now + TimeValue("00:00:05") End Sub   Sub fermer() Unload Me End Sub

---

Seulement mon userform reste ouvert et ma fonction fermer ne s'execute pas, quelqun aurait-il une solution?

Bonjour,

Une piste avec le code suivant

Code à copier dans la fenêtre de code de l'UserForm

Code:

---

1 2 3 4

Private Sub UserForm_Initialize() Set USF = Me Application.OnTime Now + TimeValue("00:00:05"), "fermer" End Sub

---

Code à copier dans un module Standard

Code:

---

1 2 3 4 5

Public USF As Object   Sub fermer() Unload USF End Sub

---

Parfait PMO2017, ça marche!

merci.