Colorer la case à cocher une fois celle-ci activée

Bonjour,

Suite à ma demande, j'ai reçu une réponse de Arturo83 qui est parfaite par rapport à ma demande, et je voudrais savoir si je pourrais avoir le même style de macro qui agit sur une seule case à cocher au lieu d'un groupe pour une nouvelle création?

Merci

Bonjour

En supposant que tu veuilles colorer la cellule L3

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
    Range("L3").Interior.ColorIndex = 3 'couleur rouge
Else
    Range("L3").Interior.ColorIndex = 15 'couleur gris
End If
End Sub

Crdlt

Bonjour,

Merci pour votre mail, mais est-ce que cela marche pour une case à cocher formulaire?

BAV

J'ai oublie, c'est la case à cocher que je veux colorer et pas une autre cellule

Sorry,

Bonsoir

A ma connaissance on ne peut pas colorer une case à cocher.

Crdlt

Bonjour papout et le forum

Une idée

Private Sub CheckBox1_Click()
    If Me.CheckBox1 = True Then 
          Me.CheckBox2.BackColor = vbRed 
    Else
          Me.CheckBox2.BackColor = vbBlue
    End If
End Sub

Cdt

Papy Henri

Bonsoir AFEH,

Merci pour le mail, mais ça ne fonctionne pas, j'ai un message

Merci,

Re

Désolé, je pensais que la case à cocher était dans un formulaire. Essaie en supprimant les "Me"

Bien entendu, le code est à mettre dans la Feuille concernée (ex: Feuil1) et non dans un module.

Private Sub CheckBox1_Click()
    If CheckBox1 = True Then 
        CheckBox1.BackColor = vbGreen 
    Else 
        CheckBox1.BackColor = vbWhite
    End If
End Sub

Papy Henri

Re bonsoir,

Voici maintenant le message

Merci,

Ce qui est bizarre, c'est une fois la macro copié dans le module, quand je veux faire affecté une macro , je ne vois pas celle-ci dans la boite de dialogue?

Bonsoir,

Un fichier EXCEL anonymisé avec quelques explications permettrait aux intervenants de répondre plus précisément à ta question.

Slts

Bonsoir,

Voici un exemple assez basique, j'ai un stock physique et un stock réel.

Je ne fais pas l'inventaire tous les mois.

J'aurais aimé pouvoir avoir la case à cocher qui se colore quand je l'active càd que j'ai fais l'inventaire.

Bien entendu que les cases à cocher seront dispersées arbitrairement dans la feuille.

Merci,

bonsoir papout, boss_68, joco7915,AFEH

Sub Mon_CheckBox()
     With ActiveSheet.CheckBoxes(Application.Caller)
          .Interior.Color = IIf(.Value <> 1, RGB(255, 0, 0), RGB(0, 255, 0))
      End With
End Sub

Bonsoir papout, le forum

Voir si le fichier joint te convient

Slts

Bonsoir BsAlv, bonsoirBoss_68,

Vous avez 2 façons tout à fait différentes ( quand je regarde le code, mais je n'y comprends rien), mais c'est exactement ce que j'espérais avoir.

Un très grand merci à tout le monde , vous êtes vraiment géniaux.

Papout