Autres Appliquer à tous les boutons de commande de la feuille le même format

[Fab38]

Bonjour,
Sur une feuille, j'ai environ 400 boutons de commande qui change de couleur si click.
Je voudrai à la fin leur rendre leur format initial à tous. Voici mon code qui ne fonctionne pas (il sélectionne bien tous les boutons mais n'applique aucun format) :

ActiveSheet.Shapes.SelectAll
Selection.ForeColor = RGB(50, 100, 200)
Selection.ForeColor = RGB(255, 255, 255)

(erreur : méthode non gérée par l'objet)
Quelqu'un a une idée ?

Merci à tous
(excel 2007)

 

[laurent3372]

Si tu as 400 boutons au comportement identique , tu as tout intérêt à écrire un module de classe.

 

[Fab38]

Si tu as 400 boutons au comportement identique , tu as tout intérêt à écrire un module de classe.

Salut Laurent et merci pour la réponse.
... mais là c'est au-dessus de mes capacités...

 

[Hasco]

Bonjour,

S vos boutons sont des boutons activeX et non de formulaire

Dim shp As Shape
For Each shp In Worksheets("Feuil1").Shapes
    'Première méthode possible.
    shp.OLEFormat.Object.Object.BackColor = vbRed ' fond du bouton
    'Deuxième méthode possible.
    shp.DrawingObject.Object.ForeColor = vbWhite  ' écriture du bouton
Next

Mais 400 boutons sur une feuille, je doute qu'il n'y ait pas un moyen de faire autrement !

Cordialement

 

[patricktoulon]

bonjour
oui 400 boutons je suis curieux

bonjour l' affectation aux macro

 

[Fab38]

Salut Laurent et merci pour la réponse.
... mais là c'est au-dessus de mes capacités...

Merci beaucoup.
Tout marche à merveille.

 

[Fab38]

Bonjour,

Si comme cela semble l'être vos boutons sont des boutons de formulaire et non des ActiveX

Dim shp As Shape
For Each shp In Worksheets("Feuil1").Shapes
    'Première méthode possible.
    shp.OLEFormat.Object.Object.BackColor = vbRed ' fond du bouton
    'Deuxième méthode possible.
    shp.DrawingObject.Object.ForeColor = vbWhite  ' écriture du bouton
Next

Mais 400 boutons sur une feuille, je doute qu'il n'y ait pas un moyen de faire autrement !

Cordialement

Merci beaucoup.
Tout marche à merveille.
Cordialement,

 

[Fab38]

Bonjour,

Si comme cela semble l'être vos boutons sont des boutons de formulaire et non des ActiveX

Dim shp As Shape
For Each shp In Worksheets("Feuil1").Shapes
    'Première méthode possible.
    shp.OLEFormat.Object.Object.BackColor = vbRed ' fond du bouton
    'Deuxième méthode possible.
    shp.DrawingObject.Object.ForeColor = vbWhite  ' écriture du bouton
Next

Mais 400 boutons sur une feuille, je doute qu'il n'y ait pas un moyen de faire autrement !

Cordialement

Merci beaucoup,
Tout marche à merveille
Cordialement