1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40
| ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"2!R4C1:R2004C30", Version:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:="2!R4C35", TableName:=num_semaine, _
DefaultVersion:=xlPivotTableVersion12
Sheets("2").Select
Cells(4, 35).Select
With ActiveSheet.PivotTables(num_semaine).PivotFields( _
"contenants_NOPOINTDEP")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables(num_semaine).PivotFields( _
"pointsdepots_NOMCOM")
.Orientation = xlPageField
.Position = 1
End With
ActiveSheet.PivotTables(num_semaine).AddDataField ActiveSheet. _
PivotTables(num_semaine).PivotFields("Vol_OM1"), _
"Somme de Vol_OM1", xlSum
ActiveSheet.PivotTables(num_semaine).AddDataField ActiveSheet. _
PivotTables(num_semaine).PivotFields("Vol_OM2"), _
"Somme de Vol_OM2", xlSum
ActiveSheet.PivotTables(num_semaine).AddDataField ActiveSheet. _
PivotTables(num_semaine).PivotFields("Total_Vol_OM"), _
"Somme de Total_Vol_OM", xlSum
ActiveSheet.PivotTables(num_semaine).AddDataField ActiveSheet. _
PivotTables(num_semaine).PivotFields("Vol_TRI"), _
"Somme de Vol_TRI", xlSum
ActiveSheet.PivotTables(num_semaine).PivotSelect _
"'Somme de Vol_TRI'", xlDataAndLabel, True
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 49407
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ActiveSheet.PivotTables(num_semaine).PivotSelect _
"'Somme de Total_Vol_OM'", xlDataAndLabel, True |
Partager