Bonjour à tous
Moi aussi je bute sur mon tableau croisé dynamique : Excel me dit que j'ai une erreur de compilation ou de syntaxe
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'Total CLCV'!R" & lignedep & "C" & coldep & ":R" & "lignfin" & "C" & colfin).CreatePivotTable TableDestination:=Range("A4")
, TableName:="Tableau croisé dynamique2"
Merci d'avance pour votre aide précieuse à un débutant
Helas, cela ne marche toujours pas : maintenant j'ai le message "référence non valide
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'Total CLCV'!R" & "ligndep" & "C" & "coldep" & ":R" & lignfin & "C" & "colfin").CreatePivotTable TableDestination:=Range("A4") _
, TableName:="Tableau croisé dynamique2"
Comme tu l'as deviné, je cherche à avoir une plage variable à la place de R1C1:R10C10 par exemple
Merci d'avance pour ton aide à nouveau
Ce qu'a dit Kobaya pour lignfin est valable pour les 3 autres variables : par rapport au message de mimi, tu as remis des guillements autour des 3 autres variables et tu as changé le nom de la première variable : lignedep est devenu ligndep.
cordialement
J'avais, en plus, oublié de déclarer les variables !
Voilà la macro avec ses variables déclarées et sa syntaxe exacte du champ de données variable à exploiter en tableau croisé :
Sheets("Total CLCV").Select
'comptage du nomdre de lignes et de colonnes du tableau
lignefin = Cells(1, 1).CurrentRegion.Rows.Count
colfin = Cells(1, 1).CurrentRegion.Columns.Count
'valeurs des variables de début de lignes et de colonnes
lignedep = 1
coldep = 1
Sheets("TCD").Select
Columns("A:C").Select
Range("C1").Activate
Selection.Delete Shift:=xlToLeft
Range("A4").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'Total CLCV'!R" & lignedep & "C" & coldep & ":R" & lignefin & "C" & colfin).CreatePivotTable TableDestination:=Range("A4") _
, TableName:="Tableau croisé dynamique2"