Message d'attente pendant l'execution d'une macro
tienou
-
PHILOU10120 Messages postés 6463 Date d'inscription Statut Contributeur Dernière intervention -
PHILOU10120 Messages postés 6463 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.
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.
2 réponses
-
Bonjour
je pense plutot a un truc comme caSub Test() UserForm1.Show 0 Application.ScreenUpdating = False ' ' ' Application.ScreenUpdating = True Unload UserForm1 End Sub
A+
Maurice -
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
