1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| 'Testé sous Excel 2007
Dim RefPlage As String, Cible As String
Dim Ch As Chart
'Crée la référence des sources style: Feuil1!R1C1:R6C2
RefPlage = Range("NomPlage").Address(ReferenceStyle:=xlR1C1, _
RowAbsolute:=True, ColumnAbsolute:=True)
Cible = "Données!" & RefPlage
Sheets.Add
'Crée le TCD dans la cellule A1 de la noucelle feuille
ActiveWorkbook.PivotCaches.Add(SourceType:=xlConsolidation, _
SourceData:=Cible).CreatePivotTable _
TableDestination:=ActiveSheet.Range("A1"), _
TableName:="Tableau croisé dynamique1" |