macro pour reinitialiser en gris mes boutons

[ngexcel]

bonjour à tous j'ai grâce à beaucoup de personnes pu arriver à mon projet
je bloque sur la macro qui s appel GRIS qui permet de mettre mes boutons en gris

merci d 'avance

 

[Roland_M]

Re : macro pour reinitialiser en gris mes boutons

bonjour,

il faut tester le type : If sh.Type = 1 Then

Sub Gris() 'grise tout
  Dim sh As Shape
  For Each sh In ActiveSheet.Shapes
    If sh.Type = 1 Then If Left(sh.Name, 1) <> "P" And Left(sh.Name, 1) <> "S" Then sh.Fill.ForeColor.RGB = RGB(128, 128, 128)
  Next
End Sub

 

[ngexcel]

Re : macro pour reinitialiser en gris mes boutons

Merci a vous ça marche