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?

[PMO2017]

Bonjour,

Une piste avec le code suivant

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

Code :

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

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 :

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

1
2
3
4
5
Public USF As Object
 
Sub fermer()
Unload USF
End Sub

[escalopepane]

Parfait PMO2017, ça marche!

merci.