XL 2013 Segment qui modifie différents TCD avec 1 champ Direction commun

[Chrystel01]

Bonjour,

J'ai créé différents TCD portant sur des bases différentes.
Ces tableaux ont un champ commun le champ Direction.

Par ailleurs, je créé un segment Direction que l'utilisateur choisira.
Mais le segment ne porte que sur un des TCD.
Savez vous svp comment faire pour ne pas créer 5 segments Directions relatifs aux 5 bases ?
Existe il un moyen pour que l'utilisateur ne sélectionne qu'une fois la Direction et que tous les TCD se mettent à jour avec cette Direction même s'ils portent sur des bases différentes ?

Merci d'avance pour votre aide

Chrystel

 

[goube]

Bonsoir,
Sélectionner le segment, Connexions de rapport, Sélectionner les TCD concernés.

Cordialement.

 

[chris]

Bonjour

Soit il faut lier les bases par PowerQuery (en add on sur 2013) soit par PowerPivot (intégré à 2013) mais cela dépend de la structure des tables sources et de ta version 2013 http://www.excel-formations.fr/Trucs_astuces/TCD09.php

Sinon il faut utiliser VBA. A adapter :

Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)

'Synchro des segments de la feuille nommée "pivots"

    If Sh.Name <> "pivots" Then Exit Sub

    For Each Seg In ActiveWorkbook.SlicerCaches

        For Each PTlien In Seg.PivotTables

            If PTlien = Target.Name Then

                Application.EnableEvents = False

                For Each Seg2 In ActiveWorkbook.SlicerCaches

                    If Seg2.Name <> Seg.Name Then ActiveWorkbook.SlicerCaches(Seg2.Name).ClearManualFilter

                Next Seg2

                For Each Iitem In ActiveWorkbook.SlicerCaches(Seg.Name).SlicerItems

                    For Each Seg2 In ActiveWorkbook.SlicerCaches

                        If Seg2.Name <> Seg.Name Then ActiveWorkbook.SlicerCaches(Seg2.Name).SlicerItems(Iitem.Name).Selected = Iitem.Selected

                    Next Seg2

                Next Iitem

                Application.EnableEvents = True

            End If

        Next

    Next

End Sub

 

[Chrystel01]

Bonjour

Soit il faut lier les bases par PowerQuery (en add on sur 2013) soit pas PowerPivot (intégré à 2013) mais cela dépend de la structure des tables sources et de ta version 2013 http://www.excel-formations.fr/Trucs_astuces/TCD09.php

Sinon il faut utiliser VBA. A adapter :

Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)

'Synchro des segments de la feuille nommée "pivots"

    If Sh.Name <> "pivots" Then Exit Sub

    For Each Seg In ActiveWorkbook.SlicerCaches

        For Each PTlien In Seg.PivotTables

            If PTlien = Target.Name Then

                Application.EnableEvents = False

                For Each Seg2 In ActiveWorkbook.SlicerCaches

                    If Seg2.Name <> Seg.Name Then ActiveWorkbook.SlicerCaches(Seg2.Name).ClearManualFilter

                Next Seg2

                For Each Iitem In ActiveWorkbook.SlicerCaches(Seg.Name).SlicerItems

                    For Each Seg2 In ActiveWorkbook.SlicerCaches

                        If Seg2.Name <> Seg.Name Then ActiveWorkbook.SlicerCaches(Seg2.Name).SlicerItems(Iitem.Name).Selected = Iitem.Selected

                    Next Seg2

                Next Iitem

                Application.EnableEvents = True

            End If

        Next

    Next

End Sub

Bonjour,

Merci beaucoup Chris, c'est parfait ! Je vais utiliser le code VBA.

Bonne soirée

Chrystel