Bonjour à tous,
En colonne B, mes cellules contiennent la liste "Données validation" avec le
nom "=Liste!$A$2:$A$36"
En colonne C, j'ai la formule suivante :
=SI(B3="";"";(RECHERCHEV($B3;Liste$A$2:$D$35;2)))
En colonne D, j'ai la formule suivante :
=SI(B3="";"";(RECHERCHEV($B3;Liste$A$2:$D$35;3)))
En colonne E, j'ai la formule suivante :
=SI(B3="";"";(RECHERCHEV($B3;Liste$A$2:$D$35;4)))
Avant de mettre ces formules en colonne E, dès que j'avais un mot
spécifique, toute la ligne se colorisait, maintenant qu'il ya une formule le
mot apparaît bien mais ne colorise plus la ligne.
If [Target] = "Jardinage" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 4
Range(Cells(Target.Row, 6), Cells(Target.Row, 1)).Font.ColorIndex =
1
Exit Sub
End If
Y a t-il un moyen de pouvoir quand même le faire ?
--
Cordialement
Guy
Re.. Si tu regardes BIEN dans le fichier que je t'ai retourné tu verras que le code événementiel du ThisWorkbook est modifié. Target n'est pas la colonne(E) dont tu tiens compte pour peinturlurer mais la colonne B. Il faut donc décaler Ceci
If [Target] = "La Mer" Then......
devient If Cells(Target.Row, 5) = "La Mer" Then......
-- Salutations JJ
"Guy72" a écrit dans le message de news:
Bonjour Jacky, Je n'arrive pas à comprendre, pourquoi quand j'ajoute un mot dans la liste et que j'ajoute son code avec les autres, ça ne fonctionne pas ? Les nouveaux textes en A et en E sont bien là, mais la couleur ne se fait pas. Exemple : ASF-->Prélèvement-->Autoroute-->La Mer (couleur bleu). J'ai ajouter ça If [Target] = "La Mer" Then Range(Cells(Target.Row, 6), Cells(Target.Row, 1)).Interior.ColorIndex = 5 Range(Cells(Target.Row, 6), Cells(Target.Row, 1)).Font.ColorIndex = 2 Exit Sub End If -- Cordialement Guy "Jacky" a écrit dans le message de news:
C'et dejà bien ;o) mais ça ne mets toujours pas la ligne en couleur. J'ai pas vérifier cela , ce soir ...peut-être
-- Salutations JJ
"Guy72" a écrit dans le message de news: %23cCeM%
Bonjour Jacky, D'accord, mais ça ne mets toujours pas la ligne en couleur. -- Cordialement Guy "Jacky" a écrit dans le message de news: %
Re. J'ai oublié la colonne E, mais tu as certainement corrigé. ;o)
-- Salutations JJ
"Jacky" a écrit dans le message de news:
Bonsoir,
Ignorer le dernier argument de RevhercheV n'est pas une bonne idée En C3 =SI($B3="";"";(RECHERCHEV($B3;Liste!$A$2:$D$15;2;0))) En D3 =SI($B3="";"";(RECHERCHEV($B3;Liste!$A$2:$D$15;3;0)))
-- Salutations JJ
"Guy72" a écrit dans le message de news: %
Bonjour à tous, En colonne B, mes cellules contiennent la liste "Données validation" avec le nom "=Liste!$A$2:$A$36" En colonne C, j'ai la formule suivante : =SI(B3="";"";(RECHERCHEV($B3;Liste$A$2:$D$35;2))) En colonne D, j'ai la formule suivante : =SI(B3="";"";(RECHERCHEV($B3;Liste$A$2:$D$35;3))) En colonne E, j'ai la formule suivante : =SI(B3="";"";(RECHERCHEV($B3;Liste$A$2:$D$35;4))) Avant de mettre ces formules en colonne E, dès que j'avais un mot spécifique, toute la ligne se colorisait, maintenant qu'il ya une formule le mot apparaît bien mais ne colorise plus la ligne. If [Target] = "Jardinage" Then Range(Cells(Target.Row, 6), Cells(Target.Row, 1)).Interior.ColorIndex = 4 Range(Cells(Target.Row, 6), Cells(Target.Row, 1)).Font.ColorIndex = 1 Exit Sub End If Y a t-il un moyen de pouvoir quand même le faire ? -- Cordialement Guy
Re..
Si tu regardes BIEN dans le fichier que je t'ai retourné tu verras que le
code événementiel du ThisWorkbook est modifié.
Target n'est pas la colonne(E) dont tu tiens compte pour peinturlurer mais
la colonne B.
Il faut donc décaler
Ceci
If [Target] = "La Mer" Then......
devient
If Cells(Target.Row, 5) = "La Mer" Then......
--
Salutations
JJ
"Guy72" <guy72@bonjour.tous> a écrit dans le message de news:
uxVxJldXJHA.556@TK2MSFTNGP06.phx.gbl...
Bonjour Jacky,
Je n'arrive pas à comprendre, pourquoi quand j'ajoute un mot dans la liste
et que j'ajoute son code avec les autres, ça ne fonctionne pas ?
Les nouveaux textes en A et en E sont bien là, mais la couleur ne se fait
pas.
Exemple : ASF-->Prélèvement-->Autoroute-->La Mer (couleur bleu).
J'ai ajouter ça
If [Target] = "La Mer" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 5
Range(Cells(Target.Row, 6), Cells(Target.Row, 1)).Font.ColorIndex =
2
Exit Sub
End If
--
Cordialement
Guy
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
eruUSqVXJHA.2372@TK2MSFTNGP03.phx.gbl...
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
e3kz2EUXJHA.256@TK2MSFTNGP06.phx.gbl...
Re...
D'accord,
C'et dejà bien ;o)
mais ça ne mets toujours pas la ligne en couleur.
J'ai pas vérifier cela , ce soir ...peut-être
--
Salutations
JJ
"Guy72" <guy72@bonjour.tous> a écrit dans le message de news:
%23cCeM%23TXJHA.1184@TK2MSFTNGP05.phx.gbl...
Bonjour Jacky,
D'accord, mais ça ne mets toujours pas la ligne en couleur.
--
Cordialement
Guy
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
%23Jh6B1TXJHA.4944@TK2MSFTNGP03.phx.gbl...
Re.
J'ai oublié la colonne E, mais tu as certainement corrigé.
;o)
--
Salutations
JJ
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
uDcvywTXJHA.1184@TK2MSFTNGP05.phx.gbl...
Bonsoir,
Ignorer le dernier argument de RevhercheV n'est pas une bonne idée
En C3
=SI($B3="";"";(RECHERCHEV($B3;Liste!$A$2:$D$15;2;0)))
En D3
=SI($B3="";"";(RECHERCHEV($B3;Liste!$A$2:$D$15;3;0)))
--
Salutations
JJ
"Guy72" <guy72@bonjour.tous> a écrit dans le message de news:
%235QbaHRXJHA.256@TK2MSFTNGP06.phx.gbl...
Bonjour à tous,
En colonne B, mes cellules contiennent la liste "Données validation"
avec le nom "=Liste!$A$2:$A$36"
En colonne C, j'ai la formule suivante :
=SI(B3="";"";(RECHERCHEV($B3;Liste$A$2:$D$35;2)))
En colonne D, j'ai la formule suivante :
=SI(B3="";"";(RECHERCHEV($B3;Liste$A$2:$D$35;3)))
En colonne E, j'ai la formule suivante :
=SI(B3="";"";(RECHERCHEV($B3;Liste$A$2:$D$35;4)))
Avant de mettre ces formules en colonne E, dès que j'avais un mot
spécifique, toute la ligne se colorisait, maintenant qu'il ya une
formule le mot apparaît bien mais ne colorise plus la ligne.
If [Target] = "Jardinage" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 4
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Font.ColorIndex = 1
Exit Sub
End If
Y a t-il un moyen de pouvoir quand même le faire ?
--
Cordialement
Guy
Re.. Si tu regardes BIEN dans le fichier que je t'ai retourné tu verras que le code événementiel du ThisWorkbook est modifié. Target n'est pas la colonne(E) dont tu tiens compte pour peinturlurer mais la colonne B. Il faut donc décaler Ceci
If [Target] = "La Mer" Then......
devient If Cells(Target.Row, 5) = "La Mer" Then......
-- Salutations JJ
"Guy72" a écrit dans le message de news:
Bonjour Jacky, Je n'arrive pas à comprendre, pourquoi quand j'ajoute un mot dans la liste et que j'ajoute son code avec les autres, ça ne fonctionne pas ? Les nouveaux textes en A et en E sont bien là, mais la couleur ne se fait pas. Exemple : ASF-->Prélèvement-->Autoroute-->La Mer (couleur bleu). J'ai ajouter ça If [Target] = "La Mer" Then Range(Cells(Target.Row, 6), Cells(Target.Row, 1)).Interior.ColorIndex = 5 Range(Cells(Target.Row, 6), Cells(Target.Row, 1)).Font.ColorIndex = 2 Exit Sub End If -- Cordialement Guy "Jacky" a écrit dans le message de news:
C'et dejà bien ;o) mais ça ne mets toujours pas la ligne en couleur. J'ai pas vérifier cela , ce soir ...peut-être
-- Salutations JJ
"Guy72" a écrit dans le message de news: %23cCeM%
Bonjour Jacky, D'accord, mais ça ne mets toujours pas la ligne en couleur. -- Cordialement Guy "Jacky" a écrit dans le message de news: %
Re. J'ai oublié la colonne E, mais tu as certainement corrigé. ;o)
-- Salutations JJ
"Jacky" a écrit dans le message de news:
Bonsoir,
Ignorer le dernier argument de RevhercheV n'est pas une bonne idée En C3 =SI($B3="";"";(RECHERCHEV($B3;Liste!$A$2:$D$15;2;0))) En D3 =SI($B3="";"";(RECHERCHEV($B3;Liste!$A$2:$D$15;3;0)))
-- Salutations JJ
"Guy72" a écrit dans le message de news: %
Bonjour à tous, En colonne B, mes cellules contiennent la liste "Données validation" avec le nom "=Liste!$A$2:$A$36" En colonne C, j'ai la formule suivante : =SI(B3="";"";(RECHERCHEV($B3;Liste$A$2:$D$35;2))) En colonne D, j'ai la formule suivante : =SI(B3="";"";(RECHERCHEV($B3;Liste$A$2:$D$35;3))) En colonne E, j'ai la formule suivante : =SI(B3="";"";(RECHERCHEV($B3;Liste$A$2:$D$35;4))) Avant de mettre ces formules en colonne E, dès que j'avais un mot spécifique, toute la ligne se colorisait, maintenant qu'il ya une formule le mot apparaît bien mais ne colorise plus la ligne. If [Target] = "Jardinage" Then Range(Cells(Target.Row, 6), Cells(Target.Row, 1)).Interior.ColorIndex = 4 Range(Cells(Target.Row, 6), Cells(Target.Row, 1)).Font.ColorIndex = 1 Exit Sub End If Y a t-il un moyen de pouvoir quand même le faire ? -- Cordialement Guy
Guy72
Re..... Mais oui, suis-je bête, en effet, je n'ai pas BIEN regardé. Merci encore -- Cordialement Guy "Jacky" a écrit dans le message de news:
Re.. Si tu regardes BIEN dans le fichier que je t'ai retourné tu verras que le code événementiel du ThisWorkbook est modifié. Target n'est pas la colonne(E) dont tu tiens compte pour peinturlurer mais la colonne B. Il faut donc décaler Ceci
If [Target] = "La Mer" Then......
devient If Cells(Target.Row, 5) = "La Mer" Then......
-- Salutations JJ
"Guy72" a écrit dans le message de news:
Bonjour Jacky, Je n'arrive pas à comprendre, pourquoi quand j'ajoute un mot dans la liste et que j'ajoute son code avec les autres, ça ne fonctionne pas ? Les nouveaux textes en A et en E sont bien là, mais la couleur ne se fait pas. Exemple : ASF-->Prélèvement-->Autoroute-->La Mer (couleur bleu). J'ai ajouter ça If [Target] = "La Mer" Then Range(Cells(Target.Row, 6), Cells(Target.Row, 1)).Interior.ColorIndex = 5 Range(Cells(Target.Row, 6), Cells(Target.Row, 1)).Font.ColorIndex = 2 Exit Sub End If -- Cordialement Guy "Jacky" a écrit dans le message de news:
C'et dejà bien ;o) mais ça ne mets toujours pas la ligne en couleur. J'ai pas vérifier cela , ce soir ...peut-être
-- Salutations JJ
"Guy72" a écrit dans le message de news: %23cCeM%
Bonjour Jacky, D'accord, mais ça ne mets toujours pas la ligne en couleur. -- Cordialement Guy "Jacky" a écrit dans le message de news: %
Re. J'ai oublié la colonne E, mais tu as certainement corrigé. ;o)
-- Salutations JJ
"Jacky" a écrit dans le message de news:
Bonsoir,
Ignorer le dernier argument de RevhercheV n'est pas une bonne idée En C3 =SI($B3="";"";(RECHERCHEV($B3;Liste!$A$2:$D$15;2;0))) En D3 =SI($B3="";"";(RECHERCHEV($B3;Liste!$A$2:$D$15;3;0)))
-- Salutations JJ
"Guy72" a écrit dans le message de news: %
Bonjour à tous, En colonne B, mes cellules contiennent la liste "Données validation" avec le nom "=Liste!$A$2:$A$36" En colonne C, j'ai la formule suivante : =SI(B3="";"";(RECHERCHEV($B3;Liste$A$2:$D$35;2))) En colonne D, j'ai la formule suivante : =SI(B3="";"";(RECHERCHEV($B3;Liste$A$2:$D$35;3))) En colonne E, j'ai la formule suivante : =SI(B3="";"";(RECHERCHEV($B3;Liste$A$2:$D$35;4))) Avant de mettre ces formules en colonne E, dès que j'avais un mot spécifique, toute la ligne se colorisait, maintenant qu'il ya une formule le mot apparaît bien mais ne colorise plus la ligne. If [Target] = "Jardinage" Then Range(Cells(Target.Row, 6), Cells(Target.Row, 1)).Interior.ColorIndex = 4 Range(Cells(Target.Row, 6), Cells(Target.Row, 1)).Font.ColorIndex = 1 Exit Sub End If Y a t-il un moyen de pouvoir quand même le faire ? -- Cordialement Guy
Re.....
Mais oui, suis-je bête, en effet, je n'ai pas BIEN regardé.
Merci encore
--
Cordialement
Guy
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
O3eQBieXJHA.2444@TK2MSFTNGP02.phx.gbl...
Re..
Si tu regardes BIEN dans le fichier que je t'ai retourné tu verras que le
code événementiel du ThisWorkbook est modifié.
Target n'est pas la colonne(E) dont tu tiens compte pour peinturlurer mais
la colonne B.
Il faut donc décaler
Ceci
If [Target] = "La Mer" Then......
devient
If Cells(Target.Row, 5) = "La Mer" Then......
--
Salutations
JJ
"Guy72" <guy72@bonjour.tous> a écrit dans le message de news:
uxVxJldXJHA.556@TK2MSFTNGP06.phx.gbl...
Bonjour Jacky,
Je n'arrive pas à comprendre, pourquoi quand j'ajoute un mot dans la
liste et que j'ajoute son code avec les autres, ça ne fonctionne pas ?
Les nouveaux textes en A et en E sont bien là, mais la couleur ne se fait
pas.
Exemple : ASF-->Prélèvement-->Autoroute-->La Mer (couleur bleu).
J'ai ajouter ça
If [Target] = "La Mer" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 5
Range(Cells(Target.Row, 6), Cells(Target.Row, 1)).Font.ColorIndex
= 2
Exit Sub
End If
--
Cordialement
Guy
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
eruUSqVXJHA.2372@TK2MSFTNGP03.phx.gbl...
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
e3kz2EUXJHA.256@TK2MSFTNGP06.phx.gbl...
Re...
D'accord,
C'et dejà bien ;o)
mais ça ne mets toujours pas la ligne en couleur.
J'ai pas vérifier cela , ce soir ...peut-être
--
Salutations
JJ
"Guy72" <guy72@bonjour.tous> a écrit dans le message de news:
%23cCeM%23TXJHA.1184@TK2MSFTNGP05.phx.gbl...
Bonjour Jacky,
D'accord, mais ça ne mets toujours pas la ligne en couleur.
--
Cordialement
Guy
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
%23Jh6B1TXJHA.4944@TK2MSFTNGP03.phx.gbl...
Re.
J'ai oublié la colonne E, mais tu as certainement corrigé.
;o)
--
Salutations
JJ
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
uDcvywTXJHA.1184@TK2MSFTNGP05.phx.gbl...
Bonsoir,
Ignorer le dernier argument de RevhercheV n'est pas une bonne idée
En C3
=SI($B3="";"";(RECHERCHEV($B3;Liste!$A$2:$D$15;2;0)))
En D3
=SI($B3="";"";(RECHERCHEV($B3;Liste!$A$2:$D$15;3;0)))
--
Salutations
JJ
"Guy72" <guy72@bonjour.tous> a écrit dans le message de news:
%235QbaHRXJHA.256@TK2MSFTNGP06.phx.gbl...
Bonjour à tous,
En colonne B, mes cellules contiennent la liste "Données
validation"
avec le nom "=Liste!$A$2:$A$36"
En colonne C, j'ai la formule suivante :
=SI(B3="";"";(RECHERCHEV($B3;Liste$A$2:$D$35;2)))
En colonne D, j'ai la formule suivante :
=SI(B3="";"";(RECHERCHEV($B3;Liste$A$2:$D$35;3)))
En colonne E, j'ai la formule suivante :
=SI(B3="";"";(RECHERCHEV($B3;Liste$A$2:$D$35;4)))
Avant de mettre ces formules en colonne E, dès que j'avais un mot
spécifique, toute la ligne se colorisait, maintenant qu'il ya une
formule le mot apparaît bien mais ne colorise plus la ligne.
If [Target] = "Jardinage" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 4
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Font.ColorIndex = 1
Exit Sub
End If
Y a t-il un moyen de pouvoir quand même le faire ?
--
Cordialement
Guy
Re..... Mais oui, suis-je bête, en effet, je n'ai pas BIEN regardé. Merci encore -- Cordialement Guy "Jacky" a écrit dans le message de news:
Re.. Si tu regardes BIEN dans le fichier que je t'ai retourné tu verras que le code événementiel du ThisWorkbook est modifié. Target n'est pas la colonne(E) dont tu tiens compte pour peinturlurer mais la colonne B. Il faut donc décaler Ceci
If [Target] = "La Mer" Then......
devient If Cells(Target.Row, 5) = "La Mer" Then......
-- Salutations JJ
"Guy72" a écrit dans le message de news:
Bonjour Jacky, Je n'arrive pas à comprendre, pourquoi quand j'ajoute un mot dans la liste et que j'ajoute son code avec les autres, ça ne fonctionne pas ? Les nouveaux textes en A et en E sont bien là, mais la couleur ne se fait pas. Exemple : ASF-->Prélèvement-->Autoroute-->La Mer (couleur bleu). J'ai ajouter ça If [Target] = "La Mer" Then Range(Cells(Target.Row, 6), Cells(Target.Row, 1)).Interior.ColorIndex = 5 Range(Cells(Target.Row, 6), Cells(Target.Row, 1)).Font.ColorIndex = 2 Exit Sub End If -- Cordialement Guy "Jacky" a écrit dans le message de news:
C'et dejà bien ;o) mais ça ne mets toujours pas la ligne en couleur. J'ai pas vérifier cela , ce soir ...peut-être
-- Salutations JJ
"Guy72" a écrit dans le message de news: %23cCeM%
Bonjour Jacky, D'accord, mais ça ne mets toujours pas la ligne en couleur. -- Cordialement Guy "Jacky" a écrit dans le message de news: %
Re. J'ai oublié la colonne E, mais tu as certainement corrigé. ;o)
-- Salutations JJ
"Jacky" a écrit dans le message de news:
Bonsoir,
Ignorer le dernier argument de RevhercheV n'est pas une bonne idée En C3 =SI($B3="";"";(RECHERCHEV($B3;Liste!$A$2:$D$15;2;0))) En D3 =SI($B3="";"";(RECHERCHEV($B3;Liste!$A$2:$D$15;3;0)))
-- Salutations JJ
"Guy72" a écrit dans le message de news: %
Bonjour à tous, En colonne B, mes cellules contiennent la liste "Données validation" avec le nom "=Liste!$A$2:$A$36" En colonne C, j'ai la formule suivante : =SI(B3="";"";(RECHERCHEV($B3;Liste$A$2:$D$35;2))) En colonne D, j'ai la formule suivante : =SI(B3="";"";(RECHERCHEV($B3;Liste$A$2:$D$35;3))) En colonne E, j'ai la formule suivante : =SI(B3="";"";(RECHERCHEV($B3;Liste$A$2:$D$35;4))) Avant de mettre ces formules en colonne E, dès que j'avais un mot spécifique, toute la ligne se colorisait, maintenant qu'il ya une formule le mot apparaît bien mais ne colorise plus la ligne. If [Target] = "Jardinage" Then Range(Cells(Target.Row, 6), Cells(Target.Row, 1)).Interior.ColorIndex = 4 Range(Cells(Target.Row, 6), Cells(Target.Row, 1)).Font.ColorIndex = 1 Exit Sub End If Y a t-il un moyen de pouvoir quand même le faire ? -- Cordialement Guy
