Même action sur plusieurs boutons

Bonsoir à tous.

Encore une question de noob je suppose, mais bon c'est de ses erreurs que l'on progresse. (Surtout avec votre aide!)

voila j'ai un souci car je voudrais appliquer la même action sur tout les boutons (activeX) de ma page. (changement de couleur)

Si je les prends 1 par un pas de probleme.

mais c'est un peu long je voudrais introduire un bouton permettant d'appliquer cette action directement en un seul clic.

j'avais tenter ceci, mais sans succèes. (il doit pas aimer mon i)

for i=1 to 24
CommandButton(i).BackColor = RGB(32, 128, 224)
next i

ensuite comme ça marchait pas j'ai penser autre chose (sans succès non plus)

for i=1 to 24
CommandButton.Name = CommandButton & i
CommandButton(i).BackColor = RGB(32, 128, 224)
next i

si vous avez une solution je suis preneur

++

Troph

Bonjour

Je n'y connais pas grand chose mais plutôt que d'appliquer ton code à chaque bouton tu ne peux pas creer une macro et que chaque bouton y fasse appel (Call "Macro")

Cordialement

Bonjour,

Plutôt comme ceci

Sub test()
    Dim i%
        For i = 1 To 24
            ActiveSheet.OLEObjects("commandbutton" & i).Object.BackColor = RGB(32, 128, 224)
        Next i
End Sub

Super génial ça marche nickel merci M12.

Neilah c'était l'objet de ma demande.

merci

Troph