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]

Oui, c'est ça. C'est surtout le slicer Drawg qui freine. Je vais chercher à l'isoler. Dans ce cas, le temps de traitement ne sera long que pour lui. Je vois ça demain.

Daniel

 

[almourasel]

Oui, c'est ça. C'est surtout le slicer Drawg qui freine. Je vais chercher à l'isoler. Dans ce cas, le temps de traitement ne sera long que pour lui. Je vois ça demain.

Daniel

Salut Daniel

Exactement

Merci beaucoup .

 

[danielco]

Je suis en train de regarder une solution mais j'ai un peu de mal à comprendre (ça a l'air intelligent...).

Patiente un peu.

Daniel

 

[almourasel]

Merci Daniel

 

[danielco]

Je compte 50 items dans le slicer Drawg et 55 dans DRW et DRW1 ?

Ca me bloque.

Daniel

 

[almourasel]

Je compte 50 items dans le slicer Drawg et 55 dans DRW et DRW1 ?

Ca me bloque.

Daniel

Oui

 

[almourasel]

j'ai vérifier la feuille source de Slicer Drawg et elle contient aussi 55 items.
les 3 Slicers doivent avoir même nombre des items.

 

[danielco]

Exécute cette macro :

Sub test1()
  MsgBox ThisWorkbook.SlicerCaches("Slicer_Drawg").SlicerItems.Count
End Sub

J'obtiens 50.

Daniel

 

[almourasel]

Exécute cette macro :

Sub test1()
  MsgBox ThisWorkbook.SlicerCaches("Slicer_Drawg").SlicerItems.Count
End Sub

J'obtiens 50.

Daniel

t'as raison mais 50 car sont Drawg avec besoin , les autres avec valeur 0 et réçement ajouté. c est pour sa ne les considère pas .

A1775406831	0
A2478206302	0
A2435405713	0
A2435400010	0
A2435400910	0

 

[almourasel]

ici total c est 55 .

 

[danielco]

Regarde le classeur :

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

C'est un peu plus rapide.

Daniel

 

[almourasel]

Salut Daniel

je suis a tester , Merci .

 

[almourasel]

Salut,

quand je filtre pour PR1 et DRW A1775400541 il affiche 3 infos au graph "this week production by Drawg ".

je veux pas te fatiguer encore Daniel , merci d'avance et on arrête.

le problème avec le nombre d'infos que mon fichier contient .

merci de nouveau.

 

[danielco]

Tu veux dire que la synchro ne fonctionne pas ?

Daniel

 

[almourasel]

Tu veux dire que la synchro ne fonctionne pas ?

Daniel

Oui pour Slicer_DRW n est pas synchrone avec le Slicer_drawg , si on selection la ligne PR1 et le Drawg A1775400541 , le slicer_ DRW selectionne les 3 drawg ensemble => ce problème apparait qu'on on élimine le filtre de Slicer_drawg

synchro Slicer_drawg et Slicer_DRW n est pas ok