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
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