VBA tableau croisé dynamique Endxldown

[rocky9]

Bonjour,

Avec l'enregistreur de macro, après avoir selectionné rapport de tableau croisé dynamique, je selectionne le tableau avec ctrl+shift+bas puis droite pour avoir un endxldown et right.

Le problème c'est qu'il me donne le code suivant qui selectionne des cellules et ne permet pas à ma macro d'adapter la selection sur un tableau plus grand.

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "'Matrice Detaillee'!R4C1:R11617C9").CreatePivotTable _
        TableDestination:="", TableName:="Tableau croisé dynamique1", _
        DefaultVersion:=xlPivotTableVersion10

Il y a R4C1:R11617C9 et non R4C1:end(xldown) et end(xlright)

Comment faire svp ?

 

[JCGL]

Re : VBA tableau croisé dynamique Endxldown

Bonjour à tous,

Peux-tu essayer avec :

Sub TCD()
Dim Plage As Range

Set Plage = Feuil1.[A4].CurrentRegion
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
Plage).CreatePivotTable TableDestination:="'[Current Region.xls]F1'!R2C19", TableName:="TCD1", _
DefaultVersion:=xlPivotTableVersion10
End Sub

A + à tous

 

[rocky9]

Re : VBA tableau croisé dynamique Endxldown

Bonjour et merci pour la reponse,

Lorsque je change

Set Plage = Feuil1.[A4].CurrentRegion

par le nom de la feuille où l'on selectionne

Set Plage = Matrice Detaillee.[A4].CurrentRegion

Cela me fait une fin d'instruction à cette ligne.

Sur la suite ça ne marche pas non plus

 

[rocky9]

Re : VBA tableau croisé dynamique Endxldown

J'ai reussi par le code suivant:

Dim lastrow

lastrow = Range("A4").End(xlDown).Row
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'Matrice Detaillee'!R4C1:R" & lastrow & "C9").CreatePivotTable _
TableDestination:="", TableName:="Tableau croisé dynamique1", _
DefaultVersion:=xlPivotTableVersion10

Merci pour l'aide
Bonne journée