J'ai lu je crois tous les posts et autres pages du net sur le sujet, et
je suis sûr qu'il est possible de faire ceci : je cherche a mettre en
couleur des cellules selon le nombre qui y sera imputé, il me faudrait
au moins 5 couleurs ?
J'ai lu que 50 conditions ...
ici : http://www.excelabo.net/xl/conditions.php#50conditions
Si je lis bien " Je voudrais que la cellule A1 s'affiche en rouge
lorsqu'elle contient un fruit appartenant à une liste de plus de 30
fruits. Comment faire ? réponse ===> Tu mets la liste de tes noms pomme
poire pêche abricot n'importe où dans le classeur, ça peut être sur une
feuille cachée et tu nommes cette plage.pour le format conditionnel tu
mets la formule : est égal à : =EQUIV(A1;plage;0)"
ça veut bien dire que si j'ai une liste de 15 chiffres en lieu et place
de pomme, poire... je peux assigner 15 couleurs différentes à cette
cellule ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Nicolas B.
Salut,
ça veut bien dire que si j'ai une liste de 15 chiffres en lieu et place de pomme, poire... je peux assigner 15 couleurs différentes à cette cellule ?
Non, cette méthode marque certains (un grand nombre) fruits avec la même couleur.
La solution à ton problème est ici (toujours sur Excelabo) : http://www.excelabo.net/xl/conditions.php#mefca12couleurs
A+ Nicolas B.
Bonjour,
J'ai lu je crois tous les posts et autres pages du net sur le sujet, et je suis sûr qu'il est possible de faire ceci : je cherche a mettre en couleur des cellules selon le nombre qui y sera imputé, il me faudrait au moins 5 couleurs ?
J'ai lu que 50 conditions ... ici : http://www.excelabo.net/xl/conditions.php#50conditions
Si je lis bien " Je voudrais que la cellule A1 s'affiche en rouge lorsqu'elle contient un fruit appartenant à une liste de plus de 30 fruits. Comment faire ? réponse ===> Tu mets la liste de tes noms pomme poire pêche abricot n'importe où dans le classeur, ça peut être sur une feuille cachée et tu nommes cette plage.pour le format conditionnel tu mets la formule : est égal à : =EQUIV(A1;plage;0)"
ça veut bien dire que si j'ai une liste de 15 chiffres en lieu et place de pomme, poire... je peux assigner 15 couleurs différentes à cette cellule ?
Merci de votre aide
Salut,
ça veut bien dire que si j'ai une liste de 15 chiffres en lieu et place
de pomme, poire... je peux assigner 15 couleurs différentes à cette
cellule ?
Non, cette méthode marque certains (un grand nombre) fruits avec la même
couleur.
La solution à ton problème est ici (toujours sur Excelabo) :
http://www.excelabo.net/xl/conditions.php#mefca12couleurs
A+
Nicolas B.
Bonjour,
J'ai lu je crois tous les posts et autres pages du net sur le sujet, et
je suis sûr qu'il est possible de faire ceci : je cherche a mettre en
couleur des cellules selon le nombre qui y sera imputé, il me faudrait
au moins 5 couleurs ?
J'ai lu que 50 conditions ...
ici : http://www.excelabo.net/xl/conditions.php#50conditions
Si je lis bien " Je voudrais que la cellule A1 s'affiche en rouge
lorsqu'elle contient un fruit appartenant à une liste de plus de 30
fruits. Comment faire ? réponse ===> Tu mets la liste de tes noms pomme
poire pêche abricot n'importe où dans le classeur, ça peut être sur une
feuille cachée et tu nommes cette plage.pour le format conditionnel tu
mets la formule : est égal à : =EQUIV(A1;plage;0)"
ça veut bien dire que si j'ai une liste de 15 chiffres en lieu et place
de pomme, poire... je peux assigner 15 couleurs différentes à cette
cellule ?
ça veut bien dire que si j'ai une liste de 15 chiffres en lieu et place de pomme, poire... je peux assigner 15 couleurs différentes à cette cellule ?
Non, cette méthode marque certains (un grand nombre) fruits avec la même couleur.
La solution à ton problème est ici (toujours sur Excelabo) : http://www.excelabo.net/xl/conditions.php#mefca12couleurs
A+ Nicolas B.
Bonjour,
J'ai lu je crois tous les posts et autres pages du net sur le sujet, et je suis sûr qu'il est possible de faire ceci : je cherche a mettre en couleur des cellules selon le nombre qui y sera imputé, il me faudrait au moins 5 couleurs ?
J'ai lu que 50 conditions ... ici : http://www.excelabo.net/xl/conditions.php#50conditions
Si je lis bien " Je voudrais que la cellule A1 s'affiche en rouge lorsqu'elle contient un fruit appartenant à une liste de plus de 30 fruits. Comment faire ? réponse ===> Tu mets la liste de tes noms pomme poire pêche abricot n'importe où dans le classeur, ça peut être sur une feuille cachée et tu nommes cette plage.pour le format conditionnel tu mets la formule : est égal à : =EQUIV(A1;plage;0)"
ça veut bien dire que si j'ai une liste de 15 chiffres en lieu et place de pomme, poire... je peux assigner 15 couleurs différentes à cette cellule ?
Merci de votre aide
joh[a]n
Wow là c'est légèrement plus compliqué :/
Salut,
ça veut bien dire que si j'ai une liste de 15 chiffres en lieu et place de pomme, poire... je peux assigner 15 couleurs différentes à cette cellule ?
Non, cette méthode marque certains (un grand nombre) fruits avec la même couleur.
La solution à ton problème est ici (toujours sur Excelabo) : http://www.excelabo.net/xl/conditions.php#mefca12couleurs
A+ Nicolas B.
Bonjour,
J'ai lu je crois tous les posts et autres pages du net sur le sujet, et je suis sûr qu'il est possible de faire ceci : je cherche a mettre en couleur des cellules selon le nombre qui y sera imputé, il me faudrait au moins 5 couleurs ?
J'ai lu que 50 conditions ... ici : http://www.excelabo.net/xl/conditions.php#50conditions
Si je lis bien " Je voudrais que la cellule A1 s'affiche en rouge lorsqu'elle contient un fruit appartenant à une liste de plus de 30 fruits. Comment faire ? réponse ===> Tu mets la liste de tes noms pomme poire pêche abricot n'importe où dans le classeur, ça peut être sur une feuille cachée et tu nommes cette plage.pour le format conditionnel tu mets la formule : est égal à : =EQUIV(A1;plage;0)"
ça veut bien dire que si j'ai une liste de 15 chiffres en lieu et place de pomme, poire... je peux assigner 15 couleurs différentes à cette cellule ?
Merci de votre aide
Wow là c'est légèrement plus compliqué :/
Salut,
ça veut bien dire que si j'ai une liste de 15 chiffres en lieu et place
de pomme, poire... je peux assigner 15 couleurs différentes à cette
cellule ?
Non, cette méthode marque certains (un grand nombre) fruits avec la même
couleur.
La solution à ton problème est ici (toujours sur Excelabo) :
http://www.excelabo.net/xl/conditions.php#mefca12couleurs
A+
Nicolas B.
Bonjour,
J'ai lu je crois tous les posts et autres pages du net sur le sujet,
et je suis sûr qu'il est possible de faire ceci : je cherche a mettre
en couleur des cellules selon le nombre qui y sera imputé, il me
faudrait au moins 5 couleurs ?
J'ai lu que 50 conditions ...
ici : http://www.excelabo.net/xl/conditions.php#50conditions
Si je lis bien " Je voudrais que la cellule A1 s'affiche en rouge
lorsqu'elle contient un fruit appartenant à une liste de plus de 30
fruits. Comment faire ? réponse ===> Tu mets la liste de tes noms
pomme poire pêche abricot n'importe où dans le classeur, ça peut être
sur une feuille cachée et tu nommes cette plage.pour le format
conditionnel tu mets la formule : est égal à : =EQUIV(A1;plage;0)"
ça veut bien dire que si j'ai une liste de 15 chiffres en lieu et
place de pomme, poire... je peux assigner 15 couleurs différentes à
cette cellule ?
ça veut bien dire que si j'ai une liste de 15 chiffres en lieu et place de pomme, poire... je peux assigner 15 couleurs différentes à cette cellule ?
Non, cette méthode marque certains (un grand nombre) fruits avec la même couleur.
La solution à ton problème est ici (toujours sur Excelabo) : http://www.excelabo.net/xl/conditions.php#mefca12couleurs
A+ Nicolas B.
Bonjour,
J'ai lu je crois tous les posts et autres pages du net sur le sujet, et je suis sûr qu'il est possible de faire ceci : je cherche a mettre en couleur des cellules selon le nombre qui y sera imputé, il me faudrait au moins 5 couleurs ?
J'ai lu que 50 conditions ... ici : http://www.excelabo.net/xl/conditions.php#50conditions
Si je lis bien " Je voudrais que la cellule A1 s'affiche en rouge lorsqu'elle contient un fruit appartenant à une liste de plus de 30 fruits. Comment faire ? réponse ===> Tu mets la liste de tes noms pomme poire pêche abricot n'importe où dans le classeur, ça peut être sur une feuille cachée et tu nommes cette plage.pour le format conditionnel tu mets la formule : est égal à : =EQUIV(A1;plage;0)"
ça veut bien dire que si j'ai une liste de 15 chiffres en lieu et place de pomme, poire... je peux assigner 15 couleurs différentes à cette cellule ?
Merci de votre aide
joh[a]n
Pardon mais tu pourrais me faire un mini tut sur comment coller ce code ? Je suppose que c'est dans Microsoft Visual Basic ? mais après ? :/
Merci de ton aide
Salut,
ça veut bien dire que si j'ai une liste de 15 chiffres en lieu et place de pomme, poire... je peux assigner 15 couleurs différentes à cette cellule ?
Non, cette méthode marque certains (un grand nombre) fruits avec la même couleur.
La solution à ton problème est ici (toujours sur Excelabo) : http://www.excelabo.net/xl/conditions.php#mefca12couleurs
A+ Nicolas B.
Bonjour,
J'ai lu je crois tous les posts et autres pages du net sur le sujet, et je suis sûr qu'il est possible de faire ceci : je cherche a mettre en couleur des cellules selon le nombre qui y sera imputé, il me faudrait au moins 5 couleurs ?
J'ai lu que 50 conditions ... ici : http://www.excelabo.net/xl/conditions.php#50conditions
Si je lis bien " Je voudrais que la cellule A1 s'affiche en rouge lorsqu'elle contient un fruit appartenant à une liste de plus de 30 fruits. Comment faire ? réponse ===> Tu mets la liste de tes noms pomme poire pêche abricot n'importe où dans le classeur, ça peut être sur une feuille cachée et tu nommes cette plage.pour le format conditionnel tu mets la formule : est égal à : =EQUIV(A1;plage;0)"
ça veut bien dire que si j'ai une liste de 15 chiffres en lieu et place de pomme, poire... je peux assigner 15 couleurs différentes à cette cellule ?
Merci de votre aide
Pardon mais tu pourrais me faire un mini tut sur comment coller ce code
? Je suppose que c'est dans Microsoft Visual Basic ? mais après ? :/
Merci de ton aide
Salut,
ça veut bien dire que si j'ai une liste de 15 chiffres en lieu et place
de pomme, poire... je peux assigner 15 couleurs différentes à cette
cellule ?
Non, cette méthode marque certains (un grand nombre) fruits avec la même
couleur.
La solution à ton problème est ici (toujours sur Excelabo) :
http://www.excelabo.net/xl/conditions.php#mefca12couleurs
A+
Nicolas B.
Bonjour,
J'ai lu je crois tous les posts et autres pages du net sur le sujet,
et je suis sûr qu'il est possible de faire ceci : je cherche a mettre
en couleur des cellules selon le nombre qui y sera imputé, il me
faudrait au moins 5 couleurs ?
J'ai lu que 50 conditions ...
ici : http://www.excelabo.net/xl/conditions.php#50conditions
Si je lis bien " Je voudrais que la cellule A1 s'affiche en rouge
lorsqu'elle contient un fruit appartenant à une liste de plus de 30
fruits. Comment faire ? réponse ===> Tu mets la liste de tes noms
pomme poire pêche abricot n'importe où dans le classeur, ça peut être
sur une feuille cachée et tu nommes cette plage.pour le format
conditionnel tu mets la formule : est égal à : =EQUIV(A1;plage;0)"
ça veut bien dire que si j'ai une liste de 15 chiffres en lieu et
place de pomme, poire... je peux assigner 15 couleurs différentes à
cette cellule ?
Pardon mais tu pourrais me faire un mini tut sur comment coller ce code ? Je suppose que c'est dans Microsoft Visual Basic ? mais après ? :/
Merci de ton aide
Salut,
ça veut bien dire que si j'ai une liste de 15 chiffres en lieu et place de pomme, poire... je peux assigner 15 couleurs différentes à cette cellule ?
Non, cette méthode marque certains (un grand nombre) fruits avec la même couleur.
La solution à ton problème est ici (toujours sur Excelabo) : http://www.excelabo.net/xl/conditions.php#mefca12couleurs
A+ Nicolas B.
Bonjour,
J'ai lu je crois tous les posts et autres pages du net sur le sujet, et je suis sûr qu'il est possible de faire ceci : je cherche a mettre en couleur des cellules selon le nombre qui y sera imputé, il me faudrait au moins 5 couleurs ?
J'ai lu que 50 conditions ... ici : http://www.excelabo.net/xl/conditions.php#50conditions
Si je lis bien " Je voudrais que la cellule A1 s'affiche en rouge lorsqu'elle contient un fruit appartenant à une liste de plus de 30 fruits. Comment faire ? réponse ===> Tu mets la liste de tes noms pomme poire pêche abricot n'importe où dans le classeur, ça peut être sur une feuille cachée et tu nommes cette plage.pour le format conditionnel tu mets la formule : est égal à : =EQUIV(A1;plage;0)"
ça veut bien dire que si j'ai une liste de 15 chiffres en lieu et place de pomme, poire... je peux assigner 15 couleurs différentes à cette cellule ?
Merci de votre aide
Modeste
Bonsour® joh[a]n wrote:
J'ai lu que 50 conditions ...
non tout au plus 30 !!!! voir ici : http://www.xldynamic.com/source/xld.CFPlus.Download.html
@+ -- http://viadresse.com/?94912042
Bonsour® joh[a]n wrote:
J'ai lu que 50 conditions ...
non tout au plus 30 !!!!
voir ici :
http://www.xldynamic.com/source/xld.CFPlus.Download.html
non tout au plus 30 !!!! voir ici : http://www.xldynamic.com/source/xld.CFPlus.Download.html
@+ -- http://viadresse.com/?94912042
Nicolas B.
Le code est à coller dans le module de la feuille : ALT + F11 pour ouvrir VBA, dans la fenêtre de gauche double clique sur la feuille concernée par les MEFC (par exemple Feuil1) puis colle le code.
Tel quel il applique une couleur de cellule différente pour les valeurs zaza, zezette, jean-paul et paul (sans respecter la casse).
Si tu veux appliquer la MEFC seulement à certaines cellules seulement de ta feuille rajoute en début de code (la ligne après le Private Sub Worksheet_SelectionChange()) ceci :
If Intersect(Range("A1:A9"), Target) Is Nothing Then Exit Sub (MEFC appliquée à la plage A1:A9 seulement.)
Essaie aussi avec la procédure évenementielle Worksheet_change, qui n'exécute la macro que lorsque la feuille est modifiée :
Remplace : Private Sub Worksheet_SelectionChange(ByVal Target As Range) par : Private Sub Worksheet_Change(ByVal Target As Range)
Ensuite, tu remarqueras peut-être que si tu tapes un nom qui n'est pas dans la liste, la couleur de la cellule ne change pas. Pour remettre la couleur blanche, il faut rajouter quelques lignes dans le Select Case : Avant le End Select, rajoute ces cinq lignes :
Case Else With Target.Interior .ColorIndex = 0 .Pattern = xlSolid End With
Finalement, la macro devrait ressembler à ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("A1:A9"), Target) Is Nothing Then Exit Sub
Select Case UCase(Target) Case "ZAZA" With Target.Interior .ColorIndex = 7 .Pattern = xlSolid End With Case "ZEZETTE" With Target.Interior .ColorIndex = 8 .Pattern = xlSolid End With Case "JEAN-PAUL" With Target.Interior .ColorIndex = 3 .Pattern = xlSolid End With Case "PAUL" With Target.Interior .ColorIndex = 6 .Pattern = xlSolid End With Case Else With Target.Interior .ColorIndex = 0 .Pattern = xlSolid End With End Select
End Sub
Pour terminer, il y a un problème si tu modifies plusieurs cellules simultanément (par exemple, si tu sélectionnes A1:A3 et que tu appuies sur la touche SUPPR). Il faut alors traiter le cas de chaque cellule indépendamment :
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("A1:A9"), Target) Is Nothing Then Exit Sub
Dim c As Range
For Each c In Intersect(Range("A1:A9"), Target) Select Case UCase(c) Case "ZAZA" With c.Interior .ColorIndex = 7 .Pattern = xlSolid End With Case "ZEZETTE" With c.Interior .ColorIndex = 8 .Pattern = xlSolid End With Case "JEAN-PAUL" With c.Interior .ColorIndex = 3 .Pattern = xlSolid End With Case "PAUL" With c.Interior .ColorIndex = 6 .Pattern = xlSolid End With Case Else With c.Interior .ColorIndex = 0 .Pattern = xlSolid End With End Select Next
End Sub
A+ Nicolas B.
Pardon mais tu pourrais me faire un mini tut sur comment coller ce code ? Je suppose que c'est dans Microsoft Visual Basic ? mais après ? :/
Merci de ton aide
Salut,
ça veut bien dire que si j'ai une liste de 15 chiffres en lieu et place
de pomme, poire... je peux assigner 15 couleurs différentes à cette cellule ?
Non, cette méthode marque certains (un grand nombre) fruits avec la même couleur.
La solution à ton problème est ici (toujours sur Excelabo) : http://www.excelabo.net/xl/conditions.php#mefca12couleurs
A+ Nicolas B.
Bonjour,
J'ai lu je crois tous les posts et autres pages du net sur le sujet, et je suis sûr qu'il est possible de faire ceci : je cherche a mettre en couleur des cellules selon le nombre qui y sera imputé, il me faudrait au moins 5 couleurs ?
J'ai lu que 50 conditions ... ici : http://www.excelabo.net/xl/conditions.php#50conditions
Si je lis bien " Je voudrais que la cellule A1 s'affiche en rouge lorsqu'elle contient un fruit appartenant à une liste de plus de 30 fruits. Comment faire ? réponse ===> Tu mets la liste de tes noms pomme poire pêche abricot n'importe où dans le classeur, ça peut être sur une feuille cachée et tu nommes cette plage.pour le format conditionnel tu mets la formule : est égal à : =EQUIV(A1;plage;0)"
ça veut bien dire que si j'ai une liste de 15 chiffres en lieu et place de pomme, poire... je peux assigner 15 couleurs différentes à cette cellule ?
Merci de votre aide
Le code est à coller dans le module de la feuille :
ALT + F11 pour ouvrir VBA, dans la fenêtre de gauche double clique sur
la feuille concernée par les MEFC (par exemple Feuil1) puis colle le code.
Tel quel il applique une couleur de cellule différente pour les valeurs
zaza, zezette, jean-paul et paul (sans respecter la casse).
Si tu veux appliquer la MEFC seulement à certaines cellules seulement de
ta feuille rajoute en début de code (la ligne après le Private Sub
Worksheet_SelectionChange()) ceci :
If Intersect(Range("A1:A9"), Target) Is Nothing Then Exit Sub
(MEFC appliquée à la plage A1:A9 seulement.)
Essaie aussi avec la procédure évenementielle Worksheet_change, qui
n'exécute la macro que lorsque la feuille est modifiée :
Remplace :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
par :
Private Sub Worksheet_Change(ByVal Target As Range)
Ensuite, tu remarqueras peut-être que si tu tapes un nom qui n'est pas
dans la liste, la couleur de la cellule ne change pas. Pour remettre la
couleur blanche, il faut rajouter quelques lignes dans le Select Case :
Avant le End Select, rajoute ces cinq lignes :
Case Else
With Target.Interior
.ColorIndex = 0
.Pattern = xlSolid
End With
Finalement, la macro devrait ressembler à ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("A1:A9"), Target) Is Nothing Then Exit Sub
Select Case UCase(Target)
Case "ZAZA"
With Target.Interior
.ColorIndex = 7
.Pattern = xlSolid
End With
Case "ZEZETTE"
With Target.Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
Case "JEAN-PAUL"
With Target.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
Case "PAUL"
With Target.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Case Else
With Target.Interior
.ColorIndex = 0
.Pattern = xlSolid
End With
End Select
End Sub
Pour terminer, il y a un problème si tu modifies plusieurs cellules
simultanément (par exemple, si tu sélectionnes A1:A3 et que tu appuies
sur la touche SUPPR). Il faut alors traiter le cas de chaque cellule
indépendamment :
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("A1:A9"), Target) Is Nothing Then Exit Sub
Dim c As Range
For Each c In Intersect(Range("A1:A9"), Target)
Select Case UCase(c)
Case "ZAZA"
With c.Interior
.ColorIndex = 7
.Pattern = xlSolid
End With
Case "ZEZETTE"
With c.Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
Case "JEAN-PAUL"
With c.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
Case "PAUL"
With c.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Case Else
With c.Interior
.ColorIndex = 0
.Pattern = xlSolid
End With
End Select
Next
End Sub
A+
Nicolas B.
Pardon mais tu pourrais me faire un mini tut sur comment coller ce code
? Je suppose que c'est dans Microsoft Visual Basic ? mais après ? :/
Merci de ton aide
Salut,
ça veut bien dire que si j'ai une liste de 15 chiffres en lieu et
place
de pomme, poire... je peux assigner 15 couleurs différentes à cette
cellule ?
Non, cette méthode marque certains (un grand nombre) fruits avec la
même couleur.
La solution à ton problème est ici (toujours sur Excelabo) :
http://www.excelabo.net/xl/conditions.php#mefca12couleurs
A+
Nicolas B.
Bonjour,
J'ai lu je crois tous les posts et autres pages du net sur le sujet,
et je suis sûr qu'il est possible de faire ceci : je cherche a mettre
en couleur des cellules selon le nombre qui y sera imputé, il me
faudrait au moins 5 couleurs ?
J'ai lu que 50 conditions ...
ici : http://www.excelabo.net/xl/conditions.php#50conditions
Si je lis bien " Je voudrais que la cellule A1 s'affiche en rouge
lorsqu'elle contient un fruit appartenant à une liste de plus de 30
fruits. Comment faire ? réponse ===> Tu mets la liste de tes noms
pomme poire pêche abricot n'importe où dans le classeur, ça peut être
sur une feuille cachée et tu nommes cette plage.pour le format
conditionnel tu mets la formule : est égal à : =EQUIV(A1;plage;0)"
ça veut bien dire que si j'ai une liste de 15 chiffres en lieu et
place de pomme, poire... je peux assigner 15 couleurs différentes à
cette cellule ?
Le code est à coller dans le module de la feuille : ALT + F11 pour ouvrir VBA, dans la fenêtre de gauche double clique sur la feuille concernée par les MEFC (par exemple Feuil1) puis colle le code.
Tel quel il applique une couleur de cellule différente pour les valeurs zaza, zezette, jean-paul et paul (sans respecter la casse).
Si tu veux appliquer la MEFC seulement à certaines cellules seulement de ta feuille rajoute en début de code (la ligne après le Private Sub Worksheet_SelectionChange()) ceci :
If Intersect(Range("A1:A9"), Target) Is Nothing Then Exit Sub (MEFC appliquée à la plage A1:A9 seulement.)
Essaie aussi avec la procédure évenementielle Worksheet_change, qui n'exécute la macro que lorsque la feuille est modifiée :
Remplace : Private Sub Worksheet_SelectionChange(ByVal Target As Range) par : Private Sub Worksheet_Change(ByVal Target As Range)
Ensuite, tu remarqueras peut-être que si tu tapes un nom qui n'est pas dans la liste, la couleur de la cellule ne change pas. Pour remettre la couleur blanche, il faut rajouter quelques lignes dans le Select Case : Avant le End Select, rajoute ces cinq lignes :
Case Else With Target.Interior .ColorIndex = 0 .Pattern = xlSolid End With
Finalement, la macro devrait ressembler à ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("A1:A9"), Target) Is Nothing Then Exit Sub
Select Case UCase(Target) Case "ZAZA" With Target.Interior .ColorIndex = 7 .Pattern = xlSolid End With Case "ZEZETTE" With Target.Interior .ColorIndex = 8 .Pattern = xlSolid End With Case "JEAN-PAUL" With Target.Interior .ColorIndex = 3 .Pattern = xlSolid End With Case "PAUL" With Target.Interior .ColorIndex = 6 .Pattern = xlSolid End With Case Else With Target.Interior .ColorIndex = 0 .Pattern = xlSolid End With End Select
End Sub
Pour terminer, il y a un problème si tu modifies plusieurs cellules simultanément (par exemple, si tu sélectionnes A1:A3 et que tu appuies sur la touche SUPPR). Il faut alors traiter le cas de chaque cellule indépendamment :
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("A1:A9"), Target) Is Nothing Then Exit Sub
Dim c As Range
For Each c In Intersect(Range("A1:A9"), Target) Select Case UCase(c) Case "ZAZA" With c.Interior .ColorIndex = 7 .Pattern = xlSolid End With Case "ZEZETTE" With c.Interior .ColorIndex = 8 .Pattern = xlSolid End With Case "JEAN-PAUL" With c.Interior .ColorIndex = 3 .Pattern = xlSolid End With Case "PAUL" With c.Interior .ColorIndex = 6 .Pattern = xlSolid End With Case Else With c.Interior .ColorIndex = 0 .Pattern = xlSolid End With End Select Next
End Sub
A+ Nicolas B.
Pardon mais tu pourrais me faire un mini tut sur comment coller ce code ? Je suppose que c'est dans Microsoft Visual Basic ? mais après ? :/
Merci de ton aide
Salut,
ça veut bien dire que si j'ai une liste de 15 chiffres en lieu et place
de pomme, poire... je peux assigner 15 couleurs différentes à cette cellule ?
Non, cette méthode marque certains (un grand nombre) fruits avec la même couleur.
La solution à ton problème est ici (toujours sur Excelabo) : http://www.excelabo.net/xl/conditions.php#mefca12couleurs
A+ Nicolas B.
Bonjour,
J'ai lu je crois tous les posts et autres pages du net sur le sujet, et je suis sûr qu'il est possible de faire ceci : je cherche a mettre en couleur des cellules selon le nombre qui y sera imputé, il me faudrait au moins 5 couleurs ?
J'ai lu que 50 conditions ... ici : http://www.excelabo.net/xl/conditions.php#50conditions
Si je lis bien " Je voudrais que la cellule A1 s'affiche en rouge lorsqu'elle contient un fruit appartenant à une liste de plus de 30 fruits. Comment faire ? réponse ===> Tu mets la liste de tes noms pomme poire pêche abricot n'importe où dans le classeur, ça peut être sur une feuille cachée et tu nommes cette plage.pour le format conditionnel tu mets la formule : est égal à : =EQUIV(A1;plage;0)"
ça veut bien dire que si j'ai une liste de 15 chiffres en lieu et place de pomme, poire... je peux assigner 15 couleurs différentes à cette cellule ?