Classe PivotFormulas (Excel VBA)

La classe PivotFormulas représente la collection de formules d'un rapport de tableau croisé dynamique. Pour utiliser une variable de classe PivotFormulas, elle doit d'abord être instanciée, par exemple

Dim pfs as PivotFormulas
Set pfs = ActiveCell.PivotTable.PivotFormulas

For Each

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

Dim pvtfor As PivotFormula
For Each pvtfor In ActiveCell.PivotTable.PivotFormulas
	
Next pvtfor

Add

Cette méthode crée une formule de tableau croisé dynamique.

Add (Formula, UseStandardFormula)

Worksheets(1).PivotTables(1).PivotFormulas _ 
 .Add "Year['1998'] Apples = (Year['1997'] Apples) * 2"

Arguments

Un argument nommé

Formula (String) - Nouvelle formule de tableau croisé dynamique.

Optional arguments

Les arguments suivants sont facultatifs

UseStandardFormula - Formule de tableau croisé dynamique standard

Count

Cette propriété renvoie une valeur de type Long qui représente le nombre d’objets de la collection.

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

Item

Cette méthode renvoie un seul objet d'une collection.

Item (Index)

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

Dim pvtfor As PivotFormula
Set pvtfor = ActiveCell.PivotTable.PivotFormulas(Index:=1)