Bonjour tout le monde,

J'ai un code ici qui me permets lorsque je tape un nom en D1 dans une feuille, de changer tous les filtres de mes TCD de toutes les feuilles de mon fichier.

J'ai deux petites questions par rapport à cela:

1)
Comment puis-je adapter le code ci dessous pour que les filtres ne changent que dans une feuille définie?

2) Tous mes TCD doivent avoir dans leur filtre "NOM" sinon il y a un bug de la macro. Comment changer cela (càd pouvoir avoir des TCD sans obligatoirement inclure un filtre "nom")

Milles merci pour votre aide!!

Jenna

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
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 Pt In Sh.PivotTables
            With Pt.PivotFields("NOM")
                .ClearAllFilters
                .CurrentPage = Target.Value
            End With
        Next Pt
End Sub