Classe SlicerPivotTables (Excel VBA)

La classe SlicerPivotTables représente les informations relatives à la collection de tableaux croisés dynamiques associés à l'objet SlicerCache spécifié. Pour utiliser une variable de classe SlicerPivotTables, elle doit d'abord être instanciée, par exemple

Dim spts as SlicerPivotTables
Set spts = ActiveWorkbook.SlicerCaches(1).PivotTables

AddPivotTable

Ajoute une référence à un objet PivotTable dans la collection SlicerPivotTables.

Quand un tableau croisé dynamique est ajouté à la collection SlicerPivotTables, il peut être filtré par son objet SlicerCache parent et les segments qui lui sont associés.

AddPivotTable (PivotTable)

PivotTable: Objet PivotTable qui représente le tableau croisé dynamique à ajouter.

Dim pvts As SlicerPivotTables 
Set pvts = ActiveWorkbook.SlicerCaches("Slicer_Customer").PivotTables 
pvts.AddPivotTable(ActiveSheet.PivotTables("PivotTable1"))

Count

Renvoie le nombre d'objets dans la collection.

Dim lngCount As Long
lngCount = ActiveWorkbook.SlicerCaches(1).PivotTables.Count

Item

Cette méthode renvoie un seul objet PivotTable de la collection.

Item (Index)

Index: Nom ou numéro d'index de l'objet.

Dim pvtItem As PivotTable
Set pvtItem = ActiveWorkbook.SlicerCaches(1).PivotTables(Index:=1)

RemovePivotTable

Supprime une référence à un tableau croisé dynamique à partir de la collection SlicerPivotTables.

Lorsqu’un tableau croisé dynamique est supprimé de la collection SlicerPivotTables , il n’est plus filtré par son objet SlicerCache parent et les segments qui lui sont associés.

RemovePivotTable (PivotTable)

PivotTable: Objet PivotTable qui représente le tableau croisé dynamique à supprimer, ou le nom ou l’index du tableau croisé dynamique dans la collection.

Dim pvts As SlicerPivotTables 
Set pvts = ActiveWorkbook.SlicerCaches("Slicer_Customer").PivotTables 
pvts.RemovePivotTable("PivotTable1")