Slicer en False

Gabby · 22 Décembre 2013

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.

Code:

ActiveWorkbook.SlicerCaches("Segment_Centre").ClearManualFilter

voila ma base de travail

Code:

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

merci pour votre temps

mapomme · 23 Décembre 2013

Re : Slicer en False

Bonjour Gabby,

Peut-être comme ceci:

VB:

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

Slicer en False

Gabby

Guest

mapomme

XLDnaute Barbatruc

Discussions similaires

Slicer en False

Gabby

Guest

mapomme

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency