XL 2010 Copier un tableau croisé dynamique même si celui ci a un nombre de ligne variable

306255

XLDnaute Occasionnel
Bonjour à tous,

Je souhaite copier un tableau croisé dynamique avec le code suivant mais le nombre de ligne peuvent variées en fonctions des résultats, j'aimerais copier le TCD par son nom (Tableau croisé dynamique1) mais non pas par ses coordonnées ( dans l'exemple A2:G25).

Comment est t il possiblle de modifier le code ci-dessous

Merci d'avance

Sub f()
'
' f Macro
'

'
Sheets("FOCUS").Select
Range("A2:G25").Select
Selection.Copy
Sheets("TOUS").Select
Range("X19").Select
End Sub
 

306255

XLDnaute Occasionnel
Bonjour
VB:
Sheets("FOCUS").PivotTables("Tableau croisé dynamique1").TableRange2.Copy Destination:=Sheets("TOUS").Range("X19")
Merci j'ai juste une autre demande en fait il ne doit pas être coller en x19 juste garde le "copier en mémoire" et la case x 19 c'est juste pour que la case sélectionné soit x19 après le fonctionnement de la macro

Merci pour tout
 

Discussions similaires

Réponses
3
Affichages
671

Statistiques des forums

Discussions
313 201
Messages
2 096 178
Membres
106 517
dernier inscrit
oubourigue