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

laurent3372 à dit:

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

Cliquez pour agrandir...

Fab38 à dit:

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

Cliquez pour agrandir...

Roblochon à dit:

Bonjour,

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

VB:

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,

Cliquez pour agrandir...

Roblochon à dit:

Bonjour,

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

VB:

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

Cliquez pour agrandir...