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

 

[almourasel]

autre si je veux faire la liaison entre SC1 et nouveau slicer ( on peut nommée SC5 ).
qu est ce que je dois modifier exactement svp.

 

[danielco]

Bonjour,

Je ne sais pas où se situe la lenteur. Est-ce le nombre d'items ? Est-ce qu'il n'est pas plus rapide de filtrer les TCD ?

Cordialement.

Daniel

 

[danielco]

autre si je veux faire la liaison entre SC1 et nouveau slicer ( on peut nommée SC5 ).
qu est ce que je dois modifier exactement svp.

Est-ce qu'il y a des segments qui ne sont pas compris dans la synchro (par exemple un SC6 qu'il ne faudrait pas synchroniser) ?

Daniel

 

[almourasel]

Bonjour,

Je ne sais pas où se situe la lenteur. Est-ce le nombre d'items ? Est-ce qu'il n'est pas plus rapide de filtrer les TCD ?

Cordialement.

Daniel

Salut

lenteur oui relier en nombre des items car pour pour SC3 j'ai 54 items , quand je filtre avec SC3 sa prend environ un peu de temps.
les SC sont tous relier avec le TCD.

 

[almourasel]

Est-ce qu'il y a des segments qui ne sont pas compris dans la synchro (par exemple un SC6 qu'il ne faudrait pas synchroniser) ?

Daniel

je veux ajouter un nouveau Slicer avec les même données de Slicer 1 .
si vous voulez je peux vous attacher le fichier originale pour mieux me comprendre

 

[almourasel]

fichier en attach, il contient toute les données.
je veux ajouter la liaison de Slicer dans la feuille ' History" avec le Slicer dans la feuille ' Summary DRW" qui est le dashboard feuillle.

le ficher est de 3.5 MB j arrive pas a ajouter en attach , ici le lien.

easyupload.io

easyupload.io

easyupload.io

 

[almourasel]

je veux qu'on ke selectione ici n importe quel champs , sa change dans l autre slicer .
( deja liée a une autre Slicer dans une autre feuille ).
=> ce que je cherche 1 Slicer est liée avec 2 autres slicers.

celle le slicer que je cherche a faire liaison avec :

 

[almourasel]

salut Danielco

avez vous jeter coup d'oeil svp sur le fichier.

merci d avance

 

[danielco]

Désolé, je viens de rentrer. Je regarde demain.

Daniel

 

[almourasel]

Désolé, je viens de rentrer. Je regarde demain.

Bonjour

merci , j attends votre support.

Daniel

 

[danielco]

Bonjour,

essaie. Je n'aime pas beaucoup avoir été obligé de positionner un "On Error"...

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)

    Dim sc1 As SlicerCache
    Dim SI1 As SlicerItem
    Dim SC As SlicerCache
    
    
    ' These names come from Slicer Settings dialog box
    
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Set sc1 = ThisWorkbook.SlicerCaches("Slicer_line")
    For Each SC In ThisWorkbook.SlicerCaches
      If SC.Name <> "Slicer_line" Then
        SC.ClearManualFilter
      End If
    Next SC
    On Error Resume Next
    For Each SI1 In sc1.SlicerItems
      For Each SC In ThisWorkbook.SlicerCaches
        SC.SlicerItems(SI1.Name).Selected = SI1.Selected
      Next SC
    Next SI1
    On Error GoTo 0
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

Daniel

 

[almourasel]

Bonjour,

essaie. Je n'aime pas beaucoup avoir été obligé de positionner un "On Error"...

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)

    Dim sc1 As SlicerCache
    Dim SI1 As SlicerItem
    Dim SC As SlicerCache


    ' These names come from Slicer Settings dialog box

    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Set sc1 = ThisWorkbook.SlicerCaches("Slicer_line")
    For Each SC In ThisWorkbook.SlicerCaches
      If SC.Name <> "Slicer_line" Then
        SC.ClearManualFilter
      End If
    Next SC
    On Error Resume Next
    For Each SI1 In sc1.SlicerItems
      For Each SC In ThisWorkbook.SlicerCaches
        SC.SlicerItems(SI1.Name).Selected = SI1.Selected
      Next SC
    Next SI1
    On Error GoTo 0
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

Daniel

Bonjour

pour qu il foncitonne j'ai changé le nom de Sc1 pour devenir Slicer.Line ( L en majuscule ) => je sais pas si je dois changé ou non?
j 'ai perdu l'ancienne liaison de Slicer Drawg avec sa graph et le slicer _Line2 il selectionne 2 items au même temps n est pas 1 seul suite au filtre de Slicer_Line.

 

[danielco]

pour qu il fonctionne j'ai changé le nom de Sc1 pour devenir Slicer.Line ( L en majuscule )

Quelle ligne as-tu modifiée ; Qu'as-tu mis à la place ?
Bon j'ai fait ça dans l'urgence. Je vais regarder posément cet après-midi.

Daniel

 

[almourasel]

Quelle ligne as-tu modifiée ; Qu'as-tu mis à la place ?
Bon j'ai fait ça dans l'urgence. Je vais regarder posément cet après-midi.

Daniel

Salut Daniel

j'ai modifie ici :

Set sc1 = ThisWorkbook.SlicerCaches("Slicer_Line")
If SC.Name <> "Slicer_Line" Then

Ok et Merci d'avance.