tableau croisé dynamique et macro

[pepparkakor]

Bonjour,

Je souhaite faire une macro afin de créer un tableau croisé dynamique pour mettre à jour chaque mois un certain nombre d'informations.
Mon TCD va chaque fois pointer sur le même onglet (BD) mais par contre le tableau de données de l'onglet BD peut éventuellement changer de taille (plus ou moins de lignes).
Je compte donc dans le prog le nombre NB de lignes de mon tableau de données et ensuite j'essaie de créer mon TCD.
Faisant mes premiers pas dans vba, j'ai fait un enregistrement de macro que je souhaite modifier pour l'adapter à mon nombre de lignes NB (et non 1664 qui est le nb de lignes actuel de mon fichier).
Comment faut-il écrire cela ???

Sheets("BD").Range("A1").Select

NB = Application.WorksheetFunction.CountA(Columns("A:A"))


Range(Selection, Cells(NB, 9)).Select

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"BD!R1C1:R1664C9").CreatePivotTable TableDestination:= _
"'[Optimisation_Exemple de tableaux de bord commerciaux.xls]TCD'!R1C1", _
TableName:="Tableau croisé dynamique", DefaultVersion:= _
xlPivotTableVersion10

 

[RENAUDER]

Re : tableau croisé dynamique et macro

Bonjour,
Va voir ce fil de discussion
https://www.excel-downloads.com/threads/tcd-avec-plage-variable.84604/

 

[pepparkakor]

Re : tableau croisé dynamique et macro

Merci beaucoup, c'est parfait !