Gérer 3 TCD par un seul filtre de rapport

[vinzdu16]

Bonjour,

J'ai 3 TCD construis à partir de la même source. Peux t'on les rendre interdépendant. Par exemple, si je retire un champ dans le filtre du rapport d'1 TCD, je souhaite que cela se retire égalment dans les deux autres.

Merci 🙂

 

[JCGL]

Re : Gérer 3 TCD par un seul filtre de rapport

Bonjour à tous,

Un essai en pièce jointe avec :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = 0
If Target.Address(0, 0) = "D1" Then
ActiveSheet.PivotTables("Tableau croisé dynamique9").PivotFields("COMMUNE2"). _
        CurrentPage = Range("D1").Value
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("COMMUNE2"). _
        CurrentPage = Range("D1").Value
    Range("D1").Select
    ActiveWorkbook.RefreshAll
End If
End Sub

A+ à tous