Classe PivotFilters (Excel VBA)

L'objet PivotFilters est une collection d'objets PivotFilter . Pour utiliser une variable de classe PivotFilters, elle doit d'abord être instanciée, par exemple

Dim pfs as PivotFilters
Set pfs = ActiveCell.PivotTable.ActiveFilters

For Each

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

Dim pvtfil As PivotFilter
For Each pvtfil In ActiveCell.PivotTable.PivotFilters
	
Next pvtfil

Add2

Add2 (Type, DataField, Value1, Value2, Order, Name, Description, MemberPropertyField, WholeDayFilter)

Dim pvtfilAdd2 As PivotFilter
Set pvtfilAdd2 = ActiveCell.PivotTable.ActiveFilters.Add2(Type:=xlAfter)

Arguments

Un argument nommé

Type - XlPivotFilterType

Ici on trouve valeurs possible pour XlPivotFilterType

Optional arguments

Les arguments suivants sont facultatifs

DataField

Value1

Value2

Order

Name - String

Description - String

MemberPropertyField

WholeDayFilter

Count

Renvoie le nombre d’éléments de la collection PivotFilters. En lecture seule.

Dim lngCount As Long
lngCount = ActiveCell.PivotTable.ActiveFilters.Count

Item

Cette propriété renvoie un élément spécifique de la collection PivotFilters par son emplacement dans la collection. En lecture seule.

Item (Index)

Index: Spécifie la position d'un élément de la collection.

Dim pvtfilItem As PivotFilter
Set pvtfilItem = ActiveCell.PivotTable.ActiveFilters(Index:=1)