Changer le couleur de fond de plusieurs commandbutton

Bonjour,

je souhaite changer la couleur de fond de 20 commandbutton.

J'avais pensé faire comme ceci mais pas de bol, ça ne fonctionne pas... erreur d'exécution 438

Une idée ?

With Sheets("Feuil1")
For NbCtrl = 1 To 20
    .OLEObjects("CommandButton" & NbCtrl).BackColor = rgb(255, 255, 255)
Next NbCtrl
End With

Bonjour,

Une solution pour parcourir les contrôles de ta feuille :

With Sheets("Feuil1")
    For Each c In .OLEObjects
        If Left(c.Name, 13) = "CommandButton" Then
            c.Object.BackColor = RGB(255, 255, 255)
        End If
    Next c
End With

Cordialement,

Bonjour

Bonjour Sébastien

Modifie ton code

  With Sheets("Feuil1")
    For NbCtrl = 1 To 20
      .OLEObjects("CommandButton" & NbCtrl).Object.BackColor = RGB(255, 255, 255)
    Next NbCtrl
  End With

Merci à vous 2

@Banzai64, bon retour sur le forum