[XL-2013] Connecter 2 TCD entre eux

1 pièce(s) jointe(s)

Connecter 2 TCD entre eux

Bonsoir,

Savez vous comment je peux connecter 2 TCD entre eux qui se trouvent dans la même feuille ?

Ce que je voudrais c'est que lorsque je filtre le premier tableau que le deuxième se fasse en même temps aussi :

Pièce jointe 193573

Vous allez peut être me dire de créer des slicers et de les connecter aux tableaux. Mais je ne veux pas utiliser de slicers.

Merci pour votre retour

Cordialement

Bonjour,

Tu pourrais essayer de cette manière

Dans le code de la feuille, tu mets ceci (ça pourrait aussi être dans ThisWorkbook en ajoutant le paramètre Sh)

Code:

1
2
3
4
5
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    Application.EnableEvents = False
    Filtrer Target
    Application.EnableEvents = True
End Sub

Et dans un module ou dans la feuille (Change les noms des TCD selon ce que tu as)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Filtrer(TCD1 As PivotTable)
    Dim TCD2 As PivotTable
    Dim Fld As PivotField
    Dim Itm As PivotItem
 
    If TCD1.Name = "Tableau croisé dynamique1" Then
        Set TCD2 = ActiveSheet.PivotTables("Tableau croisé dynamique2")
    Else
        Set TCD2 = ActiveSheet.PivotTables("Tableau croisé dynamique1")
    End If
 
    On Error Resume Next
    For Each Fld In TCD1.PivotFields
        For Each Itm In Fld.PivotItems
            TCD2.PivotFields(Fld.Position).PivotItems(Itm.Name).Visible = Itm.Visible
        Next
    Next
    On Error GoTo 0
    Application.EnableEvents = True
End Sub

J'ai fait des tests rapides et ça semble bien fonctionner pour les 2 TCD s'ils sont identiques.
Autrement, il faudrait modifier quelque peu le code, j'imagine...

Bonjour Parmi,

Excellent. Ca marche très très bien !

Merci infiniement Parmi

Cordialement