A voir également:
- Couleur cellule en fonction de 4 résultats
- Excel cellule couleur si condition texte - Guide
- Fonction si et - Guide
- Somme si couleur - Guide
- Aller à la ligne dans une cellule excel - Guide
- Verrouiller cellule excel - Guide
10 réponses
UsulArrakis
Messages postés
7405
Date d'inscription
vendredi 28 mars 2003
Statut
Contributeur
Dernière intervention
27 janvier 2022
3 182
23 juil. 2009 à 16:24
23 juil. 2009 à 16:24
salut
voir ce lien : http://perso.orange.fr/galopin01/Perso/MFCPlus.xls
voir ce lien : http://perso.orange.fr/galopin01/Perso/MFCPlus.xls
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
Mike-31
Messages postés
18318
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 076
23 juil. 2009 à 17:34
23 juil. 2009 à 17:34
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
UsulArrakis
Messages postés
7405
Date d'inscription
vendredi 28 mars 2003
Statut
Contributeur
Dernière intervention
27 janvier 2022
3 182
24 juil. 2009 à 09:18
24 juil. 2009 à 09:18
mets ton fichier sur cijoint.fr on pourra travailler directement dessus
Mike-31
Messages postés
18318
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 076
24 juil. 2009 à 10:15
24 juil. 2009 à 10:15
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
Mike-31
Messages postés
18318
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 076
24 juil. 2009 à 13:43
24 juil. 2009 à 13:43
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)
Mike-31
Messages postés
18318
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 076
24 juil. 2009 à 14:33
24 juil. 2009 à 14:33
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)
Mike-31
Messages postés
18318
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 076
24 juil. 2009 à 21:23
24 juil. 2009 à 21:23
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)
