Mises en formes Conditionnelles Multi critères dans TCD

Bonjour à tous,

J'ai un soucis de mise en formes conditionnelles multi critères dans tcd .

Explication sur le fichier ci -joint

En espèrant être assez clair.

a bientôt merci beaucoup

Bonjour,

Pour être sûr d'avoir compris ton souci, si GR > 6% ou par exemple NR > 10%, tu veux quoi comme couleur ? Si je comprends ta demande il ne faut pas de couleur ?

A te relire

Dan

re nad

nr>6% --->rouge

b0>10%--->bleu

remplir la case en couleur (peu importe laquelle) si condition remplies

GC et le rebuts est > 2 % ---> en rouge

NR et le rebuts est > 6 % ---> en vert

bo et le rebuts est > 10 % ---> en bleu

fa et le rebuts est > 4 % ---> en jaune

merci nad

-- Mer Mar 31, 2010 8:06 am --

Bonjour,

Est ce que quelqu'un aurait une réponse, encore merci ...j'excel encore pas !

-- Mer Mar 31, 2010 8:07 am --

Nad-Dan a écrit :

Bonjour,

Pour être sûr d'avoir compris ton souci, si GR > 6% ou par exemple NR > 10%, tu veux quoi comme couleur ? Si je comprends ta demande il ne faut pas de couleur ?

A te relire

Dan

re,

Bon beaucoup de perte de temps pour te répondre jusqu'à ce que je m'aperçoive que les items de ta base de données ayant servi à faire le TCD contiennent des espaces... --> NR

Evite cela dans ta base de donnée surtout si tu utilises les TCD.

Essaie ce code

Sub TCDCouleur()
'Macro réalisée par Dan pour Bounty le 31/03/2010
'http://forum.excel-pratique.com/posting.php?mode=reply&f=2&t=16419
Application.ScreenUpdating = False
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotSelect "type[Tous]", xlLabelOnly
For Each cel In Selection
Select Case UCase(cel)
Case "GC": If cel.Offset(0, 7) >= 0.02 Then i = 3 Else: i = xlNone
Case "FA": If cel.Offset(0, 7) >= 0.04 Then i = 6 Else: i = xlNone
Case "BO": If cel.Offset(0, 7) >= 0.1 Then i = 5 Else: i = xlNone
Case "NR ": If cel.Offset(0, 7) >= 0.06 Then i = 4 Else: i = xlNone
End Select
With cel
    .Interior.ColorIndex = i
    .Offset(0, 7).Interior.ColorIndex = i
End With
Next
End Sub

Amicalement

Dan

edit Dan : replacé dans le code les "xlAutomatic" par "xlNone"

Bonjour DAN !

Super nickel !!! cela fonctionne très bien merci pour tout !