[XL-2007] [VBA] 2 tables pivot, même pivotItems

[legaramir]

Bonjour à tous,

Voici mon problème:

J'ai 2 tables pivot, une "Détaillé" l'autre "Sommaire".
J'aimerai pouvoir faire en sorte que le 2 tables pivot soient filtrés avec les même PivotItems

J'ai essayé les 2 codes suivant, aucun bon résultat:

Code :

Sheets("Summary per Role").PivotTables("PivotTable1").PivotItems.Visible = Sheets("Utilization Per Employee").PivotTables("PivotTable1").PivotItems.Visible

Code :

1
2
3
4
5
6
7
8
Dim pi As PivotItem
For Each pi In Sheets("Utilization Per Employee").PivotTables("PivotTable1").PivotFields("Description").PivotItems
 
        If pi.Visible = False Then
            Sheets("Summary per Role").PivotTables("PivotTable1").PivotFields("Description").PivotItems.pi.Visible = False
        Else: Sheets("Summary per Role").PivotTables("PivotTable1").PivotFields("Description").PivotItems.pi.Visible = True
            End If
        Next pi

Merci de votre aide.