couleur cellule en fonction de 4 résultats Fermé

Question

Bonjour,

Après avoir longuement recherchée une solution sur le forum, je préfère la poser en fonction de mon cas précis.

Je recherche comment faire en sorte que une couleur se mette automatiquement en fonction du résultat de ma cellule.
Voici mon exemple:
Feuille 1
 A                  B
Hiver             Décembre
Eté                Août
Printemps      Mars
Automne       Novembre

Feuille 2
En A1: Liste déroulante (Hiver;Eté;Printemps;Automne)
En A2: =SI(A1=Feuil1!A1;Feuil1!B1;SI(A1=Feuil1!A2;Feuil1!B2;SI(A1=Feuil1!A3;Feuil1!B3;SI(A1=Feuil1!A4;Feuil1!B4;""))))

Si je saisi en A1 Hiver, en A2 s'affiche "Décembre".
Jusque là tout va bien.
Comment faire que quand décembre s'affiche, la cellule se mette en rouge.
Pour Août, en vert. Pour Mars, en jaune et pour Novembre en orange.

Pas possible de faire Format/Mise en forme conditionnelle car 4 conditions.
J'ai essayé aussi de copier/coller des codes VBA mais je n'y connais rien. Peut être que les cas n'étaient pas vraiment appropriés à mon exemple. Peut être le fait d'utiliser plusieurs feuilles dans ma fonction fait que c'est différent...
Dites moi si ma question n'est pas claire
Merci de votre aide
Dédette

UsulArrakis · Answer

salut
voir ce lien : http://perso.orange.fr/galopin01/Perso/MFCPlus.xls

dédette · Answer

Merci mais ça ne fonctionne pas... 
Quand je saisi une lettre dans la zone, la couleur ne change pas. J'ai affiché les colonnes cachées, les chiffres y changent bien.
Comme je le disais je ne connais pas VBA. Auriez vous une solution adaptée à mon cas précis ?
Merci beaucoup

Mike-31 · Answer

Salut,

En mise en forme conditionnelle, il n'y a aucun problème jusqu'a quatre couleurs, l'astuce est de coloriser la cellule par exemple en rouge et de faire une mise en forme conditionnelle à trois conditions 
Août, en vert, Mars, en jaune et Novembre en orange.
Mais dans ton cas je pense que les autres mois doivent rester en blanc, si c'est le cas il faut passer en VBA

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

dédette · Answer

Bonjour,
Merci pour votre réponse. Effectivement, je crois que je ne vais pas avoir d'autre choix que de passer par VBA.
N'y connaissant pas grand chose, pouvez vous m'indiquez la marche à suivre pour mon exemple? Je ne vais pas y arriver toute seule...
Merci beaucoup.
Dédette

UsulArrakis · Answer

mets ton fichier sur cijoint.fr on pourra travailler directement dessus

Mike-31 · Answer

Salut,

Récupères un petit fichier exemple avec le lien ci-dessous

https://www.cjoint.com/?hykoLSjfW0

Sur la feuille 1, cellule A2 traitée avec la mise en forme conditionnelle.

Les feuilles 2 et 3 traitées par code VBA très simple et facile à modifier pour l'adapter à tes besoins.

Le code macro se trouve sur la propriété de chaque feuille, pour y accéder, clic droit sur l'onglet de feuille concerné.
Dans le code après une apostrophe, en vert les explications du code, ce qui te permettra de modifier ou d'ajouter facilement des conditions

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

dédette · Answer

Merci beaucoup ! 
La macro me semble pour une fois compréhensible !
J'essaie de l'utiliser pour mon exemple.
Juste une petite question : la zone où la MFC est traitée est de A2 à A50 (sur la feuille 3) d'où :

For i = 2 To 50 'rangées de 2 à 50

Comment je peux faire pour que la zone comprenne plusieurs lignes mais aussi plusieurs colonnes, par exemple la zone A2:B50 ?
Merci de cette précision
Dédette

Mike-31 · Answer

Re,

Pour rester dans la simplicité, commences par mettre la zone que tu souhaites traiter exemple la plage A2 à G50 en surbrillance et nommes là exemple dans mon code Tableau (Insertion/Nom/Définir)
et colles ce code dans les propriétés de la feuille concernée (clic droit sur l'onglet de feuille/Visualiser le code)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Tabl As Range
Dim Cellule As Variant
For Each Cellule In Range("Tableau")
'condition 1
If Cellule = "Décembre" Then 'colonne A
Cellule.Interior.ColorIndex = 3 'cellule rouge
'condition 2
ElseIf Cellule = "Août" Then 'colonne A
Cellule.Interior.ColorIndex = 4 'cellule verte
'condition 3
ElseIf Cellule = "Mars" Then 'colonne A
Cellule.Interior.ColorIndex = 6 'cellule jaune
'condition 4
ElseIf Cellule = "Novembre" Then 'colonne A
Cellule.Interior.ColorIndex = 44 'cellule orange
'Pour annuler la couleur si la valeur est différente
ElseIf Cellule <> "Décembre" <> "Août" <> "Mars" <> "Novembre" Then 'colonne A
Cellule.Interior.ColorIndex = xlNone 'colonne B cellule sans couleur
End If
Next Cellule
End Sub

A+
Mike-31

Un problème sans solution est un problème mal posé (Einstein)

Mike-31 · Answer

Re,

Regardes si les modifs te conviennent

https://www.cjoint.com/?hyoHpiwJoX

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Mike-31 · Answer

Re,

Récupères ton fichier avec le lien et on en reparle

https://www.cjoint.com/?hyvw7W4KYg

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Couleur cellule en fonction de 4 résultats

10 réponses

Discussions similaires