Userform s'ouvrir pendant 5 secondes [Résolu]

Bonjour,

Une idée de solution ... Supposons qu'il s'appelle Userform1..

Dans le code associé à l'Userform1 mettre :

Private Sub UserForm_Activate()
    temps = Now + TimeValue("00:00:05")
    Application.OnTime temps, "finir"
End Sub

avec la macro "finir" suivante (dans un module) :

Sub finir()
    UserForm1.Hide
End Sub

A+

Merci beaucoup
C'est excatement ce que je voulais
Encore merci