Bonjour,

J'ai trouvé cette macro qui permet de filtrer un TCD en fonction d'une valeur dans une cellule.

J'aimerais pouvoir dupliquer ce code pour pouvoir avoir 6 cellules qui déterminent la valeur 6 filtres différents du même TCD (chaque cellule choisit la valeur dans un filtre avec un nom unique)

La valeur de Cellule C4 determine le filtre Accounting Responsible

La valeur C7 détermine le filtre Sales

ETC...

Ce ne doit pas être cumulatif mais un traitement indépendant de chaque filtre.

Je suis bloqué et j'ai vraiment besoin de votre aide

Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Worksheet_Change(ByVal Target As Range)
 
    Dim xPTable As PivotTable
    Dim xPFile As PivotField
    Dim xStr As String
    On Error Resume Next
    If Intersect(Target, Range("C4")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xPTable = Worksheets("Share your comments here").PivotTables("PivotTable1")
    Set xPFile = xPTable.PivotFields("Accounting Responsible")
    xStr = Target.Text
    xPFile.ClearAllFilters
    xPFile.CurrentPage = xStr
    Application.ScreenUpdating = True
 
End Sub
Merci beaucoup !!