Bonjour,
J'ai 9 TCD avec 18 MeFC à faire dans chacun ; je voudrais donc automatiser pour éviter les erreurs, vue qu'on ne peut pas copier / coller les formats de MeFC.

Donc, en premier lieu, je voudrais écrire une MeFC avec l'option "toutes les cellules contenant les valeurs" pour appliquer la mef sur tout le champ (quelque soit le nombre d’occurrence)

Ensuite, trouver une routine qui passe en revue tous les tcd du fichier pour appliquer toutes les mef (il n'y a qu'un TCD par feuille, mais par la suite, cela pourra évoluer)

Enfin, j'ai essayé une mef sur un TCD et cela ne fonctionne pas
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub MeFC()
Dim Pt As PivotTable, Pf As PivotField, X As String
 'nom du TCD
 Pt = ActiveSheet.PivotTables("Tableau croisé dynamique5")
 
'vérifier que la mise à jour s'adresse au bon TDC (si plus d'un TDC dans la feuille).
 If Pt.Name = ActiveSheet.Name Then
    'CHAMPS CONCERNE
     Pf = ActiveSheet.PivotFields("Tps moy de comm / appel")
    'X contient l'adresse de la plage du champ
    X = Pf.DataRange.Offset(, 1).Address
    With ActiveSheet.Range(X).FormatConditions
       'Supprime l'ancienne mise en forme conditionnelle
       .Delete
          'Ajoute une condition (Vrai lorsque la cellule est inférieur à 0.00694444)
       .Add xlCellValue, xlLess, "=0,00694444"       
          ' .FormatConditions.Add Type:=xlExpression, Formula1:="=$F$8>0,00694444"
    'Le format de la mise en forme conditionnelle
        With .Interior
           .ThemeColor = xlThemeColorLight2   'rose (vert3)
           .TintAndShade = 0.599993896298105  'pale
        End With
    End With
 End If
End Sub
J'ai
Erreur d'exécution '91' Variable objet non définie
sur la ligne Pf = ActiveSheet.PivotFields("Tps moy de comm / appel").


Merci de bien vouloir m'aider