Créer un bouton qui colore plusieurs cellules

Bonjour,

Je suis ultra débutant en VBA et je cherche un moyen de créer un bouton avec une macro qui permet de colorer une plage de cellules lorsqu'on clique sur celui-ci.

J'ai déjà crée le bouton et lorsque je suis dans le visual basic, je vois:

Private Sub CommandButton_Click()

End Sub

J'aimerai donc rentrer la macro qui permettrait de colorer une plage de cellules définies lorsque je clique sur le bouton.

Merci pour votre aide !

Bonjour et bienvenue sur le forum,

Il faudrait davantage de détails pour obtenir une solution fonctionnelle.

Voici une proposition de code (à placer dans un module normal : Développeur/Visual Basic/ Menu Insertion/ Module) où la référence de la plage ainsi que la couleur sont à adapter :

Sub colorier()
activesheet.range("A1:D4").interior.color = 255
end sub

Il est, de mon point de vue, préférable d'avoir des procédures publiques appelées ou affectées à un bouton plutôt que du code réservé au clic sur le bouton.

Donc ensuite, il faut affecter cette macro au bouton (clic droit sur le bouton, affecter une macro, colorier) ou sinon mettre cette ligne dans la private sub :

Private Sub CommandButton_Click()
call colorier
End Sub

Cdlt,

Bonjour toutes et tous

@Lucas-31

Exemple avec 2 boutons de commande ActiveX

le premier bouton de command1 il colorie la plage de B3 à B10

le second bouton command2, il colorie seulement si la valeur de la plage de D3 à D10 comprend la valeur 0

Option Explicit

Private Sub CommandButton1_Click()
Dim cel
Dim plage As Range

Set plage = Range("B3:B10")
For Each cel In plage
        cel.Interior.ColorIndex = 5 'bleu
Next cel
End Sub

Private Sub CommandButton2_Click()
Dim cel
Dim plage As Range

Set plage = Range("D3:D10")

For Each cel In plage
    If cel.Text = 0 Then
        cel.Interior.ColorIndex = 3 ' rouge
   End If
Next cel
End Sub

Note: il y a une multitude différentes de façon différentes

Edit: coucou 3GB

crdlt,

André

Merci beaucoup, cela a fonctionné !

Bonne journée.