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
| Sub TCP()
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
[Feuil1!A1].CurrentRegion.Address(, , xlR1C1, True)).CreatePivotTable _
TableDestination:="", TableName:="TCP"
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("TCP").SmallGrid = False
ActiveSheet.PivotTables("TCP").AddFields RowFields:= _
"CODE ARTICLE", ColumnFields:="ANNEE MOIS" ', PageFields:=""
With ActiveSheet.PivotTables("TCP").PivotFields("Qte_dem_km")
.Orientation = xlDataField
.Caption = "somme Qte_dem_km"
.Function = xlSum
End With
Application.CommandBars("PivotTable").Visible = False
Call TCD
End Sub
Sub TCD()
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
[Feuil3!A1].CurrentRegion.Address(, , xlR1C1, True)).CreatePivotTable _
TableDestination:="", TableName:="TCD"
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("TCD").SmallGrid = False
ActiveSheet.PivotTables("TCD").AddFields RowFields:="Article"
ActiveSheet.PivotTables("TCD").AddFields ColumnFields:="Année"
'ici je dois ajouter le champs mois a l'étiquette de colonne
'ActiveSheet.PivotTables("TCD").AddFields ColumnFields:="Mois" ', PageFields:=""
With ActiveSheet.PivotTables("TCD").PivotFields("Qté restant à livrer")
.Orientation = xlDataField
.Caption = "somme Qte_dem_km"
.Function = xlSum
End With
Application.CommandBars("PivotTable").Visible = False
End Sub |
Partager