Classe CalculatedItems - éléments calculés (Excel VBA)

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

Dim cis as CalculatedItems
Set cis = ActiveCell.PivotField.CalculatedItems()

For Each

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

Dim pvtiCalculatedItem As PivotItem
For Each pvtiCalculatedItem In Application.CalculatedItems()
	
Next pvtiCalculatedItem

Add

Cette méthode crée un nouvel élément calculé. Renvoie un objet PivotItem .

Add (Name, Formula, UseStandardFormula)

Dim strName As String: strName = 
Dim strFormula As String: strFormula = 
Dim pvti As PivotItem
Set pvti = ActiveCell.PivotField.CalculatedItems.Add(Name:=strName, Formula:=strFormula)

Arguments

Les arguments nommés :

Name (String) - Nom de l’élément.

Formula (String) - Formule de l'élément.

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 d'éléments; 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.PivotField.CalculatedItems.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 pvtiCalculatedItem As PivotItem
Set pvtiCalculatedItem = ActiveCell.PivotField.CalculatedItems(Index:=1)