Bonjour,
j'essaie de faire une macro pour créer un tableau croisé dynamique avec une plage de données variable. Voici ma macro qui ne fonctionne pas:
Sub macro()
Sheets("Liste pièces").Select
Dim lignefin As Integer
Dim colfin As Integer
Dim lignedep As Integer
Dim coldep As Integer
lignefin = Cells(1, 1).CurrentRegion.Rows.Count
colfin = Cells(1, 1).CurrentRegion.Columns.Count
lignedep = 7
coldep = 2
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'Liste pièces'!R" & lignedep & "C" & coldep & ":R" & lignefin & "C" & colfin).CreatePivotTable TableDestination:="", _
TableName:="Tableau croisé dynamique1"
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").SmallGrid = False
End Sub
Quelqu'un pourrait m'aider a determiner ce qui cloche??
merci beaucoup!!
Bubus
j'essaie de faire une macro pour créer un tableau croisé dynamique avec une plage de données variable. Voici ma macro qui ne fonctionne pas:
Sub macro()
Sheets("Liste pièces").Select
Dim lignefin As Integer
Dim colfin As Integer
Dim lignedep As Integer
Dim coldep As Integer
lignefin = Cells(1, 1).CurrentRegion.Rows.Count
colfin = Cells(1, 1).CurrentRegion.Columns.Count
lignedep = 7
coldep = 2
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'Liste pièces'!R" & lignedep & "C" & coldep & ":R" & lignefin & "C" & colfin).CreatePivotTable TableDestination:="", _
TableName:="Tableau croisé dynamique1"
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").SmallGrid = False
End Sub
Quelqu'un pourrait m'aider a determiner ce qui cloche??
merci beaucoup!!
Bubus