Lier par vba deux segments/slicer issus de sources différentes

chris

XLDnaute Barbatruc

• 6 Juin 2020

• #2

Bonjour

Un exemple que j'avais posté sur un forum

 

Pièces jointes

• TCD_Synchro_slicers2.xlsm

  29 KB · Affichages: 48

Vote positif 0 Vote négatif

W

WIsh_

XLDnaute Occasionnel

• 6 Juin 2020

• #3

Re bonjour,

Merci Cris.
Je n'ai pas réussi à utiliser ta macro dans mon fichier. Comme j'ai pas mal de segments, je préfère nommer ceux dont j'ai besoin.

J'ai une erreur "argument ou appel de procédure incorrect" avec le code suivant mais je ne comprends pas ce qui coince:

VB:

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim sc1, sc2 As SlicerCache
Dim SI1 As SlicerItem

Set sc1 = ThisWorkbook.SlicerCaches("segment_K")
Set sc2 = ThisWorkbook.SlicerCaches("segment_K1")

Application.ScreenUpdating = False
Application.EnableEvents = False

sc2.ClearManualFilter

For Each SI1 In sc1.SlicerItems
sc2.SlicerItems(SI1.Name).Selected = SI1.Selected
'c'est la ligne ci-dessus qui coince...
Next SI1

Application.EnableEvents = True
Application.ScreenUpdating = True

End Sub

 

Pièces jointes

• TestSlice_1.xlsm

  32.8 KB · Affichages: 14

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 6 Juin 2020

• #4

RE

Il faudrait partir du cas qui a moins de choix car là tu essayes de rendre unselected des cas inexistants

Soit tester pour chaque s'il existe dans la source, soit ajouter une gestion d'erreur mais en cas de choix d'un item existant dans l'un et pas dans l'autre, cela ne plante pas mais ne filtre évidemment rien dans le second

VB:

Option Explicit

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim sc1, sc2 As SlicerCache
Dim SI1 As SlicerItem

Set sc1 = ThisWorkbook.SlicerCaches("segment_K")
Set sc2 = ThisWorkbook.SlicerCaches("segment_K1")

Application.ScreenUpdating = False
Application.EnableEvents = False

sc2.ClearManualFilter

On Error Resume Next
For Each SI1 In sc1.SlicerItems
sc2.SlicerItems(SI1.Name).Selected = SI1.Selected
Next SI1

Application.EnableEvents = True
Application.ScreenUpdating = True

End Sub

 

Vote positif 0 Vote négatif

Solution

W

WIsh_

XLDnaute Occasionnel

• 6 Juin 2020

• #5

Re Chris,

Merci pour ton retour.
Comment est-ce que je peux ajouter au code :
lorsqu'on sélectionne un item dans le premier segment qui n'existe pas dans le second, ne rien sélectionner dans le second ?

Merci d'avance,
Wish

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 6 Juin 2020

• #6

RE

C'est le code ci-dessus qui le fait grace au
On Error Resume Next

 

Vote positif 0 Vote négatif

W

WIsh_

XLDnaute Occasionnel

• 6 Juin 2020

• #7

Re,

Ci-joint mon fichier pour illustrer mes propos.
J'ai sélectionné "30002456" dans le 1er segment (rouge). Dans le second, en plus de "30002456" il m'affiche en plus les items qui ne sont pas dans le 1er segment. C'est ceux-là que je voudrais "déselectionner".

 

Pièces jointes

• TestSlice_2.xlsm

  33.5 KB · Affichages: 26

Vote positif 0 Vote négatif

W

WIsh_

XLDnaute Occasionnel

• 6 Juin 2020

• #8

Par ailleurs, est-ce que à la place de "on error resume next" on ne pourrait pas utiliser array ? ou checker une à une les item comme tu évoquais ?
Il se passe environ 7, 8 sec lorsqu'on sélectionne un item dans le 1er segment avant l'update des tables... Mon fichier original est beaucoup plus gros que le fichier test : 400 lignes pour source 1 et 3000 lignes pour source 2.

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 6 Juin 2020

• #9

Re

Avec des TCD dont les sources n'ont pas les mêmes noms de champ pour la même info, je n'ai pas trouvé comment établir de lien entre le slicer de l'un et les champs de l'autre pour vérifier la source

La synchro oblige à passer tous les items des slicers en boucle : c'est effectivement peu optimisé

DE plus avec des items différents entre les 2 sources on est en dehors des clous de ce type d'exercice...

Sur mon PC c'est instantané sur ton exemple...

 

Vote positif 0 Vote négatif

W

WIsh_

XLDnaute Occasionnel

• 8 Juin 2020

• #10

Merci déjà Chris.

 

Vote positif 0 Vote négatif