Bonjour,

J'ai créé un bouton qui lance automaquement le tableau croisé dynamique.
Avant de lancer ce TCD, je spécifie bien la selection de données à prendre en compte:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
    Sheets("Onglet1").Activate
    Range("A1:L" & Cells(Rows.Count, "L").End(xlUp).Row - 1).Select 'pour s'arreter a l'avant derniere ligne
avec ce premier code, je sélectionne automatiquement mes données jusqu'à l'avant derniere ligne.
Le problème, quand j'applique le TCD sur cette selection, il prend tout de même unnombre de lignes précis (il s'arrete à la ligne 50, qui correpond à ma derniere ligne)

Y a t il un moyen pour insérer +/- le code svt: Range("A1:L" & Cells(Rows.Count, "L").End(xlUp).Row - 1), et ainsi lancer automatiquement le tcd sans devoir préciser le nb ligne et prendre que l'avant derniere ligne?

Voici le début de mn tcd:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Onglet1!R1C1:R50C12").CreatePivotTable TableDestination:="", _
        TableName:="Tableau croisé dynamique1", DefaultVersion:= _
        xlPivotTableVersion10
Merci d'avance pour votre aide.