Note
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier les répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de changer de répertoire.
La méthode CreatePivotFields permet aux utilisateurs d’appliquer un filtre aux champs croisés dynamiques qui n’ont pas encore été ajoutés au tableau croisé dynamique en créant l’objet PivotField correspondant.
Syntaxe
expression. CreatePivotFields
expression Variable qui représente un objet CubeField .
Remarques
Dans les tableaux croisés dynamiques OLAP, les champs croisés dynamiques n’existent pas tant que le CubeField correspondant n’est pas ajouté au tableau croisé dynamique. La méthode CreatePivotFields permet aux utilisateurs de créer tous les champs croisés dynamiques d’un CubeField. 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.