Microsoft 365 VBA-synchro slicer differentes feuilles ( differents sources ).

[almourasel]

salut les amis

j'ai ce code qu fait la synchornisation entre les slicers mais le problème qu'il est un peu lourd , est ce qu il ya un moyen de le modifier pour que son excusion sera plus rapide ?

il consomme de temps qu'on je filtre avec SC3 et SC4.

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)

Dim sc1 As SlicerCache
Dim sc2 As SlicerCache
Dim SI1 As SlicerItem
Dim sc3 As SlicerCache
Dim sc4 As SlicerCache
Dim SI3 As SlicerItem

' These names come from Slicer Settings dialog box
Set sc1 = ThisWorkbook.SlicerCaches("Slicer_line")
Set sc2 = ThisWorkbook.SlicerCaches("Slicer_line1")
Set sc3 = ThisWorkbook.SlicerCaches("Slicer_Drawg")
Set sc4 = ThisWorkbook.SlicerCaches("Slicer_DRW")

Application.ScreenUpdating = False
Application.EnableEvents = False

sc2.ClearManualFilter
sc4.ClearManualFilter

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

For Each SI3 In sc3.SlicerItems
sc4.SlicerItems(SI3.Name).Selected = SI3.Selected
Next SI3

Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

 

[danielco]

Je ne peux pas le tester à cause de la différence du nombre d'items. Il me faudrait un autre classeur.

Daniel

 

[almourasel]

Je ne peux pas le tester à cause de la différence du nombre d'items. Il me faudrait un autre classeur.

Daniel

Salut Daniel

ici une nouvelle copie avec l'ancienne code et avec le même nombre des items 55.

Easyupload.io - Upload Files and Share Them Easily

Uplaod files easily and share them with your friends and colleagues. File upload solution for everyone. Upload big files and get a link to share effortlesly.

easyupload.io

vérifie svp et dites si c ok.

 

[danielco]

Effectivement, il manquait un réglage :

https://mon-partage.fr/f/xPwnYOuk/

 

[almourasel]

Effectivement, il manquait un réglage :

https://mon-partage.fr/f/xPwnYOuk/

Salut Daniel

Super de ta part vraiment , Mille merci , merci beaucoup pour votre temps et ta patience .
vraiment Merci beaucoup.

Sa Fonctionne avec un temps reduit .