Copier/coller à partir d'un TCD

[Demanda]

Bonjour,

Je voudrais copier/coller certaines cellules de mon tableau dynamique croisé (surlignée en jaune dans mon fichier)
J'ai commencé à taper une macro mais rien ne se passe lorsque je la déclenche.
Merci d'avance pour votre aide

Sub trouversomme()
Dim i, j As Integer
i = 5
j = 5
Do Until Sheets("Tableaudynamique2").Cells(i, 4).Value = "Total"
i = i + 1
Loop
For j = 5 To i - 1
Range(Cells(i, j - 1), Cells(i, j)).Select
selection.Copy
Range("B29").Select
ActiveSheet.Paste
Next j
End Sub

 

[Guest]

Re : Copier/coller à partir d'un TCD

Bonjour le Forum,

voici une macro qui va copier les lignes de resultats du TCD:

Sub CopierLigneTCD()
    Dim pvt As PivotTable
    Set pvt = Sheets("Feuil1").PivotTables("Tableau croisé dynamique2")
    With pvt.RowRange
        .Offset(1).Resize(.Rows.Count - 1, 2).Copy Range("B29")
    End With
End Sub

A+

 

[Demanda]

Re : Copier/coller à partir d'un TCD

Merci beaucoup!!!!!!!!!!!!