XL 2013 copier et coller un tableau croisé dynamique

306255 · 25 Février 2024

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 · 25 Février 2024

Bonjour,

A condition que l'onglet TEXTE existe :

VB:

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 · 25 Février 2024

Bonjour
essaie plutot ça

VB:

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 · 25 Février 2024

patricktoulon à dit:

Bonjour
essaie plutot ça

VB:

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

XL 2013 copier et coller un tableau croisé dynamique

306255

XLDnaute Occasionnel

Eric KERGRESSE

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

306255

XLDnaute Occasionnel

Discussions similaires