XL 2016 Changer couleur d'une Forme

job75 à dit:

Bonjour KTM, Roblochon,

VB:

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+

Cliquez pour agrandir...

KTM à dit:

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

Cliquez pour agrandir...