XL 2016 Changer couleur d'une Forme

[KTM]

Bonjour Cher Forum
J'ai une Forme insérée sur ma feuille a la quelle une macro est associée
Jaimerais que ma Forme prenne une couleur ( Rouge par exemple ) desque je clique et revienne a la normale a la fin de l'execution de la macro.
Merci

 

[Hasco]

Bonjour,

Le fichier exemple, il est où?

A vous relire

 

[job75]

Bonjour KTM, Roblochon,

Sub MaMacro()
Dim s As Shape, coul&
Set s = ActiveSheet.Shapes(Application.Caller)
coul = s.Fill.ForeColor.RGB 'mémorise
s.Fill.ForeColor.RGB = RGB(255, 0, 0) 'rouge
Application.ScreenUpdating = True 'rafraîchit l'écran
'---suite du code---
Application.Wait Now + 2 / 86400 'temporisation pour tester
s.Fill.ForeColor.RGB = coul
End Sub

A+

 

[KTM]

Bonjour KTM, Roblochon,

Sub MaMacro()
Dim s As Shape, coul&
Set s = ActiveSheet.Shapes(Application.Caller)
coul = s.Fill.ForeColor.RGB 'mémorise
s.Fill.ForeColor.RGB = RGB(255, 0, 0) 'rouge
Application.ScreenUpdating = True 'rafraîchit l'écran
'---suite du code---
Application.Wait Now + 2 / 86400 'temporisation pour tester
s.Fill.ForeColor.RGB = coul
End Sub

A+

super super Merci Job75
Mais
Pouvez vous mieux expliquer ce code ? : Application.Wait Now + 2 / 86400

 

[job75]

Pouvez vous mieux expliquer ce code ? : Application.Wait Now + 2 / 86400

Mon commentaire est clair et pour comprendre la fonction faites une recherche sur le web.