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
super super Merci Job75Bonjour KTM, Roblochon,
A+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
Mon commentaire est clair et pour comprendre la fonction faites une recherche sur le web.Pouvez vous mieux expliquer ce code ? : Application.Wait Now + 2 / 86400