Modifier plusieurs tableaux dynamique

Question

J'ai plusieurs tableaux croisés dynamique avec le même filtre de rapport. comment faire pour que lorsque je modifie le filtre du premier tableau cela modifie avec la même valeur le second tableau Je joins un petit exemple : si je modifie la cellule C11 en mettant "France" cela modifierait la cellule C19 et indiquerait également "France" Merci pour votre aide Cordialement Philmaure...

JExceL2fr · Answer

Vous êtes bien toujours sur Excel 2007 Sinon, vous avez dans Analyse du TCD -&gt; Insérer un segment Ensuite, pour le 2ème, vous sélectionnez une cellule du TCD et toujours dans le même menu, vous avez "Connexion de filtre" vous cochez l'option Et voilà, quand vous sélectionnez un pays, il change dans vos 2 TCD...

JExceL2fr · Answer

Re,

Dans ce cas, il faudra utiliser VBA

Avec l'aide de Copilot, voici le code à mettre dans la feuille contenant tes TCD

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    Dim ptSource As PivotTable
    Dim ptDest As PivotTable
    Dim pfSource As PivotField
    Dim pfDest As PivotField
    Dim pi As PivotItem

    ' Vérifie que le TCD modifié est TCD1
    If Target.Name <> "TCD1" Then Exit Sub

    Set ptSource = Me.PivotTables("TCD1")  ' TCD à renommer ou mettre le bon nom ICI
    Set ptDest = Me.PivotTables("TCD2")  ' TCD à renommer ou mettre le bon nom ICI

    ' Vérifie que le champ "Pays" existe dans les deux TCD
    On Error Resume Next
    Set pfSource = ptSource.PivotFields("Pays")
    Set pfDest = ptDest.PivotFields("Pays")
    On Error GoTo 0

    If pfSource Is Nothing Or pfDest Is Nothing Then Exit Sub

    ' Désactive les filtres du TCD2
    For Each pi In pfDest.PivotItems
        pi.Visible = True
    Next pi

    ' Applique les mêmes filtres que dans TCD1
    For Each pi In pfDest.PivotItems
        On Error Resume Next
        pi.Visible = pfSource.PivotItems(pi.Name).Visible
        On Error GoTo 0
    Next pi
End Sub

Il faudra renommer tes TCD en "TCD1" et "TCD2"

A+