Classe SlicerItem - un élément d’un segment (Excel VBA)

La classe SlicerItem représente un élément d’un segment. Pour utiliser une variable de classe SlicerItem, elle doit d'abord être instanciée, par exemple

Dim slcite as SlicerItem
Set slcite = ActiveWorkbook.ActiveSlicer.ActiveItem

For Each

Voici un exemple de traitement des éléments SlicerItem dans une collection

Dim slcite As SlicerItem
For Each slcite In ActiveWorkbook.SlicerItems
	
Next slcite

Caption

Renvoie le texte de l’étiquette de l’élément de segment. En lecture seule.

Dim strCaption As String
strCaption = ActiveWorkbook.ActiveSlicer.ActiveItem.Caption

HasData

Spécifie si l’élément de segment contient des données correspondant à l’état du filtre manuel actuel. En lecture seule.

True si l’élément de Slicer contient des données qui correspondent à l’état de filtre manuel actuel; Sinon, false. Cette propriété est uniquement prise en charge lorsque le filtrage croisé est activé, une erreur d’exécution est générée dans le cas contraire. Pour déterminer si le filtrage croisé est activé pour un segment associé à un rapport de tableau croisé dynamique, vérifiez la valeur de la propriété crossfiltertype, de l’objet parent SlicerCache de l’objet SlicerItem . Pour déterminer si le filtrage croisé est activé pour un segment associé à une source de données OLAP, vérifiez la valeur de la propriété crossfiltertype, de l’objet SlicerCacheLevel qui correspond à la hiérarchie OLAP filtrée.

Dim booHasData As Boolean
booHasData = ActiveWorkbook.ActiveSlicer.ActiveItem.HasData

Name

Renvoie le nom de l’élément de segment. En lecture seule.

Dim strName As String
strName = ActiveWorkbook.ActiveSlicer.ActiveItem.Name

Selected

Renvoie ou définit si l’élément de segment est sélectionné. En lecture/écriture pour les segments connectés à des sources de données autres que OLAP. En lecture seule pour les segments connectés à des sources de données OLAP.

True si l’élément de Slicer est sélectionné; Sinon, false.

ActiveWorkbook.ActiveSlicer.ActiveItem.Selected = True

SourceName

Renvoie le nom source de l’élément de segment. En lecture seule.

Dim strSourceName As String
strSourceName = ActiveWorkbook.ActiveSlicer.ActiveItem.SourceName

SourceNameStandard

Renvoie le nom source de l’élément de slicer au format Anglais (États-Unis) standard. En lecture seule.

Cette propriété est utilisée lorsqu’un élément de slicer fait l’objet d’une version localisée et que la valeur de sa propriété SourceNameStandard diffère de la valeur de la propriété SourceName, en termes de formatage de la date, par exemple.

Dim strSourceNameStandard As String
strSourceNameStandard = ActiveWorkbook.ActiveSlicer.ActiveItem.SourceNameStandard

Value

Renvoie la valeur de l’élément de segment. En lecture seule.

Dim strValue As String
strValue = ActiveWorkbook.ActiveSlicer.ActiveItem.Value