Classe PivotFormula (Excel VBA)

Cet objet représente une formule utilisée pour calculer les résultats dans un rapport de tableau croisé dynamique.

Set

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

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

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe PivotFormula : PivotFormulas.Item, PivotFormulas.Add et PivotTable.PivotFormulas

For Each

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

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

Delete

Cette méthode supprime l'objet.

ActiveCell.PivotTable.PivotFormulas(1).Delete

Formula

Cette propriété renvoie ou définit une valeur de type String qui représente la formule de l'objet dans une notation de style A1 et dans la langue de la macro.

Cette propriété n'est pas disponible pour les sources de données OLAP. Si la cellule contient une constante, la propriété la renvoie. Si la cellule est vide, cette propriété renvoie une chaîne vide. Si la cellule contient une formule, la propriété Formula renvoie la formule en tant que chaîne dans le même format que celui qui doit s'afficher dans la barre de formule (y compris le signe égal). Si vous définissez une date comme valeur ou formule d'une cellule, Microsoft Excel vérifie si la cellule est déjà mise en forme avec un des formats de nombre Date ou Heure. Si ce n’est pas le cas, Excel remplace le format numérique par le format de date courte par défaut. S'il s'agit d'une plage à une ou deux dimensions, vous pouvez désigner la formule comme un tableau Visual Basic possédant les mêmes dimensions. De même, vous pouvez inclure la formule dans un tableau Visual Basic. Le fait de définir la formule pour une plage comprenant plusieurs cellules insère cette formule dans la totalité des cellules de la plage.

ActiveCell.PivotTable.PivotFormulas(1).Formula =

Index

Cette propriété renvoie ou définit une valeur de type long qui représente le numéro d’index de l’objet PivotFormula au sein de la collection PivotFormulas .

ActiveCell.PivotTable.PivotFormulas(1).Index =

Parent

Renvoie l’objet parent pour l’objet spécifié. En lecture seule.

StandardFormula

Renvoie ou définit une valeur de type String qui spécifie des formules avec une mise en forme Anglais standard (États-Unis). Lecture-écriture.

La propriété StandardFormula affecte principalement les noms d'éléments avec un format de date ou de nombre. Elle offre un moyen de spécifier ou de demander une formule pour un élément calculé donné. La propriété StandardFormula est «internationale» tandis que la propriété Formula ne l’est pas.

ActiveCell.PivotTable.PivotFormulas(1).StandardFormula = "Decimals + 10"

Value

Cette propriété renvoie ou définit une valeur String qui représente le nom de la formule spécifiée dans la formule de tableau croisé dynamique.

ActiveCell.PivotTable.PivotFormulas(1).Value =

PivotFormulas.Add

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

Syntaxe : expression.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.

Les arguments suivants sont facultatifs

UseStandardFormula - Formule de tableau croisé dynamique standard

PivotFormulas.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

PivotFormulas.Item

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

Syntaxe : expression.Item (Index)

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

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

PivotFormulas.Parent

Renvoie l’objet parent pour l’objet spécifié. En lecture seule.