Bonjour à tous,

Voici mon problème:

J'ai 2 tables pivot sur deux feuilles différentes, 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 : Sélectionner tout - Visualiser dans une fenêtre à part
Sheets("Summary per Role").PivotTables("PivotTable1").PivotItems.Visible = Sheets("Utilization Per Employee").PivotTables("PivotTable1").PivotItems.Visible
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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.

En changeant le code, j'obtiens maintenant l'erreur suivante :
Error:Unable to set the visible property of the PivotItem class.

Changements: PivotItems(pi) au lieu de PivotItems.pi

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 Sheets("Utilization Per Employee").PivotTables("PivotTable1").PivotFields("Description").PivotItems(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