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

Fermé
tienou - 14 déc. 2014 à 13:59
PHILOU10120 Messages postés 6367 Date d'inscription lundi 16 avril 2012 Statut Contributeur Dernière intervention 2 avril 2024 - 14 déc. 2014 à 14:51
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

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 6367 Date d'inscription lundi 16 avril 2012 Statut Contributeur Dernière intervention 2 avril 2024 795
14 déc. 2014 à 14:51
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