XL 2016 Création d'une mise en forme conditionnelle fonction d'une formule dans un TCD

Bonjour

chris à dit:

Bonjour

VB:

Sub MFC_Diff()

    ActiveSheet.PivotTables("TCD").PivotSelect "' Diff':' %'", xlDataAndLabel, True
    Selection.PivotTable.DataBodyRange.FormatConditions.Delete
    Selection.Offset(1, 0).Resize(1, 1).Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=ET($E5<-25000;$F5<-0,18)"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 192
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions(1).ScopeType = xlFieldsScope
End Sub

Cliquez pour agrandir...

Merci Chris !
Grâce à toi, je ne pleure plus. Par contre, en quoi l'ajout des lignes 2 (DataBodyRange...) et 3 (Resize) permet d'obtenir ce miracle ?
En tout cas, un grand merci

Bonjour
supprime les MFC du TCD pour ne pas les empiler. Pas forcément indispensable selon le contexte.

Pour agir sur un champ de TCD il faut sélectionner la première valeur du champ (même vide)
L'offset permet de se placer sous le titre et le resize de se limiter à une cellule

Ce qui permettrait en théorie de sélectionner la bonne cellule même si le TCD est déplacé ou des champs insérés ou supprimés faisant glisser notre champ à droite ou à gauche...
Cependant pour aller au bout de cette théorie, les adresses de la formule de MFC devraient être calculées aussi dynamiquement.

Merci pour les explications Chris, c'est très clair.