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 41 42 43 44
| ActiveWorkbook.Sheets("Par TC").Select
ActiveSheet.Cells(9, 1).Select
num_ligne = L - 1
Set donnees = Range(ActiveSheet.Cells(9, 1), ActiveSheet.Cells(num_ligne, 15))
Set shtcd = Sheets.Add
shtcd.Name = "TCD"
ActiveWorkbook.Sheets("TCD").Select
Set pc1 = ActiveWorkbook.PivotCaches.Add(xlDatabase, "'" & donnees.Parent.Name & "'!" & donnees.Address(ReferenceStyle:=xlR1C1))
Set pt1 = pc1.CreatePivotTable(TableDestination:=Worksheets("TCD").Cells(3, 1), TableName:="Recap") ', DefaultVersion:=xlPivotTableVersion10)
With ActiveSheet.PivotTables("Recap")
With .PivotFields(ActiveWorkbook.Sheets("Par TC").Range("A9").Value)
.Orientation = xlRowField
.Position = 1
End With
With .PivotFields(ActiveWorkbook.Sheets("Par TC").Range("O9").Value)
.Orientation = xlColumnField
.Position = 1
End With
With .PivotFields(ActiveWorkbook.Sheets("Par TC").Range("D9").Value)
.Orientation = xlPageField
.Position = 1
End With
With .PivotFields(ActiveWorkbook.Sheets("Par TC").Range("I9").Value)
.Orientation = xlPageField
.Position = 2
End With
With .PivotFields(ActiveWorkbook.Sheets("Par TC").Range("N9").Value)
.Orientation = xlDataField
.Caption = "Solde dû en "
.Position = 1
End With
With .PivotFields(ActiveWorkbook.Sheets("Par TC").Range("N9").Value)
.Orientation = xlDataField
.Caption = "Nombre de Retards"
.Function = xlCount
.Position = 2
End With
End With |
Partager