Couleur cellule en fonction de 4 résultats
dédette
-
dédette -
dédette -
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
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
A voir également:
- Couleur cellule en fonction de 4 résultats
- Fonction si et - Guide
- Excel cellule couleur si condition texte - Guide
- Resultats foot - Télécharger - Vie quotidienne
- Excel somme si couleur cellule - Guide
- Code de triche gta 4 - Guide
10 réponses
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
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
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)
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)
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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)
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)
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
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
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)
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)
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)
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)
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)
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)
