Classe CalculatedFields - champs calculés (Excel VBA)

Collection d'objets PivotField qui représente tous les champs calculés du rapport de tableau croisé dynamique spécifié. Pour utiliser une variable de classe CalculatedFields, elle doit d'abord être instanciée, par exemple

Dim cfs as CalculatedFields
Set cfs = ActiveCell.PivotTable.CalculatedFields()

For Each

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

Dim pvtfCalculatedField As PivotField
For Each pvtfCalculatedField In Application.CalculatedFields()
	
Next pvtfCalculatedField

Add

Cette méthode crée un champ calculé. Cette propriété renvoie un objet PivotField .

Add (Name, Formula, UseStandardFormula)

Worksheets(1).PivotTables(1).CalculatedFields.Add "PxS", _ 
 "= Product * Sales"

Arguments

Les arguments nommés :

Name (String) - Nom du champ.

Formula (String) - Formule du champ.

Optional arguments

Les arguments suivants sont facultatifs

UseStandardFormula (Boolean) - False (par défaut) pour la compatibilité descendante. True pour les chaînes contenues dans les arguments qui sont des noms de champs; seront interprétées comme ayant été mises en forme en anglais (États-Unis) et non en anglais 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.CalculatedFields.Count

Item

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

Le nom de l'objet est la valeur des propriétés Name et value .

Item (Index)

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

Dim pvtfCalculatedField As PivotField
Set pvtfCalculatedField = ActiveCell.PivotTable.CalculatedFields(Index:=1)