Colorer une cellule en activant case à cocher [Résolu/Fermé]

Signaler
Messages postés
17
Date d'inscription
lundi 29 mai 2006
Statut
Membre
Dernière intervention
6 janvier 2009
-
Messages postés
16232
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
12 octobre 2020
-
Bonjour,
je vais essayer d'expliquer clairement mon problème.
J'ai un document sous Excel 2003. Dans ce document, j'ai des cases à cocher faites avec l'outil classique d'insertion.

Dans ce fichier Excel, j'ai une colonne "OK" avec une case à cocher n°1 en dessous, et une colonne "NOK" avec une case à cocher n°2 en dessous.
Ce que je souhaiterai réaliser, c'est que lorsque je coche ma case à cocher, la cellule qui est derrière cette case à cocher se colore en vert pour la case à cocher n°1 (OK) et en rouge pour la case à cocher n°2 (NOK).

En consultant divers forums, j'ai créé une petite macro qui fait référence aux cellules à colorer.
Par exemple, pour ma cellule K13 qui est dans la colonne OK (donc que je souhaite colorer en vert lorsque la case à cocher en K13 est cocher, et en blanc lorsqu'elle est est décocher), j'ai la code VBA suivant:

Sub checkbox()
If checkbox = True Then
ActiveSheet.Range("$K$13").Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With

Else
If checkbox = False Then
ActiveSheet.Range("$K$13").Select
With Selection.Interior
.ColorIndex = xlNone
.Pattern = xlSolid
End With
End If
End If
End Sub


Mais ce code ne marche pas. Je me demande si une des raisons ne serait pas parce que je n'ai pas créer mes cases à cocher en ActiveX.

Des aides et conseils sont les bienvenus pour m'aider à comprendre mon problème.
merci à vous

3 réponses

Messages postés
16232
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
12 octobre 2020
3 047
Tu mets la police de la m^me couleur que le motif dans la MEFC (vert/vert, blanc/blanc, etc.)
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60511 internautes nous ont dit merci ce mois-ci

Messages postés
16232
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
12 octobre 2020
3 047
Bonjour,

Tu tiens vraiment à faire ça en macros ?

Tu pourrais le faire avec les Mises en forme conditionnelle...

En utilisant la cellule liée (format de contr^le/ barre outils formulaire) ou Linked cell ( Proprété/ Barre outils controle)

format mise en forme conditionnelle
La valeur de la cellule - est égale - VRAI
format police et motif "vert"
ajouter
La valeur de la cellule - est égale - FAUX
format police=blanc

etc
Messages postés
17
Date d'inscription
lundi 29 mai 2006
Statut
Membre
Dernière intervention
6 janvier 2009

Merci pour ta réponse rapide et efficace, ca marche parfaitement.

En ce qui concerne l'esthétique, peut t-on supprimer ou masquer le "VRAI" et"FAUX" qui s'écrit?
j'ai réussit en "bidouillant" la taille de police a 1, ainsi le "VRAI" ou "FAUX" se cache derrière la case à cocher.

Autre question pour ma culture personnelle : peut-t-on augmenter la taille des case à cocher ?

Merci