Discussion :

[maxwellou]

Bonjour,

J'aimerai modifier le filtre de plusieurs TCD par une seule action (via VBA ?)

Mon fichier se compose de 4 TCD, et chacune est construit avec un filtre, ce dernier est le même pour les 4 TCD. Ainsi, j'aimerai qu'après avoir modifier le filtre du 1er TCD les 3 autres filtres se modifient aussi.

Mon idée, est copier dans une cellule précise (A1) la donnée du 1er filtre , puis à partir du code ci-dessous, tous les autres TCD devraient aussi se modifier automatiquement.

Mais ce code ne fonctionne pas.

Peut-être existe des solutions plus facile via un userform mais je ne suis pas assez calé en vba pour arriver à faire ça.

Pourriez-vous m'aider à trouver une solution svp ?

Ci-joint un fichier EXCEL 2010 pour illustrer mes propose.

Merci de votre aide


Code essayé:

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 <> "$A$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("Noms")
                .ClearAllFilters
                .CurrentPage = Target.Value
            End With
        Next Pt
    Next Sh
End Sub

Cdt