Afficher une image pendant l'exécution d'une macro

Bonjour à tous!

J'ai une macro, assez longue, qui fait appel à des feuilles masquées.

Pour éviter que l'utilisateur voit ces données, et que ce soit agréable à utiliser, j'aimerai afficher une image pendant que la macro s'exécute.

J'ai cherché sur plusieurs forums mais je ne trouve pas mon bonheur….

L'image en question est nommée "Message" et est masquée sur la première feuille du classeur.

J'ai codé ça:

ActiveSheet.Shapes("Message").Visible = True

Application.ScreenUpdating = False

…

Application.ScreenUpdating = True

Sheets("Saisie LMMJV").Select

ActiveSheet.Shapes("Message").Visible = False

Néanmoins l'image ne s'affiche pas…

Merci d'avance !

Bonjour,

mgaz a écrit :
Néanmoins l'image ne s'affiche pas…

à cause de ceci

Application.ScreenUpdating = False

Une solution est de la mettre dans un userform.

Ou alors utiliser ceci ...

Pour aller plus loin, poste un fichier.

Merci (encore) Steelson pour tes réponses

Je voudrais éviter de mettre le fichier en ligne car cde sont des documents de mon entreprise.

J'essaie de passer par un userform. Néanmoins je n'ai jamais eu de cours la dessus…

Avec le code " userform.show " j'arrive à afficher mon image mais l'utilisateur doit fermer l'userform pour que la macro continue…

Tu as une solution ?

Je pense (je n'ai jamais essayé) qu'il faut que tu ajoutes

Private Sub UserForm_Activate()
' lancement de la macro
End Sub

un essai