Méthode CubeField.CreatePivotFields (Excel)

La méthode CreatePivotFields permet aux utilisateurs d’appliquer un filtre aux champs de tableau croisé dynamique qui n’ont pas encore été ajoutés au tableau croisé dynamique en créant l’objet PivotField correspondant.

Syntaxe

. CreatePivotFields

expression Variable qui représente un objet CubeField.

Remarques

Dans les tableaux croisés dynamiques OLAP, les champs de tableau croisé dynamique n'existent pas tant que l'objet CubeField correspondant n'a pas été ajouté au tableau croisé dynamique. La méthode CreatePivotFields permet aux utilisateurs de créer tous les champs de tableau croisé dynamique d’un champ de cube. Les utilisateurs peuvent également ajouter des filtres aux champs de tableau croisé dynamique et définir des propriétés dessus avant l'ajout de l'objet CubeField au tableau croisé dynamique.

Exemple

Sub FilterFieldBeforeAddingItToPivotTable() 
 ActiveSheet.PivotTables("PivotTable1").CubeFields("[Date].[Fiscal]").CreatePivotFields 
 
 ActiveSheet.PivotTables("PivotTable1").PivotFields("[Date].[Fiscal].[Fiscal Year]").VisibleItemsList = 
 
 "[Date].[Fiscal].[Fiscal Semester]").VisibleItemsList = Array("") 
 ActiveSheet.PivotTables("PivotTable1").PivotFields( _ 
 "[Date].[Fiscal].[Fiscal Quarter]").VisibleItemsList = Array("") 
 
 ActiveSheet.PivotTables("PivotTable1").PivotFields("[Date].[Fiscal].[Month]"). _ 
 VisibleItemsList = Array("") 
 
 ActiveSheet.PivotTables("PivotTable1").PivotFields("[Date].[Fiscal].[Date]"). _ 
 VisibleItemsList = Array("") 
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.