Méthode CalculatedMembers.Add (Excel)

Cette méthode ajoute un champ ou un élément calculé à un tableau croisé dynamique. Renvoie un objet CalculatedMember .

Syntaxe

expression. Add (Name, Formula, SolveOrder, Type, Dynamic, DisplayFolder, HierarchizeDistinct)

expression Variable qui représente un objet CalculatedMembers .

Paramètres

Nom	Requis/Facultatif	Type de données	Description
Name	Obligatoire	String	Nom du membre calculé.
Formule	Obligatoire	String	Formule du membre calculé.
SolveOrder	Facultatif	Variant	Ordre de résolution du membre calculé.
Type	Facultatif	Variant	Type du membre calculé.
Dynamic	Facultatif	Boolean	Spécifie si le membre calculé est recalculé à chaque mise à jour.
DisplayFolder	Facultatif	String	Nom du dossier d’affichage du membre calculé.
HierarchizeDistinct	Facultatif	Boolean	Spécifie s’il faut classer et supprimer les doublons lors de l’affichage de la hiérarchie du membre calculé dans un rapport de tableau croisé dynamique basé sur un cube OLAP.

Valeur renvoyée

Objet CalculatedMember qui représente le nouveau champ ou élément calculé.

Remarques

L'argument Formule doit contenir une instruction avec une syntaxe MDX valide. L’argument Name doit être acceptable pour le fournisseur OLAP (Online Analytical Processing) et l’argument Type doit être défini.

Si vous définissez l’argument Type de cette méthode sur xlCalculatedSet, vous devez appeler la méthode AddSet de l’objet CubeFields pour rendre le nouvel ensemble de champs visible dans le tableau croisé dynamique.

Exemple

L'exemple suivant montre comment ajouter un jeu à un tableau croisé dynamique.

Remarque

La connexion au cube et au tableau croisé dynamique existant est nécessaire pour que l’exemple s’exécute.

Sub UseAddSet() 
 
 Dim pvtOne As PivotTable 
 Dim strAdd As String 
 Dim strFormula As String 
 Dim cbfOne As CubeField 
 
 Set pvtOne = ActiveSheet.PivotTables(1) 
 
 strAdd = "[MySet]" 
 strFormula = "'{[Product].[All Products].[Food].children}'" 
 
 ' Establish connection with data source if necessary. 
 If Not pvtOne.PivotCache.IsConnected Then pvtOne.PivotCache.MakeConnection 
 
 ' Add a calculated member titled "[MySet]" 
 pvtOne.CalculatedMembers.Add Name:=strAdd, _ 
 Formula:=strFormula, Type:=xlCalculatedSet 
 
 ' Add a set to the CubeField object. 
 Set cbfOne = pvtOne.CubeFields.AddSet(Name:="[MySet]", _ 
 Caption:="My Set") 
 
End Sub

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.