XL 2016 mise en pause d'une macro décalée.

[pgauzere]

Bonjour à tous.

voila, je souhaite après avoir appuyé sur un bouton cacher une image, attendre 5 secondes puis faire réapparaître l'image de nouveau.
Pour cela j'ai utilsé le code suivant:

Private Sub Effacer_Click()
Shapes("picture 3").Visible = msoFalse
Application.Wait Time + TimeSerial(0, 0, 5)
Shapes("picture 3").Visible = msoTrue
End Sub

Le problème c'est que quand je clique sur le bouton, mon image disparaît bien, mais APRES l'attente de 5 secondes et PAS AVANT. J'ai essayé avec la fonction Sleep, mais sans succés.
Quelqu'un saurait il me dire quelle erreur je fais svp?
Merci pour votre aide :=)
A+
Patrick.
en PJ je joins le petit fichier.

 

[laurent950]

Bonjour,

Private  Sub Effacer_Click()
Shapes("picture 3").Visible = msoFalse
' Rafraichissement d'écran VBA
Application.ScreenUpdating = True
Application.Wait Time + TimeSerial(0, 0, 5)
Shapes("picture 3").Visible = msoTrue
End Sub

 

[pgauzere]

Wouah merci beaucoup Laurent! pour la rapidité et l'efficacité ca fonctionne a merveille :=)
Bonne soirée et a bientôt!