Couleur CommandButton

[thomasly@neuf.fr]

Bonsoir,


J'ai un petit problème :

Dans une feuille, j'ai un bouton nommé CommandButton1 affecté d'une couleur de fond ( ex rouge ).

Après sélection d'une plage de cellules et clic sur le bouton, j'aimerai que la zone soit affectée de la même couleur que celle de CommandButton1.

Pouvez-vous m'aider SVP


Merci de vos réponse

 

[Robert]

Re : Couleur CommandButton

Bonsoir Thomas, bonsoir le forum,

Essaie comme ça :

Private Sub CommandButton1_Click()
Selection.Interior.Color = Me.CommandButton1.BackColor
End Sub

 

[fhoest]

Re : Couleur CommandButton

Bonsoir
a l'aide de quel bouton de commande veux tu faire ceci,
controlbutton sur feuille ou bouton activex ou bouton sur userform
Merci (sinon un debut suite a un enregistrement de macro)

Sub couleur()
'
' couleur Macro
'

'
    Range("B2:F7").Select
    With Selection.Interior
        
        .Color = 255 'remplacer 255 par commandbutton1.backcolor
        
    End With
End Sub
Sub Bouton1_Clic()
Call couleur
End Sub

A+
Edit: bonjour Robert

 

[thomasly@neuf.fr]

Re : Couleur CommandButton

Merci

C'est parfait