Discussion :

[miliev83]

Bonjour,

Je cherche un moyen de coller des lignes après un tableau croisé dynamique.
Il faudrait que les lignes copiées viennent se coller juste après la dernière ligne du TCD qui contient le mot "Total".

Mon tableau va de la colonne A à S.

Merci d'avance

[Fvandermeulen]

Salut,

Une petite variable qui détermine la dernière cellule remplie, théoriquement la ligne Total de ton TCD

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DerLig=sheets("TaFeuille").cells(columns(1).cells.count,1).end(xlup).row

[miliev83]

Le truc c'est que ma macro va chercher la dernière ligne de ma feuille et venir copier mes autres données.

Le problème est donc que cela va venir se mettre à chaque fois après ces nouvelles lignes alors que je voudrais que cela se colle après la ligne total pour être sûre que cela écrase bien les anciennes données qui ont été copiées.

Je sais pas si j'ai été très clair ?

[Fvandermeulen]

Salut,

c'est bien clair mais ne connaissant pas la structure de ton TCD, il y a une autre astuce, que j'aime pas trop car avec un Select mais avec le peu d'info j'ai rien d'autre pour l'instant (Sauf utiliser le .Find)

L'idée est de sélectionner ta ligne Total par le code et de faire un Offset =>

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    ActiveSheet.PivotTables("LeNomDeTonTCD").PivotSelect "'Column Grand Total'", xlDataAndLabel + xlFirstRow, True 'Attention je suis en GB, faudra certainement adapter 'Column Grand Total', sinon tu peux le récupérer via l'enregistreur
    ActiveCell.Offset(1, 0).Select

A+

[miliev83]

merci pour ta réponse,

comment je fais pour récupérer le nom de mon TCD ?

J'ai mis en PJ mon fichier simplifié, ce que je souhaite faire c'est donc détecter la ligne total pour venir copier ce que j'ai sur l'onglet BD de la colonne A à M

[Fvandermeulen]

Salut,

Le nom de ton TCD est mentionnée (et modifiable) via le menu (Onglet) qui apparait lorsque tu sélectionne un cellule de ton TCD (tout en haut à droite)
Dans ce nouvel Onglet, tu as Option, dans le Ruban des options, tout à gauche tu trouve le nom que tu peux modifier.

Sinon, pour t'assuer du nom à donner à la ligne total, tu peux utiliser l'enregistreur de macro.
Lance l'enregistreur de macro, ensuite place ton curseur sur la ligne qui contient le total, lorsque le curseur devient un flèche pleine noire, clique.
Ca sélectionne l'ensemble de la ligne des totaux.
Arrête l'enregistreur et va voir le code, ca doit être quelque chose du genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotSelect _
        "'Column Grand Total'", xlDataAndLabel, True