Slicer en False

[Gabby]

Bonjour,

J'aimerai avoir de l'aide pour un petit bout de code svp.

Je voudrais mettre tous les sliceritems en False par défaut et seulement le vide en true.

J'ai le code pour mettre tous en true mais je trouve pas l'inverse.

ActiveWorkbook.SlicerCaches("Segment_Centre").ClearManualFilter

voila ma base de travail

    With ActiveWorkbook.SlicerCaches("Segment_Centre")
      .SlicerItems("(vide)").Selected = True
    End With

merci pour votre temps

 

[mapomme]

Re : Slicer en False

Bonjour Gabby,

Peut-être comme ceci:

Sub Test()
Dim slc As SlicerItem
With ActiveWorkbook.SlicerCaches("Segment_Centre")
      For Each slc In .SlicerItems
        slc.Selected = slc.Name = "(vide)"
      Next slc
    End With
End Sub