Discussion :

[escalopepane]

Bonjour à tous,

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

Code :

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

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?