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)