Probleme avec MFC ; 0 ((

Le
Francis
J' ai ce tableau
http://cjoint.com/?jvibKLnTpK
et je veux
http://cjoint.com/?jvibKLnTpK
Merci à Tous
et bon dimanche
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #17288381
Bonjour...
Disais-je donc.
Tes tableaux sont plutôt identiques !!!

--
Salutations
JJ


"Francis" 48d5e598$0$16902$
J' ai ce tableau
http://cjoint.com/?jvibKLnTpK
et je veux
http://cjoint.com/?jvibKLnTpK
Merci à Tous
et bon dimanche



JPMonnier
Le #17288741
Bonjour,
je pense que ton cas doit être traité par VBA
A moins que quelqu'un ait une autre solution avec MFC !
--
Cordialement


"Francis" 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
Le #17289061
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" 48d5e598$0$16902$
J' ai ce tableau
http://cjoint.com/?jvibKLnTpK
et je veux
http://cjoint.com/?jvibKLnTpK
Merci à Tous
et bon dimanche



Francis
Le #17290631
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" 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" 48d5e598$0$16902$
J' ai ce tableau
http://cjoint.com/?jvibKLnTpK
et je veux
http://cjoint.com/?jvibKLnTpK
Merci à Tous
et bon dimanche







Sam
Le #17291431
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" 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" 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" 48d5e598$0$16902$
J' ai ce tableau
http://cjoint.com/?jvibKLnTpK
et je veux
http://cjoint.com/?jvibKLnTpK
Merci à Tous
et bon dimanche











Jacky
Le #17291611
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" 48d5e598$0$16902$
J' ai ce tableau
http://cjoint.com/?jvibKLnTpK
et je veux
http://cjoint.com/?jvibKLnTpK
Merci à Tous
et bon dimanche



Francis
Le #17291851
Merci, Bonsoir


"Sam" 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" 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" 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" 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
Le #17292261
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" news:48d5e598$0$16902$
J' ai ce tableau
http://cjoint.com/?jvibKLnTpK
et je veux
http://cjoint.com/?jvibKLnTpK
Merci à Tous
et bon dimanche



Publicité
Poster une réponse
Anonyme