Bonjour,
J'ai un code qui me permet de changer les filtres des Tableaux croisés dynamiques de toutes les pages dans un fichier.
Cependant, je voudrais pouvoir appliquer ce code pour une seule page dans un fichier de plusieurs pages.
Pouvez vous me dire comment changer le code svp?
milles mercis de votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$D$1" Then Exit Sub Dim Sh As Worksheet, Pt As PivotTable For Each Sh In Worksheets For Each Pt In Sh.PivotTables With Pt.PivotFields("New geo region") .ClearAllFilters .CurrentPage = Target.Value End With Next Pt Next Sh End Sub
Jenna
Partager