Discussion :

[laurentdx59]

Bonjour à tous,

J'ai besoin d'aide pour problème que je rencontre.
Je souhaite via VBA que les filtres sur mes segments s'annulent. La Macro que j'utilise actuellement fait le job mais sur l'ensemble de mes feuilles (normal puisque j'ai mis activeworkbook) alors que je souhaiterais que cela ne se fasse que sur le feuille 1.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub supfiltre()
 
For Each Sslice In ActiveWorkbook.SlicerCaches
    Sslice.ClearManualFilter
Next
 
End Sub

Auriez vous une idée?

Merci d'avance,

Laurent

[Philippe Tulliez]

Bonjour,
Alors je n'ai pas d'expérience avec les segments mais pour les traiter par feuille, il faut manifestement utiliser l'objet Shape de type 25
J'ai fait quelques tests qui semble concluant

shtData est le CodeName de la feuille traitée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Test()
  Dim shpe As Shape
  With shtData
    For Each shpe In .Shapes
      If shpe.Type = 25 Then shpe.Delete
    Next
  End With
  Set shpe = Nothing
End Sub

[EDIT]
On peut le faire également avec cette syntaxe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.SlicerCaches("Segment_Vendeur1").Delete

Cependant, il est difficile de connaître le nom du segment si l'on en a deux affichant la même étiquette (par exemple Vendeur du tableau structuré et Vendeur du tableau croisé dynamique). L'un se nomme Vendeur et l'autre Vendeur1 or le nom qui apparaît dans l'onglet [Segment] est celui de l'étiquette, c'est à dire Vendeur


[EDIT2]
Il y a mieux
Voici une fonction générique qui supprime les segments d'une feuille que l'on invoque avec cette ligne d'instruction RemoveSlicer shtData

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Function RemoveSlicer(oSheet As Worksheet)
  Dim Slc As SlicerCache
  Dim Sli As Slicer
  For Each Slc In ActiveWorkbook.SlicerCaches
    For Each Sli In Slc.Slicers
       If Sli.Shape.Parent Is oSheet Then Slc.Delete
    Next
  Next
  Set Slc = Nothing: Set Sli = Nothing
End Function

[78chris]

Bonjour à tous

Pour défiltrer les segments il est plus simple de défiltrer directement le TCD

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Nom de la feuille").PivotTables("Nom du TCD").ClearAllFilters

[laurentdx59]

Bonjour,

Merci pour vos retours. J'ai opté pour la réponse de 78CHRIS.

Merci à vous,

Laurent