Appliquer le même fond à tous les CommandButton de la feuille

Bonjour,

J'ai environ 400 bouton de commande sur une feuille qui me servent à faire répondre à des questions. Une fois cliqué, le bouton devient fond bleu et police blanche via une petite macro. Je souhaiterai avec une macro que tous les boutons reprennent leurs attributs de départ (fond gris et police noire) c'est à dire que la macro sélectionne tous les boutons de commande et applique un truc du genre ForeColor=RGB (255.255.255) et BackColor=RGB(50.100.200)

Pour l'instant, je ne trouve pas la réponse sur le forum.

Merci pour votre aide

Hello,

Essaye qqch comme ça :

For Each bouton In Feuil1.OLEObjects
If (bouton.OLEType = 2) Then
    bouton.Object.forecolor = 
    bouton.Object.backcolor = 

End If
Next

R@g

Bonjour R@g et merci,

La méthode ne fonctionne pas. J'ai essayé ceci qui ne fonctionne pas non plus. Cela sélectionne bien tous les boutons mais n'engendre rien quant à leur format.

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

Merci si quelqu'un a une autre idée...

Salut Fab,
Salut Rag,

Rag a trouvé : il suffisait d'ajouter la couleur en hexa !
Clique sur la feuille...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
For Each bouton In Feuil1.OLEObjects
    If (bouton.OLEType = 2) Then
        bouton.Object.ForeColor = &HFFFFFF
        bouton.Object.BackColor = &H800000
    End If
Next
'
End Sub

A+