orientation = xlcolumnfield

Orientation = xlColumnField .Position = . End With ActiveSheet.PivotTables(" Tableau croisé dynamique").AddDataField ActiveSheet. _Orientation = $ xlColumnField $PivotFields.Position = $PivotFields = $ Worksheet.PivotTables("PivotTable").PivotFields("Field") # ColumnLables = "Orientation = xlColumnField .Position = End With ActiveSheet.PivotTables(" Tableau croisé dynamique").AddDataField ActiveSheet. _ PivotTables("Tableau

. orientation (arguments : =xlRowField xlColumnField ou xlHidden), pour choisir si le champ est mis en ligne, en colonne ou non utilisé, .position (= ), pour Orientation =$ xlColumnField FullyQualifiedErrorId : ComMethodTargetInvocation Propriété « Orientation » introuvable dans cet objet.

Il peut s’agir de l’une des constantes XlPivotFieldOrientation suivantes : xlColumnField , xlDataField, xlHidden, xlPageField ou xlRowField. 🙂 A.Orientation = xlColumnField .Position = End With With ActiveSheet.PivotTables( "PivotTable").PivotFields("Group") .Orientation = xlRowField .Position = End 

Orientation = xlColumnField .Position = End With ActiveSheet.PivotTables(" PivotTable").AddDataField ActiveSheet.PivotTables( _ "PivotTable").Orientation = xlColumnField .AddDataField .PivotFields("CA"), "C.A.", xlSum . DataFields("C.A.").NumberFormat = " " End With End Sub Quelques explications Orientation = xlColumnField .Caption = "My CubeField " End With objPivotTable .ColumnFields().Caption = "My ColumnField " ‘ define a ScreenUpdating = False ‘ Switches orientation from one to the other With ActiveSheet.PivotTables().PivotFields("Data") If . Orientation = xlColumnField Then . ‘code obtenu avec l’enregistreur de macros. If VQuest <> "" Then With .PivotFields (VQuest) . = .Position = . End With

Orientation Case xlHidden MsgBox "Hidden field" Case xlRowField MsgBox " Row field" Case MsgBox "Column field" Case Orientation = xlRowField .Position = End With With ActiveSheet.PivotTables(" PivotTableS").PivotFields("Hour") . = .Position = End

xlColumnField xlColumnField de cette propriété pour un champ dans une hiérarchie définit l’ orientation pour les autres champs dans la même hiérarchie. Orientation = xlColumnField .Position = End With With ActiveSheet.PivotTables( "Tableau croisé dynamique").PivotFields( _ "Représentant")  Mise en place des champs. With ActiveSheet.PivotTables("Tableau"). PivotFields("Champs_") . = .position = PivotTables("Tableau croisé dynamique " & nomCnxtcd).PivotFields(champCol) . = .Position = End With With Orientation = xlColumnField .Position = . End With With ActiveSheet.PivotTables ("Tableau croisé dynamique").PivotFields( _ "Pays Filiale")Orientation = xlRowField .Position = . End With With ActiveSheet.PivotTables(" Tableau croisé dynamique").PivotFields("Mois") . =