Rechercher : dans
Par :

Colorer une cellule en activant case à cocher

Dernière réponse le 2 jan 2009 à 14:18:15 manulelyonnais, le 2 jan 2009 à 13:14:42 
 Signaler ce message aux modérateurs

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

Configuration: Windows XP
Safari 525.19

Meilleures réponses pour « Colorer une cellule en activant case à cocher » dans :
Bloquer les fenêtres pop-up VoirRien de plus agaçant que les fenêtres de publicité intempestives qui s’ouvrent aux quatre coins de l’écran. Pourtant il est assez simple de les bloquer. Le plus souvent, il suffit de modifier l’une des options de votre navigateur. Bloquer les...

1

michel_m, le 2 jan 2009 à 13:32:16

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 Cordialement,
Michel

Répondre à michel_m

2

manulelyonnais, le 2 jan 2009 à 13:42:22

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

Répondre à manulelyonnais

3

 michel_m, le 2 jan 2009 à 14:18:15

Tu mets la police de la m^me couleur que le motif dans la MEFC (vert/vert, blanc/blanc, etc.)
Cordialement,
Michel

Répondre à michel_m