Lier des filtres de tableaux croisées dynamiques

[linuks]

Bonsoir,
J'ai lu cette discussion.
J'ai essayé le premier code et en effet je constate le même problème que ckim77.
Le second code lui, ne fonctionne pas (erreur 438, propriété ou méthode non gérée par cet objet)

Code :

1
2
3
4
5
6
7
8
9
10
 
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim pvtIt As Excel.PivotItem
 
If Target.Name = "TCD1" Then
    For Each pvtIt In Target.PageFields("Vague")
       Target.Parent.PivotTables("TCD2").PageFields("Vague").PivotItems(pvtIt.Name).Visible = pvtIt.Visible
    Next pvtIt
End If
End Sub

Pour information, vague est le nom de mon champ
Une petite idée pour m'aider?
Merci!