Classe CubeFields (Excel VBA)
Collection de tous les objets CubeField d'un rapport de tableau croisé dynamique basé sur un cube OLAP. Pour utiliser une variable de classe CubeFields, elle doit d'abord être instanciée, par exemple
Dim cfs as CubeFields
Set cfs = ActiveCell.PivotTable.CubeFields
For Each
Voici un exemple de traitement des éléments CubeFields dans une collection
Dim cbf As CubeField
For Each cbf In ActiveCell.CubeFields
Next cbf
AddSet
Ajoute un nouvel objet CubeField à la collection CubeFields . L'objet CubeField correspond à un ensemble défini sur le fournisseur OLAP (Online Analytical Processing) pour le cube.
Si un ensemble avec un nom donné n'existe pas dans l'argument Nom, la méthode AddSet renvoie une erreur d'exécution.
Dim strName As String: strName =
Dim strCaption As String: strCaption =
Dim cbfAddSet As CubeField
Set cbfAddSet = ActiveCell.PivotTable.CubeFields.AddSet(Name:=strName, Caption:=strCaption)
Arguments
Les arguments nommés :
Name (String) - Nom valide dans l'ensemble de lignes de schéma SETS.
Caption (String) - Chaîne représentant le champ qui sera affiché dans la vue de tableau croisé dynamique.
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.CubeFields.Count
GetMeasure
Étant donné une hiérarchie d'attribut, renvoie une mesure implicite pour la fonction donnée qui correspond à cet attribut. Si aucune mesure implicite n'existe, une nouvelle mesure implicite est créée et ajoutée à la collection CubeFields .
L'obtention d'une mesure à l'aide de la fonction GetMeasure fonctionnera uniquement pour ces fonctions: nombre, somme, moyenne, Maxet min. Par exemple, les éléments suivants fonctionneront:
GetMeasure (AttributeHierarchy, Function, Caption)
Dim cbfGetMeasure As CubeField
Set cbfGetMeasure = ActiveCell.PivotTable.CubeFields.GetMeasure(AttributeHierarchy:=xlHierarchy, Function:=xlAverage)
Arguments
Les arguments nommés :
AttributeHierarchy (XlCubeFieldSubType) - Champ unique de cube qui est une hiérarchie d'attributs (XlCubeFieldType = xlHierarchyet XlCubeFieldSubType = xlCubeAttribute).
Ici on trouve valeurs possible pour
Function (XlConsolidationFunction) - Fonction effectuée dans le champ de données ajouté.
Ici on trouve valeurs possible pour
Optional arguments
Les arguments suivants sont facultatifs
Caption (String) - Étiquette utilisée dans le rapport de tableau croisé dynamique pour identifier cette mesure. Si la mesure existe déjà, la légende remplace l'étiquette existante de cette mesure.
Item
Cette méthode renvoie un seul objet d'une collection.
Item (Index)
Index: Nom ou numéro d'index de l'objet.
Dim cbfItem As CubeField
Set cbfItem = ActiveCell.PivotTable.CubeFields(Index:=1)