Copier coller VBA

Deuxième topic de la journée vu que ce forum est plus que compétent je retente ma chance.

J'essai de faire un copier coller par macro d'une partie de mon TCD, le problème étant que le copier-coller n'insère pas les titres de colonne, alors que durant l'enregistrement de la macro ça fonctionne...

Voici mon code VBA

Sub Macro11()
'
' Macro11 Macro
'

'
    ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotSelect _
        "'AGENCE 1' Activité[All]", xlDataAndLabel, True
    Selection.Copy
    Range("B19").Select
    ActiveSheet.Paste
End Sub

Fichier en pièce jointe. Voir onglet "TCD veh"

Merci d'avance

    activesheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

J'ai essayé avec ce code

'
    ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotSelect _
        "'AGENCE 1' Activité[All]", xlDataAndLabel, True
    Selection.Copy
    Range("B19").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

mais ça ne change rien :/

Personne n'a d'idée svp ?

Bonjour, peut-être

ActiveSheet.PivotTables("Tableau croisé dynamique1").TableRange1.Copy

   Range("B19").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False

à tester !

Slt

Merci Guitouille, je teste ça dés qu'Excel ne plantera plus chez moi ^^

Pour l'instant : "ne réponds pas"

La macro ne fonctionne pas.

j'ai une erreur d'exécution '1004':

Impossible de lire la propriété PivotTables de la classe Worksheet.

Ups, my bad

éssai en remplaçant le 1 par 2 dans

ActiveSheet.PivotTables("Tableau croisé dynamique1")

-_-' J'aurais pu le voir aussi ...

On y est presque, mais la j'ai toute les agences de copiées mais il me les faudrait une à une ...

En gros je veux découper mon TCD par agences

Hum,

test pour voir si c'est ce que tu veux (si ton TCD évolue, je ne garantie pas que la macro suivra)

Pourquoi ne pas faire un deuxième TCD avec les agences en étiquettes de ligne ?

Effectivement si le tableau évolue ça ne suis pas derrière.

Je ne fais pas un deuxième TCD car je ramène les données des agences dans des tableaux du même nom que l'agence sur un autre classeur

Ca me sert à faire fonctionner cette formule.

=SI(J21="Société1";SI(J22="Agence 1";RECHERCHEH(J23;agence1[#Tout];SI(L24="Type 1";2;SI(L24="Type 2";3;4)));SI(J22="Agence 2";RECHERCHEH(J23;agence2[#Tout];SI(L24="Type 1";2;SI(L24="Type 2";3;4)));SI(J22="Agence 3";RECHERCHEH(J23;gence3[#Tout];SI(L24="Type 1";2;SI(L24="Type 2";3;4))));FAUX)

Mais jusque la mes petits tableaux servant à faire une recherche je les faisaient en copier coller, mais je dois rendre ça automatique pour éviter les erreurs et gagner du temps.

Et bien il reste plus qu'à attendre que quelqu'un qui connait la syntaxe pour manipuler les tcd pointe son nez, ce n'est malheureusement pas mon cas !s

j'ai fais une ultime tentative, à tester

Ca me donne un truc bizarre ^^

Je crois que je vais laisser cette macro et prendre celle que tu m'as donné au début tout en mettant les dépôt en étiquette de ligne avec les type en sous étiquette. après il faudra que je me refasse une formule où il faut que j'aille cherche des donné en cumulant recherche v et h

Ca va être du sport encore tout ça ^^

Il y a l'explication de ce que je veux faire sur le fichier joint

Bonjour,

pour chercher tes données par formule, au lieu de mixer les rechercheV rechercheH, je pense qu'il est préférable d'utiliser index et equiv

Salut,

Du coup j'utilise directement le TCD avec la formule LIREDONNEES.......()

Pour l'instant tout fonctionne parfaitement