je ne sais pas, voila le code créé par l'enregistreur de macro
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="'Transfert 4 brins 8m'!R6C1:R500C13").CreatePivotTable TableDestination:="'[Chiffrage.xls]Transfert 4 brins 8m'!R6C16", TableName:="Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion10
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.SmallScroll Down:=-9
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Code")
.Orientation = xlPageField
.Position = 1
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Marge T."), "Nombre de Marge T.", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Prix net HT"), "Nombre de Prix net HT", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("PTHT"), "Nombre de PTHT", xlSum
With ActiveSheet.PivotTables("Tableau croisé dynamique1").DataPivotField
.Orientation = xlColumnField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Type")
.Orientation = xlRowField
.Position = 1
End With
ActiveWorkbook.ShowPivotTableFieldList = False |
la ligne
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="'Transfert 4 brins 8m'!R6C1:R500C13").CreatePivotTable TableDestination:="'[Chiffrage.xls]Transfert 4 brins 8m'!R6C16", TableName:="Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion10
je l'ai remplacer par
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="'" & Sheets(ComboPièce) & "'!" & Range(Cells(6, 1), Cells(i - 1, 13))).CreatePivotTable TableDestination:="'[Chiffrage.xls]" & Sheets(ComboPièce).Select & "'!" & Cells(6, 16), TableName:="Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion10
je te met en couleur les variable que j'ai modifié
Partager