Message d'attente pendant l'execution d'une macro

tienou -  
PHILOU10120 Messages postés 6445 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,
Pour cacher les tâches excécutées par la macro, j'ai mis en début : Application.Visible = False

Puis à la fin de macro : Application.Visible = True

Pour la fenêtre "Merci de patienter pendant le traitement", j'ai mis en début de macro un Userform1.Show et à la fin de la macro Unload Userform1

Mais l'userform ne se ferme pas à la fin et reste affiché.

Quelqu'un a t-il une solution, merci d'avance.

A voir également:

2 réponses

Maurice
 
Bonjour

je pense plutot a un truc comme ca
Sub Test()
UserForm1.Show 0
   Application.ScreenUpdating = False
   '
   '
   '
   Application.ScreenUpdating = True
Unload UserForm1
End Sub


A+
Maurice
0
PHILOU10120 Messages postés 6445 Date d'inscription   Statut Contributeur Dernière intervention   824
 
Bonjour


Essayez ceci

Afficher un message "patience S.V.P. Effacement en cours... "

Application.StatusBar = "patience S.V.P. Effacement en cours... "

Efface le message

Application.StatusBar = False

0