Afficher un message pendant une macro

Question

Windows 10 / Excel 2013 / Macro VBA

Bonjour,

Comment afficher automatiquement sur la feuille active, un message pendant l’exécution d'une macro ? (Ex. : "Mise à Jour en cours. Patientez...").

Le dit message devant bien évidement disparaitre automatiquement à la fin de l'exécution de la Macro concernée.

J'ai fait plusieurs essais qui fonctionne à condition d'exécuter la Macro en mode "Pas à Pas".

Merci pour votre réponse.

Bien cordialement.

Georges

Answer 1

Oui. Avec ton code, VBA utilise le processeur a plein régime et l'affichage ne peut pas se faire. Ecris plutôt :

Sub Test_Affichage()

    Call Affichage_Msg_MàJ_M

    Application.Wait Now + TimeValue("00:00:05")

    Call Suppression_Msg_MàJ_M

End Sub

Ou alors :

Sub Test_Affichage()

    Call Affichage_Msg_MàJ_M

    T0 = Now

    T1 = T0 + TimeValue("00:00:05")

    Do While T0 < T1

        DoEvents

        T0 = Now

    Loop

    Call Suppression_Msg_MàJ_M

End Sub

"DoEvents" rendant la main au système pour exécuter les tâches en attente.

Daniel

Answer 2

Bonjour Daniel,

J'ai incorporé la fonction "DoEvents" dans mes différentes procédures d'affichage et cela fonctionne parfaitement.

Merci pour cette aide.

Cordialement.

Georges

Answer 3

Bonjour Daniel,

Merci pour ta réponse. Je n'ai jamais utilisé les fonctionnalités de UserForm. J'ai donc créé le message UserForm "Msg_MàJ_M" que j'affiche et efface sans problème avec les commandes VBA :

Affichage :

Sub Affichage_Msg_MàJ_M()    Load Msg_MàJ_M    Msg_MàJ_M.ShowEnd Sub

Suppression :

Sub Suppression_Msg_MàJ_M()

Unload Msg_MàJ_M

End Sub

Mais lorsque j'incorpore ces commandes dans une procédure de Test de 5 secondes :

Sub Test_Affichage()

Call Affichage_Msg_MàJ_M

T0 = Now

T1 = T0 + TimeValue("00:00:05")

Do While T0 < T1

T0 = Now

Loop

Call Suppression_Msg_MàJ_M

End Sub

Alors le message s'affiche mais l'intérieur est Blanc et les 2 Labels sont absents !!

Que faire ?

Merci pour ta collaboration.

Georges

Answer 4

Bonjour,

Crée un userform avec la propriété ShowModal positionnée à False avec un label contenant le message désiré. Affiche le userform au début de la macro et décharge-le à la fin.

Cordialement.

Daniel