Classe PivotFilter (Excel VBA)

Une PivotFilter est appliquée à un objet PivotField .

La procédure principale de la classe PivotFilter est Delete

Set

Pour utiliser une variable de classe PivotFilter, elle doit d'abord être instanciée, par exemple

Dim pvtfil as PivotFilter
Set pvtfil = ActiveCell.PivotTable.ActiveFilters(Index:=1)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe PivotFilter : PivotFilters.Item, PivotFilters.Add2, PivotField.PivotFilters et PivotTable.ActiveFilters

For Each

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

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

Thèmes

Les procédures suivantes de cette classe ont été regroupées et sont décrites sur une page thématique séparée

Value with its procedures Value1 et Value2

Méthodes

C'est la méthode principale de la classe PivotFilter

Delete - Cette méthode supprime le filtre et le retire des collections de filtres du champ de tableau croisé dynamique et du tableau croisé dynamique.

ActiveCell.PivotTable.ActiveFilters(1).Delete

Autre Méthodes

PivotFilters.Add2 -

Propriétés

Active Indique si le filtre de tableau croisé dynamique est actif. Boolean (en lecture seule).

Dim booActive As Boolean
booActive = ActiveCell.PivotTable.ActiveFilters(1).Active

DataCubeField Cette propriété s’applique uniquement aux tableaux croisés dynamiques OLAP et fournit le champ de valeur (PivotField dans la zone valeurs) filtré par pour un filtre de valeurs. En lecture/écriture CubeField.

Dim cbfDataCubeField As CubeField
Set cbfDataCubeField = ActiveCell.PivotTable.ActiveFilters(1).DataCubeField

DataField Cette propriété s'applique uniquement aux tableaux croisés dynamiques non-OLAP ; elle fournit le champ Valeur (champ de tableau croisé dynamique dans la zone Valeurs) par lequel s'effectue le filtrage pour un filtre s'appliquant aux valeurs. En lecture/écriture de champ PivotField.

Dim pvtfDataField As PivotField
Set pvtfDataField = ActiveCell.PivotTable.ActiveFilters(1).DataField

Description Fournit une description facultative de l'objet PivotFilter. Type de données String en lecture seule.

Dim strDescription As String
strDescription = ActiveCell.PivotTable.ActiveFilters(1).Description

FilterType Spécifie le type de filtre à appliquer. En lecture seule XlPivotFilterType.

Dim xpfFilterType As XlPivotFilterType
xpfFilterType = ActiveCell.PivotTable.ActiveFilters(1).FilterType

IsMemberPropertyFilter Spécifie si le filtre d'étiquette est basé sur les légendes PivotItem d'une propriété de membre du champ ou sur les légendes PivotItem du champ PivotField proprement dit. Boolean (en lecture seule).

Dim booIsMemberPropertyFilter As Boolean
booIsMemberPropertyFilter = ActiveCell.PivotTable.ActiveFilters(1).IsMemberPropertyFilter

MemberPropertyField Cette propriété spécifie la propriété PivotField du membre sur laquelle se base le filtre d'étiquette. En lecture/écriture de champ PivotField.

Dim pvtfMemberPropertyField As PivotField
Set pvtfMemberPropertyField = ActiveCell.PivotTable.ActiveFilters(1).MemberPropertyField

Name Cette propriété fournit la possibilité de nommer des filtres pour la référence. Vous ne pouvez pas compter sur la valeur d'index pour obtenir une référence précise car cette valeur est changeante.

Dim strName As String
strName = ActiveCell.PivotTable.ActiveFilters(1).Name

Order Cette propriété spécifie l'ordre d'évaluation du filtre parmi tous les filtres de valeurs appliqués à l'intégralité du tableau croisé dynamique. Entier en lecture/écriture.

ActiveCell.PivotTable.ActiveFilters(1).Order =

Parent Cette propriété renvoie l'objet parent de l'objet PivotFilter spécifié. En lecture seule.

Dim objParent As Object
Set objParent = ActiveCell.PivotTable.ActiveFilters(1).Parent

PivotField Cette propriété spécifie le champ de tableau croisé dynamique auquel est appliqué le filtre. En lecture seule.

Dim pvtfPivotField As PivotField
Set pvtfPivotField = ActiveCell.PivotTable.ActiveFilters(1).PivotField

WholeDayFilter Définit ou obtient la sémantique de filtrage des filtres de date. Boolean (en lecture/écriture).

ActiveCell.PivotTable.ActiveFilters(1).WholeDayFilter = True

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

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

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

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

PivotFilters.Parent Cette propriété renvoie l'objet parent de l'objet PivotFilters spécifié. En lecture seule.

Dim objParent As Object
Set objParent = ActiveCell.PivotTable.ActiveFilters.Parent