VBA : tableau croisé dynamiq plage variable
Ju
-
tomatoket -
tomatoket -
Bonjour,
Jai une macro qui me fait un tableau croisé dynamique a partir des données d'un fichier. seulement, le nombre de lignes de ces données varie d'un jour a l'autre. (le nombre de colonne ne change pas)
dans vba, cela donne:
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"ramasse!R1C1:R712& C8").CreatePivotTable TableDestination:="", TableName:= _
"Tableau croisé dynamique4", DefaultVersion:=xlPivotTableVersion10
J'ai declaré une variable définissant le numero de ma derniere ligne. (nom de la variable : lignebas)
Comment inserer cette variable dans la formule, afin que toutes mes données soient prises en compte, quelque soit le nombre de ligne de mon fichier initial
merci !
Jai une macro qui me fait un tableau croisé dynamique a partir des données d'un fichier. seulement, le nombre de lignes de ces données varie d'un jour a l'autre. (le nombre de colonne ne change pas)
dans vba, cela donne:
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"ramasse!R1C1:R712& C8").CreatePivotTable TableDestination:="", TableName:= _
"Tableau croisé dynamique4", DefaultVersion:=xlPivotTableVersion10
J'ai declaré une variable définissant le numero de ma derniere ligne. (nom de la variable : lignebas)
Comment inserer cette variable dans la formule, afin que toutes mes données soient prises en compte, quelque soit le nombre de ligne de mon fichier initial
merci !
A voir également:
- Vba tableau dynamique
- Tableau croisé dynamique - Guide
- Tableau word - Guide
- Exemple tableau croisé dynamique télécharger - Télécharger - Tableur
- Tableau ascii - Guide
- Impossible d'afficher le rapport de tableau croisé dynamique sur un rapport existant ✓ - Forum Excel
3 réponses
Bonjour
tu peux essayer ça, j'avais le meme problème que toi, et j'ai trouvé aujourd'hui
dim lastrow
lastrow = range("A1" ).end(xldown).row
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"ramasse!R1C1:R" & lastrow & " C8").CreatePivotTable TableDestination:="", TableName:= _
"Tableau croisé dynamique4", DefaultVersion:=xlPivotTableVersion10
tu peux essayer ça, j'avais le meme problème que toi, et j'ai trouvé aujourd'hui
dim lastrow
lastrow = range("A1" ).end(xldown).row
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"ramasse!R1C1:R" & lastrow & " C8").CreatePivotTable TableDestination:="", TableName:= _
"Tableau croisé dynamique4", DefaultVersion:=xlPivotTableVersion10