XL 2013 copier et coller un tableau croisé dynamique

[306255]

Bonjour à tous,

J'ai créé une macro 8 sur un document excel pour que lorsque j'appuie sur la macro 8 le TCD se copie automatiquement, pour cela j'ai utilisé CTRL A

Par contre si il y a moins ou plus de colonne la macro copie les cellule défini lors de la création de la macro avec CTRL A, j'aimerais qu'a chaque fois la sélection soit adapté au tableau et non par exemple B2:J40

Merci d'avance pour votre aide

 

[Eric KERGRESSE]

Bonjour,

A condition que l'onglet TEXTE existe :

Sub Macro8()

Dim Pvt As PivotTable

    ActiveWorkbook.RefreshAll
    Sheets("TEXTE").Cells.Clear
    Set Pvt = Sheets("TCD").PivotTables("Tableau croisé dynamique5")
    With Pvt
         .PivotSelect "TC[All]", xlLabelOnly, True
         .TableRange2.Copy Destination:=Sheets("TEXTE").Range("B2")
    End With
    Set Pvt = Nothing
    
End Sub

 

[patricktoulon]

Bonjour
essaie plutot ça

Sub Macro8()
    Sheets("TCD").PivotTables("Tableau croisé dynamique5").TableRange2.Copy
   ' Sheets("TEXTE").Select'feuille absente dans ton fichier démo
   ' a toi de coller ça ou tu veux
End Sub

 

[306255]

Bonjour
essaie plutot ça

Sub Macro8()
    Sheets("TCD").PivotTables("Tableau croisé dynamique5").TableRange2.Copy
   ' Sheets("TEXTE").Select'feuille absente dans ton fichier démo
   ' a toi de coller ça ou tu veux
End Sub

Merci c'est nickel