Tableau Croisé Dynamique(pivot table)
Bonjour,
Je cherche un code pour créer un tableau croisé dynamique(pivot table) qui prends toutes les donnés à partir de la cellule active jusqu'à la fin du tableau.
Ma problématique est que lorsque j'enregistre ma macro, les cellules dans le code son absolue pour la matrice du tableau croisé dynamique. Je voudrais mettre cette macro dans mes macro personnelles et l'utiliser dans n'importe quelle page et sur n'importe quelle grandeur de matrice. Voici mon code:
Code:
1
2
3
4
5
6
7
| Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Feuil1!R9C4:R12C5").CreatePivotTable TableDestination:="", TableName:= _
"Tableau croisé dynamique3", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select |
QQun a une solution?
