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 : Sélectionner tout - Visualiser dans une fenêtre à part
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?