Mise en forme conditionnelle sur TCD

Bonjour

j'ai un TCD ou j ai fait une mise en forme conditionnelle : la ligne ou le retard est le plus faible doit apparaitre en vert et celle ou le retard est le plus elevé doit apparaitre en rouge.

mais quand j actualise, seule la 1ere colonne reste en couleur, pas les autres

pouvez vous me dire pourquoi cela ne marche aps

merci par avance

Ben

Bonjour,

Une proposition VBA.

Ne gère pas les exæquo...

Cdlt.

Private Sub Worksheet_Activate()
Dim pt As PivotTable
Dim rng As Range, rng2 As Range
Dim r As Long, r2 As Long

    Set pt = Me.PivotTables(1)
    With pt
        .PivotCache.Refresh
        With .TableRange1
            .Interior.Color = xlNone
            .Font.Bold = False
            .Font.ThemeColor = xlThemeColorLight1
        End With
    End With

    Set rng = pt.PivotFields("retard ").DataRange
    r = pt.TableRange1.Row

    r2 = Application.Match(Application.Min(rng), rng, 0)
    Set rng2 = pt.TableRange1.Cells(r2 - 1 + r, 4).Offset(, -3).Resize(, 4)
    With rng2.Cells
        .Font.Bold = True
        .Font.ThemeColor = xlThemeColorDark1
        .Interior.Color = RGB(146, 208, 80)
    End With

    r2 = Application.Match(Application.Max(rng), rng, 0)
    Set rng2 = pt.TableRange1.Cells(r2 - 1 + r, 4).Offset(, -3).Resize(, 4)
    With rng2.Cells
        .Font.Bold = True
        .Font.ThemeColor = xlThemeColorDark1
        .Interior.Color = RGB(255, 0, 0)
    End With

End Sub

Bonjour à tous

Une solution par MFC avec une colonne supplémentaire dans le TCD, colonne que peut peut masquer