Currentregion + TCD

[julien974]

Bonjour,

Je souhaiterais insérer un currentregion dans cette macro de création de TCD. Ainsi toute la plage de données sera selectionnées à chaque actualisation.

Est ce possible?

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Matrice1!R1C1:R31C3").CreatePivotTable TableDestination:="", TableName:= _
        "Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion10
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select

Merci bcp de votre aide,

Cordialement,

Juli3n974

 

[tototiti2008]

Re : Currentregion + TCD

Bonjour Julien,

et en remplaçant

SourceData:= _
        "Matrice1!R1C1:R31C3"

par

SourceData:= _
        Sheets("Matrice1").Range("A1").CurrentRegion

ça donne quoi ?

 

[julien974]

Re : Currentregion + TCD

Parfait tototiti2008!!!

A bientôt,

Juli3n974