Colorer/Décolorer une cellule avec une case à coch

DVBA 10 Messages postés mercredi 14 mars 2018Date d'inscription 25 mai 2018 Dernière intervention - 17 mars 2018 à 18:51 - Dernière réponse : DVBA 10 Messages postés mercredi 14 mars 2018Date d'inscription 25 mai 2018 Dernière intervention
- 19 mars 2018 à 12:37
Bonjour,

J'aimerai colorer des cellules en particulier avec une case à cocher. Et j'aimerai que quand je décoche la case que la cellule se décolore.
Voici le code que j'ai affecté à l'une des cases sauf que ça ne fonctionne pas quelqu'un aurai la formule correcte svp ?


If Range("B15").Select Then
Selection.Interior.ColorIndex = 3
Else
Selection.Interior.ColorIndex = xlNone
End If



Merci d'avance,
DVBA
Afficher la suite 

Votre réponse

5 réponses

jordane45 22884 Messages postés mercredi 22 octobre 2003Date d'inscriptionModérateurStatut 19 octobre 2018 Dernière intervention - 17 mars 2018 à 19:43
0
Merci
Bonjour,

Comment lances tu cette macro ? Où as tu mis ce code ?
Quel type de case à cocher as tu utilisés ?
Si tu utilises l'enregistreur de macro et que tu coches/decoches cette case, quel code cela te donne t'il ?
As tu essayé en mode pas à pas pour voir ce qu'il se passait dans ton code ? La valeur des variables ?
Quelle version d'excel as tu ?

bref... merci d'être un peu plus précis.
DVBA 10 Messages postés mercredi 14 mars 2018Date d'inscription 25 mai 2018 Dernière intervention - 17 mars 2018 à 20:17
Bonjour,

J'utilise Excel 2013.
Je veux la lancer en cochant ma case, le code est affecté à une "case à cocher"
Quand je le fais avec l'enregistreur de macro, ça me colore ma celle quand je cohe la case mais elle reste colorée quand j'ai décoché la case.
Alors que je voudrais la décolorer, manip que j'ai fais en enregistrant la macro...

Voici le code de l'enregistrment:

With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With

DVBA
Commenter la réponse de jordane45
jordane45 22884 Messages postés mercredi 22 octobre 2003Date d'inscriptionModérateurStatut 19 octobre 2018 Dernière intervention - 17 mars 2018 à 20:36
0
Merci

le code est affecté à une "case à cocher"

Et donc ton code commence par SUB ....
Montre nous ton code ENTIER et pas juste tes quelques lignes.

NB: Pour poster du code sur le forum, merci d'appliquer ceci : http://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code
jordane45 22884 Messages postés mercredi 22 octobre 2003Date d'inscriptionModérateurStatut 19 octobre 2018 Dernière intervention - 17 mars 2018 à 20:42
Et si tu utilises une "Case à cocher"
le code suivant devrait t'aider :
Sub Caseàcocher1_Clic()
    Dim valCase
   If Feuil1.Shapes("Case à cocher 1").ControlFormat.Value = xlOn Then
        MsgBox "Coché."
        Else
        MsgBox "Décoché." 'xlOff
    End If
End Sub

Sinon.. il faut vraiment que tu nous indiques quel composant tu as utilisé pour créer cette case à cocher...
DVBA 10 Messages postés mercredi 14 mars 2018Date d'inscription 25 mai 2018 Dernière intervention - 19 mars 2018 à 12:37
Bonjour,

Oui ce que j'ai envoyé précédement commençait par sub.
Je m'y connais vraiment pas en VBA, je cherchais un code pour colorer ma cellule avec une case à cocher.
Avec l'enregistreur de macro ça fonctionne pas.
Du coup merci pour ton code je vais l'essayer.

Cordialement,
DVBA
Commenter la réponse de jordane45

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.