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

chris à dit:

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 :

VB:

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

Cliquez pour agrandir...