Discussion :

[Cupoftea]

Bonjour,

Je souhaiterais faire afficher un UserForm pendant un temps limité.
Je vous détail mon souhait:
Lorsque je clic sur un CommandButton, je souhaiterais qu'une image s'affiche, par le biais d'un UserForm par exmple. (mais si il y a un moyen plus pratique que le UserForm, je suis tout ouie...)
Cependant, je souhaiterais que cet affichage soit temporaire. Je voudrais qu'il reste à l'ecran pendant 5s (temps pendant lequel on peut rien faire à part attendre...), puis on passe au UserForm suivant.

Je ne sais pas si une telle commande existe, alors je vous demande votre aide s'il vous plait.

Merci d'avance...

[patbou]

dans ton userform tu place le code suivant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub UserForm_Activate()
Dim timedebut
timedebut = Timer
DoEvents
' Boucle tant que 5 secondes ne se sont pas écoulé
While Timer < timedebut + 5
DoEvents
Wend
' Fermeture du user
Unload Me
End Sub

[Cupoftea]

Je vous remercie, cela répond parfaitement à ma question!

Je vais maintenant pouvoir l'ajuster a mon probleme!
Encore Merci!