Bonjour... Disais-je donc. Tes tableaux sont plutôt identiques !!!
-- Salutations JJ
"Francis" a écrit dans le message de news: 48d5e598$0$16902$
J' ai ce tableau http://cjoint.com/?jvibKLnTpK et je veux http://cjoint.com/?jvibKLnTpK Merci à Tous et bon dimanche
JPMonnier
Bonjour, je pense que ton cas doit être traité par VBA A moins que quelqu'un ait une autre solution avec MFC ! -- Cordialement
"Francis" a écrit dans le message de news:48d5e598$0$16902$
J' ai ce tableau http://cjoint.com/?jvibKLnTpK et je veux http://cjoint.com/?jvibKLnTpK Merci à Tous et bon dimanche
Bonjour,
je pense que ton cas doit être traité par VBA
A moins que quelqu'un ait une autre solution avec MFC !
--
Cordialement
jpmonnier-nospam@neuf.fr
"Francis" <gtoukc@free.fr> a écrit dans le message de
news:48d5e598$0$16902$426a74cc@news.free.fr...
J' ai ce tableau
http://cjoint.com/?jvibKLnTpK
et je veux
http://cjoint.com/?jvibKLnTpK
Merci à Tous
et bon dimanche
Bonjour, je pense que ton cas doit être traité par VBA A moins que quelqu'un ait une autre solution avec MFC ! -- Cordialement
"Francis" a écrit dans le message de news:48d5e598$0$16902$
J' ai ce tableau http://cjoint.com/?jvibKLnTpK et je veux http://cjoint.com/?jvibKLnTpK Merci à Tous et bon dimanche
Sam
Bonjour, avec Excel 2003, ma MFC se limite à 3 cas de mise en peinture
La formule est : =ET($B14=$B$2;$A14=$A$2) ->couleur brun La formule est : =ET($B14=$B$3;$A14=$A$2) ->couleur rose La formule est : =ET($B14=$B$4;$A14=$A$2) ->couleur orange
et après, il n'y a plus de possibilité. jp sans doute raison. Cordialement Michel dit "Sam"
"Francis" a écrit dans le message de news: 48d5e598$0$16902$
J' ai ce tableau http://cjoint.com/?jvibKLnTpK et je veux http://cjoint.com/?jvibKLnTpK Merci à Tous et bon dimanche
Bonjour,
avec Excel 2003, ma MFC se limite à 3 cas de mise en peinture
La formule est : =ET($B14=$B$2;$A14=$A$2) ->couleur brun
La formule est : =ET($B14=$B$3;$A14=$A$2) ->couleur rose
La formule est : =ET($B14=$B$4;$A14=$A$2) ->couleur orange
et après, il n'y a plus de possibilité.
jp sans doute raison.
Cordialement
Michel dit "Sam"
"Francis" <gtoukc@free.fr> a écrit dans le message de news:
48d5e598$0$16902$426a74cc@news.free.fr...
J' ai ce tableau
http://cjoint.com/?jvibKLnTpK
et je veux
http://cjoint.com/?jvibKLnTpK
Merci à Tous
et bon dimanche
Bonjour, avec Excel 2003, ma MFC se limite à 3 cas de mise en peinture
La formule est : =ET($B14=$B$2;$A14=$A$2) ->couleur brun La formule est : =ET($B14=$B$3;$A14=$A$2) ->couleur rose La formule est : =ET($B14=$B$4;$A14=$A$2) ->couleur orange
et après, il n'y a plus de possibilité. jp sans doute raison. Cordialement Michel dit "Sam"
"Francis" a écrit dans le message de news: 48d5e598$0$16902$
J' ai ce tableau http://cjoint.com/?jvibKLnTpK et je veux http://cjoint.com/?jvibKLnTpK Merci à Tous et bon dimanche
Francis
Sam, Merci de ta réponse, J' ai tenté de t'envoyer mon fichier pour mise en application mais ton adresse e-mail ne passe pas. J'ai essayer les formules telles que me les a décrite mais ça ne marche pas ;0( tant pis , merci quand même..
"Sam" a écrit dans le message de news: 48d6185c$0$871$
Bonjour, avec Excel 2003, ma MFC se limite à 3 cas de mise en peinture
La formule est : =ET($B14=$B$2;$A14=$A$2) ->couleur brun La formule est : =ET($B14=$B$3;$A14=$A$2) ->couleur rose La formule est : =ET($B14=$B$4;$A14=$A$2) ->couleur orange
et après, il n'y a plus de possibilité. jp sans doute raison. Cordialement Michel dit "Sam"
"Francis" a écrit dans le message de news: 48d5e598$0$16902$
J' ai ce tableau http://cjoint.com/?jvibKLnTpK et je veux http://cjoint.com/?jvibKLnTpK Merci à Tous et bon dimanche
Sam, Merci de ta réponse,
J' ai tenté de t'envoyer mon fichier pour mise en application
mais ton adresse e-mail ne passe pas.
J'ai essayer les formules telles que me les a décrite
mais ça ne marche pas ;0(
tant pis , merci quand même..
Fr@ncis
"Sam" <prenom-ou-sam@citron.fr> a écrit dans le message de news:
48d6185c$0$871$ba4acef3@news.orange.fr...
Bonjour,
avec Excel 2003, ma MFC se limite à 3 cas de mise en peinture
La formule est : =ET($B14=$B$2;$A14=$A$2) ->couleur brun
La formule est : =ET($B14=$B$3;$A14=$A$2) ->couleur rose
La formule est : =ET($B14=$B$4;$A14=$A$2) ->couleur orange
et après, il n'y a plus de possibilité.
jp sans doute raison.
Cordialement
Michel dit "Sam"
"Francis" <gtoukc@free.fr> a écrit dans le message de news:
48d5e598$0$16902$426a74cc@news.free.fr...
J' ai ce tableau
http://cjoint.com/?jvibKLnTpK
et je veux
http://cjoint.com/?jvibKLnTpK
Merci à Tous
et bon dimanche
Sam, Merci de ta réponse, J' ai tenté de t'envoyer mon fichier pour mise en application mais ton adresse e-mail ne passe pas. J'ai essayer les formules telles que me les a décrite mais ça ne marche pas ;0( tant pis , merci quand même..
"Sam" a écrit dans le message de news: 48d6185c$0$871$
Bonjour, avec Excel 2003, ma MFC se limite à 3 cas de mise en peinture
La formule est : =ET($B14=$B$2;$A14=$A$2) ->couleur brun La formule est : =ET($B14=$B$3;$A14=$A$2) ->couleur rose La formule est : =ET($B14=$B$4;$A14=$A$2) ->couleur orange
et après, il n'y a plus de possibilité. jp sans doute raison. Cordialement Michel dit "Sam"
"Francis" a écrit dans le message de news: 48d5e598$0$16902$
J' ai ce tableau http://cjoint.com/?jvibKLnTpK et je veux http://cjoint.com/?jvibKLnTpK Merci à Tous et bon dimanche
Sam
Bonjour, pour l'adresse mail, à la place de prenom tu mets michel, à la place du citron tu mets une orange et ça passera
pour la formule, la MFC ne marche que pour 3 conditions et comme il y en a 9 à prendre en compte ça ne peut pas tout résoudre. L'exemple que je t'ai indiqué fonctionne pour Paris 10eme, 12eme et 13eme. Cordialement Michel dit "Sam " "Francis" a écrit dans le message de news: 48d6465a$0$29401$
Sam, Merci de ta réponse, J' ai tenté de t'envoyer mon fichier pour mise en application mais ton adresse e-mail ne passe pas. J'ai essayer les formules telles que me les a décrite mais ça ne marche pas ;0( tant pis , merci quand même..
"Sam" a écrit dans le message de news: 48d6185c$0$871$
Bonjour, avec Excel 2003, ma MFC se limite à 3 cas de mise en peinture
La formule est : =ET($B14=$B$2;$A14=$A$2) ->couleur brun La formule est : =ET($B14=$B$3;$A14=$A$2) ->couleur rose La formule est : =ET($B14=$B$4;$A14=$A$2) ->couleur orange
et après, il n'y a plus de possibilité. jp sans doute raison. Cordialement Michel dit "Sam"
"Francis" a écrit dans le message de news: 48d5e598$0$16902$
J' ai ce tableau http://cjoint.com/?jvibKLnTpK et je veux http://cjoint.com/?jvibKLnTpK Merci à Tous et bon dimanche
Bonjour,
pour l'adresse mail, à la place de prenom tu mets michel, à la place du
citron tu mets une orange et ça passera
pour la formule, la MFC ne marche que pour 3 conditions et comme il y en a 9
à prendre en compte ça ne peut pas tout résoudre.
L'exemple que je t'ai indiqué fonctionne pour Paris 10eme, 12eme et 13eme.
Cordialement
Michel dit "Sam
"
"Francis" <gtoukc@free.fr> a écrit dans le message de news:
48d6465a$0$29401$426a74cc@news.free.fr...
Sam, Merci de ta réponse,
J' ai tenté de t'envoyer mon fichier pour mise en application
mais ton adresse e-mail ne passe pas.
J'ai essayer les formules telles que me les a décrite
mais ça ne marche pas ;0(
tant pis , merci quand même..
Fr@ncis
"Sam" <prenom-ou-sam@citron.fr> a écrit dans le message de news:
48d6185c$0$871$ba4acef3@news.orange.fr...
Bonjour,
avec Excel 2003, ma MFC se limite à 3 cas de mise en peinture
La formule est : =ET($B14=$B$2;$A14=$A$2) ->couleur brun
La formule est : =ET($B14=$B$3;$A14=$A$2) ->couleur rose
La formule est : =ET($B14=$B$4;$A14=$A$2) ->couleur orange
et après, il n'y a plus de possibilité.
jp sans doute raison.
Cordialement
Michel dit "Sam"
"Francis" <gtoukc@free.fr> a écrit dans le message de news:
48d5e598$0$16902$426a74cc@news.free.fr...
J' ai ce tableau
http://cjoint.com/?jvibKLnTpK
et je veux
http://cjoint.com/?jvibKLnTpK
Merci à Tous
et bon dimanche
Bonjour, pour l'adresse mail, à la place de prenom tu mets michel, à la place du citron tu mets une orange et ça passera
pour la formule, la MFC ne marche que pour 3 conditions et comme il y en a 9 à prendre en compte ça ne peut pas tout résoudre. L'exemple que je t'ai indiqué fonctionne pour Paris 10eme, 12eme et 13eme. Cordialement Michel dit "Sam " "Francis" a écrit dans le message de news: 48d6465a$0$29401$
Sam, Merci de ta réponse, J' ai tenté de t'envoyer mon fichier pour mise en application mais ton adresse e-mail ne passe pas. J'ai essayer les formules telles que me les a décrite mais ça ne marche pas ;0( tant pis , merci quand même..
"Sam" a écrit dans le message de news: 48d6185c$0$871$
Bonjour, avec Excel 2003, ma MFC se limite à 3 cas de mise en peinture
La formule est : =ET($B14=$B$2;$A14=$A$2) ->couleur brun La formule est : =ET($B14=$B$3;$A14=$A$2) ->couleur rose La formule est : =ET($B14=$B$4;$A14=$A$2) ->couleur orange
et après, il n'y a plus de possibilité. jp sans doute raison. Cordialement Michel dit "Sam"
"Francis" a écrit dans le message de news: 48d5e598$0$16902$
J' ai ce tableau http://cjoint.com/?jvibKLnTpK et je veux http://cjoint.com/?jvibKLnTpK Merci à Tous et bon dimanche
Jacky
RE...
Un peu de VBA '----------------- Sub jj() Application.ScreenUpdating = False For Each c In [a14:a68] If UCase(c) = "PARIS" Then If Cells(c.Row, 2) = "10EME" Then Range(Cells(c.Row, 2), Cells(c.Row, 5)).Interior.ColorIndex = 54 If Cells(c.Row, 2) = "12EME" Then Range(Cells(c.Row, 2), Cells(c.Row, 5)).Interior.ColorIndex = 7 If Cells(c.Row, 2) = "13EME" Then Range(Cells(c.Row, 2), Cells(c.Row, 5)).Interior.ColorIndex = 22 If Cells(c.Row, 2) = "15EME" Then Range(Cells(c.Row, 2), Cells(c.Row, 5)).Interior.ColorIndex = 38 End If If UCase(c) = "LYON" Then If Cells(c.Row, 2) = "2EME" Then Range(Cells(c.Row, 2), Cells(c.Row, 5)).Interior.ColorIndex = 37 If Cells(c.Row, 2) = "3EME" Then Range(Cells(c.Row, 2), Cells(c.Row, 5)).Interior.ColorIndex = 42 If Cells(c.Row, 2) = "8EME" Then Range(Cells(c.Row, 2), Cells(c.Row, 5)).Interior.ColorIndex = 55 If Cells(c.Row, 2) = "10EME" Then Range(Cells(c.Row, 2), Cells(c.Row, 5)).Interior.ColorIndex = 23 If Cells(c.Row, 2) = "15EME" Then Range(Cells(c.Row, 2), Cells(c.Row, 5)).Interior.ColorIndex = 14 End If Next [B14:E68].FormatConditions.Delete [B14:E68].FormatConditions.Add Type:=xlExpression, Formula1:="=ET($A14=""LYON"";OU($B14=""8EME"";$B14=""10EME"";$B14=""15EME""))" [B14:E68].FormatConditions(1).Font.ColorIndex = 2 End Sub '------------------ Voir ici http://cjoint.com/?jvrewC2u16 -- Salutations JJ
"Francis" a écrit dans le message de news: 48d5e598$0$16902$
J' ai ce tableau http://cjoint.com/?jvibKLnTpK et je veux http://cjoint.com/?jvibKLnTpK Merci à Tous et bon dimanche
RE...
Un peu de VBA
'-----------------
Sub jj()
Application.ScreenUpdating = False
For Each c In [a14:a68]
If UCase(c) = "PARIS" Then
If Cells(c.Row, 2) = "10EME" Then Range(Cells(c.Row, 2), Cells(c.Row,
5)).Interior.ColorIndex = 54
If Cells(c.Row, 2) = "12EME" Then Range(Cells(c.Row, 2), Cells(c.Row,
5)).Interior.ColorIndex = 7
If Cells(c.Row, 2) = "13EME" Then Range(Cells(c.Row, 2), Cells(c.Row,
5)).Interior.ColorIndex = 22
If Cells(c.Row, 2) = "15EME" Then Range(Cells(c.Row, 2), Cells(c.Row,
5)).Interior.ColorIndex = 38
End If
If UCase(c) = "LYON" Then
If Cells(c.Row, 2) = "2EME" Then Range(Cells(c.Row, 2), Cells(c.Row,
5)).Interior.ColorIndex = 37
If Cells(c.Row, 2) = "3EME" Then Range(Cells(c.Row, 2), Cells(c.Row,
5)).Interior.ColorIndex = 42
If Cells(c.Row, 2) = "8EME" Then Range(Cells(c.Row, 2), Cells(c.Row,
5)).Interior.ColorIndex = 55
If Cells(c.Row, 2) = "10EME" Then Range(Cells(c.Row, 2), Cells(c.Row,
5)).Interior.ColorIndex = 23
If Cells(c.Row, 2) = "15EME" Then Range(Cells(c.Row, 2), Cells(c.Row,
5)).Interior.ColorIndex = 14
End If
Next
[B14:E68].FormatConditions.Delete
[B14:E68].FormatConditions.Add Type:=xlExpression,
Formula1:="=ET($A14=""LYON"";OU($B14=""8EME"";$B14=""10EME"";$B14=""15EME""))"
[B14:E68].FormatConditions(1).Font.ColorIndex = 2
End Sub
'------------------
Voir ici
http://cjoint.com/?jvrewC2u16
--
Salutations
JJ
"Francis" <gtoukc@free.fr> a écrit dans le message de news:
48d5e598$0$16902$426a74cc@news.free.fr...
J' ai ce tableau
http://cjoint.com/?jvibKLnTpK
et je veux
http://cjoint.com/?jvibKLnTpK
Merci à Tous
et bon dimanche
Un peu de VBA '----------------- Sub jj() Application.ScreenUpdating = False For Each c In [a14:a68] If UCase(c) = "PARIS" Then If Cells(c.Row, 2) = "10EME" Then Range(Cells(c.Row, 2), Cells(c.Row, 5)).Interior.ColorIndex = 54 If Cells(c.Row, 2) = "12EME" Then Range(Cells(c.Row, 2), Cells(c.Row, 5)).Interior.ColorIndex = 7 If Cells(c.Row, 2) = "13EME" Then Range(Cells(c.Row, 2), Cells(c.Row, 5)).Interior.ColorIndex = 22 If Cells(c.Row, 2) = "15EME" Then Range(Cells(c.Row, 2), Cells(c.Row, 5)).Interior.ColorIndex = 38 End If If UCase(c) = "LYON" Then If Cells(c.Row, 2) = "2EME" Then Range(Cells(c.Row, 2), Cells(c.Row, 5)).Interior.ColorIndex = 37 If Cells(c.Row, 2) = "3EME" Then Range(Cells(c.Row, 2), Cells(c.Row, 5)).Interior.ColorIndex = 42 If Cells(c.Row, 2) = "8EME" Then Range(Cells(c.Row, 2), Cells(c.Row, 5)).Interior.ColorIndex = 55 If Cells(c.Row, 2) = "10EME" Then Range(Cells(c.Row, 2), Cells(c.Row, 5)).Interior.ColorIndex = 23 If Cells(c.Row, 2) = "15EME" Then Range(Cells(c.Row, 2), Cells(c.Row, 5)).Interior.ColorIndex = 14 End If Next [B14:E68].FormatConditions.Delete [B14:E68].FormatConditions.Add Type:=xlExpression, Formula1:="=ET($A14=""LYON"";OU($B14=""8EME"";$B14=""10EME"";$B14=""15EME""))" [B14:E68].FormatConditions(1).Font.ColorIndex = 2 End Sub '------------------ Voir ici http://cjoint.com/?jvrewC2u16 -- Salutations JJ
"Francis" a écrit dans le message de news: 48d5e598$0$16902$
J' ai ce tableau http://cjoint.com/?jvibKLnTpK et je veux http://cjoint.com/?jvibKLnTpK Merci à Tous et bon dimanche
Francis
Merci, Bonsoir
"Sam" a écrit dans le message de news: 48d65f18$0$889$
Bonjour, pour l'adresse mail, à la place de prenom tu mets michel, à la place du citron tu mets une orange et ça passera
pour la formule, la MFC ne marche que pour 3 conditions et comme il y en a 9 à prendre en compte ça ne peut pas tout résoudre. L'exemple que je t'ai indiqué fonctionne pour Paris 10eme, 12eme et 13eme. Cordialement Michel dit "Sam " "Francis" a écrit dans le message de news: 48d6465a$0$29401$
Sam, Merci de ta réponse, J' ai tenté de t'envoyer mon fichier pour mise en application mais ton adresse e-mail ne passe pas. J'ai essayer les formules telles que me les a décrite mais ça ne marche pas ;0( tant pis , merci quand même..
"Sam" a écrit dans le message de news: 48d6185c$0$871$
Bonjour, avec Excel 2003, ma MFC se limite à 3 cas de mise en peinture
La formule est : =ET($B14=$B$2;$A14=$A$2) ->couleur brun La formule est : =ET($B14=$B$3;$A14=$A$2) ->couleur rose La formule est : =ET($B14=$B$4;$A14=$A$2) ->couleur orange
et après, il n'y a plus de possibilité. jp sans doute raison. Cordialement Michel dit "Sam"
"Francis" a écrit dans le message de news: 48d5e598$0$16902$
J' ai ce tableau http://cjoint.com/?jvibKLnTpK et je veux http://cjoint.com/?jvibKLnTpK Merci à Tous et bon dimanche
Merci, Bonsoir
"Sam" <prenom-ou-sam@citron.fr> a écrit dans le message de news:
48d65f18$0$889$ba4acef3@news.orange.fr...
Bonjour,
pour l'adresse mail, à la place de prenom tu mets michel, à la place du
citron tu mets une orange et ça passera
pour la formule, la MFC ne marche que pour 3 conditions et comme il y en a
9 à prendre en compte ça ne peut pas tout résoudre.
L'exemple que je t'ai indiqué fonctionne pour Paris 10eme, 12eme et 13eme.
Cordialement
Michel dit "Sam
"
"Francis" <gtoukc@free.fr> a écrit dans le message de news:
48d6465a$0$29401$426a74cc@news.free.fr...
Sam, Merci de ta réponse,
J' ai tenté de t'envoyer mon fichier pour mise en application
mais ton adresse e-mail ne passe pas.
J'ai essayer les formules telles que me les a décrite
mais ça ne marche pas ;0(
tant pis , merci quand même..
Fr@ncis
"Sam" <prenom-ou-sam@citron.fr> a écrit dans le message de news:
48d6185c$0$871$ba4acef3@news.orange.fr...
Bonjour,
avec Excel 2003, ma MFC se limite à 3 cas de mise en peinture
La formule est : =ET($B14=$B$2;$A14=$A$2) ->couleur brun
La formule est : =ET($B14=$B$3;$A14=$A$2) ->couleur rose
La formule est : =ET($B14=$B$4;$A14=$A$2) ->couleur orange
et après, il n'y a plus de possibilité.
jp sans doute raison.
Cordialement
Michel dit "Sam"
"Francis" <gtoukc@free.fr> a écrit dans le message de news:
48d5e598$0$16902$426a74cc@news.free.fr...
J' ai ce tableau
http://cjoint.com/?jvibKLnTpK
et je veux
http://cjoint.com/?jvibKLnTpK
Merci à Tous
et bon dimanche
"Sam" a écrit dans le message de news: 48d65f18$0$889$
Bonjour, pour l'adresse mail, à la place de prenom tu mets michel, à la place du citron tu mets une orange et ça passera
pour la formule, la MFC ne marche que pour 3 conditions et comme il y en a 9 à prendre en compte ça ne peut pas tout résoudre. L'exemple que je t'ai indiqué fonctionne pour Paris 10eme, 12eme et 13eme. Cordialement Michel dit "Sam " "Francis" a écrit dans le message de news: 48d6465a$0$29401$
Sam, Merci de ta réponse, J' ai tenté de t'envoyer mon fichier pour mise en application mais ton adresse e-mail ne passe pas. J'ai essayer les formules telles que me les a décrite mais ça ne marche pas ;0( tant pis , merci quand même..
"Sam" a écrit dans le message de news: 48d6185c$0$871$
Bonjour, avec Excel 2003, ma MFC se limite à 3 cas de mise en peinture
La formule est : =ET($B14=$B$2;$A14=$A$2) ->couleur brun La formule est : =ET($B14=$B$3;$A14=$A$2) ->couleur rose La formule est : =ET($B14=$B$4;$A14=$A$2) ->couleur orange
et après, il n'y a plus de possibilité. jp sans doute raison. Cordialement Michel dit "Sam"
"Francis" a écrit dans le message de news: 48d5e598$0$16902$
J' ai ce tableau http://cjoint.com/?jvibKLnTpK et je veux http://cjoint.com/?jvibKLnTpK Merci à Tous et bon dimanche
Philippe.R
Bonsoir, Pour utiliser la MEFC avec un tel nombre de conditions, il semble qu'il te faille disposer de la version 2007 d'Excel ; pour t'en passer, reste effectivement VBA, avec au choix, la solution proposée par Jacky, ou bien encore :
Private Sub Worksheet_Change(ByVal Target As Range) Dim bBb As String If Not Intersect(Target, Range("a14:e68")) Is Nothing Then bBb = Cells(Target.Row, 2).Value If Cells(Target.Row, 1) = [a2] Then Select Case bBb Case Is = [b2] Range("b" & Target.Row & ":e" & Target.Row) _ .Interior.ColorIndex = Range("b2") _ .Interior.ColorIndex Case Is = [b3] Range("b" & Target.Row & ":e" & Target.Row) _ .Interior.ColorIndex = Range("b3") _ .Interior.ColorIndex Case Is = [b4] Range("b" & Target.Row & ":e" & Target.Row) _ .Interior.ColorIndex = Range("b4") _ .Interior.ColorIndex Case Is = [b5] Range("b" & Target.Row & ":e" & Target.Row) _ .Interior.ColorIndex = Range("b5") _ .Interior.ColorIndex End Select ElseIf Cells(Target.Row, 1) = [a7] Then Select Case bBb Case Is = [b7] Range("b" & Target.Row & ":e" & Target.Row) _ .Interior.ColorIndex = Range("b7") _ .Interior.ColorIndex Case Is = [b8] Range("b" & Target.Row & ":e" & Target.Row) _ .Interior.ColorIndex = Range("b8") _ .Interior.ColorIndex Case Is = [b9] Range("b" & Target.Row & ":e" & Target.Row) _ .Interior.ColorIndex = Range("b9") _ .Interior.ColorIndex Case Is = [b10] Range("b" & Target.Row & ":e" & Target.Row) _ .Interior.ColorIndex = Range("b10") _ .Interior.ColorIndex Case Is = [b11] Range("b" & Target.Row & ":e" & Target.Row) _ .Interior.ColorIndex = Range("b11") _ .Interior.ColorIndex End Select End If End If End Sub
à coller dans le module de la feuille -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Francis" a écrit dans le message de news:48d5e598$0$16902$
J' ai ce tableau http://cjoint.com/?jvibKLnTpK et je veux http://cjoint.com/?jvibKLnTpK Merci à Tous et bon dimanche
Bonsoir,
Pour utiliser la MEFC avec un tel nombre de conditions, il semble qu'il te
faille disposer de la version 2007 d'Excel ; pour t'en passer, reste
effectivement VBA, avec au choix, la solution proposée par Jacky, ou bien
encore :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim bBb As String
If Not Intersect(Target, Range("a14:e68")) Is Nothing Then
bBb = Cells(Target.Row, 2).Value
If Cells(Target.Row, 1) = [a2] Then
Select Case bBb
Case Is = [b2]
Range("b" & Target.Row & ":e" & Target.Row) _
.Interior.ColorIndex = Range("b2") _
.Interior.ColorIndex
Case Is = [b3]
Range("b" & Target.Row & ":e" & Target.Row) _
.Interior.ColorIndex = Range("b3") _
.Interior.ColorIndex
Case Is = [b4]
Range("b" & Target.Row & ":e" & Target.Row) _
.Interior.ColorIndex = Range("b4") _
.Interior.ColorIndex
Case Is = [b5]
Range("b" & Target.Row & ":e" & Target.Row) _
.Interior.ColorIndex = Range("b5") _
.Interior.ColorIndex
End Select
ElseIf Cells(Target.Row, 1) = [a7] Then
Select Case bBb
Case Is = [b7]
Range("b" & Target.Row & ":e" & Target.Row) _
.Interior.ColorIndex = Range("b7") _
.Interior.ColorIndex
Case Is = [b8]
Range("b" & Target.Row & ":e" & Target.Row) _
.Interior.ColorIndex = Range("b8") _
.Interior.ColorIndex
Case Is = [b9]
Range("b" & Target.Row & ":e" & Target.Row) _
.Interior.ColorIndex = Range("b9") _
.Interior.ColorIndex
Case Is = [b10]
Range("b" & Target.Row & ":e" & Target.Row) _
.Interior.ColorIndex = Range("b10") _
.Interior.ColorIndex
Case Is = [b11]
Range("b" & Target.Row & ":e" & Target.Row) _
.Interior.ColorIndex = Range("b11") _
.Interior.ColorIndex
End Select
End If
End If
End Sub
à coller dans le module de la feuille
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Francis" <gtoukc@free.fr> a écrit dans le message de
news:48d5e598$0$16902$426a74cc@news.free.fr...
J' ai ce tableau
http://cjoint.com/?jvibKLnTpK
et je veux
http://cjoint.com/?jvibKLnTpK
Merci à Tous
et bon dimanche
Bonsoir, Pour utiliser la MEFC avec un tel nombre de conditions, il semble qu'il te faille disposer de la version 2007 d'Excel ; pour t'en passer, reste effectivement VBA, avec au choix, la solution proposée par Jacky, ou bien encore :
Private Sub Worksheet_Change(ByVal Target As Range) Dim bBb As String If Not Intersect(Target, Range("a14:e68")) Is Nothing Then bBb = Cells(Target.Row, 2).Value If Cells(Target.Row, 1) = [a2] Then Select Case bBb Case Is = [b2] Range("b" & Target.Row & ":e" & Target.Row) _ .Interior.ColorIndex = Range("b2") _ .Interior.ColorIndex Case Is = [b3] Range("b" & Target.Row & ":e" & Target.Row) _ .Interior.ColorIndex = Range("b3") _ .Interior.ColorIndex Case Is = [b4] Range("b" & Target.Row & ":e" & Target.Row) _ .Interior.ColorIndex = Range("b4") _ .Interior.ColorIndex Case Is = [b5] Range("b" & Target.Row & ":e" & Target.Row) _ .Interior.ColorIndex = Range("b5") _ .Interior.ColorIndex End Select ElseIf Cells(Target.Row, 1) = [a7] Then Select Case bBb Case Is = [b7] Range("b" & Target.Row & ":e" & Target.Row) _ .Interior.ColorIndex = Range("b7") _ .Interior.ColorIndex Case Is = [b8] Range("b" & Target.Row & ":e" & Target.Row) _ .Interior.ColorIndex = Range("b8") _ .Interior.ColorIndex Case Is = [b9] Range("b" & Target.Row & ":e" & Target.Row) _ .Interior.ColorIndex = Range("b9") _ .Interior.ColorIndex Case Is = [b10] Range("b" & Target.Row & ":e" & Target.Row) _ .Interior.ColorIndex = Range("b10") _ .Interior.ColorIndex Case Is = [b11] Range("b" & Target.Row & ":e" & Target.Row) _ .Interior.ColorIndex = Range("b11") _ .Interior.ColorIndex End Select End If End If End Sub
à coller dans le module de la feuille -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Francis" a écrit dans le message de news:48d5e598$0$16902$
J' ai ce tableau http://cjoint.com/?jvibKLnTpK et je veux http://cjoint.com/?jvibKLnTpK Merci à Tous et bon dimanche
