Discussion :

[sebfch]

Bonjour,

J'ai un classeur "activité.xlsm" et un classeur "du.xlsm".
Dans mon classeur activité j'ai plusieurs feuilles où une feuille = une activité. C'est sous forme de tableaux croisés dynamiques pour chaque feuille.
J'aimerais faire un copier/coller de chaque tableaux l'un en dessous de l'autre.
Sauf qu'il y a différents sites qui font plus ou moins d'activités, ce qui fait que je ne peux pas faire de copier/coller avec des cases figées.
Il me faudrait le code vba qui me permet de voir dès qu'il n'y a plus rien pour le coller juste en dessous de la dernière ligne.

Si vous savez, n'hésitez pas !
Merci d'avance

[halaster08]

Tu peut obtenir la dernière ligne non vide avec le code suivant. (ici sur la colonne "A")

Code :

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

DernièreLigne = Range("A" & Rows.Count).End(xlUp).Row

Grace a cette variable tu devrais pouvoir selectionnr ton tableau.

De plus en recalculant cette variable sur la feuille ou tu colle les tableaux après chaque copier-coller et en collant ton tableau à la ligne suivante tu auras ce que tu cherches.

[Philippe PONS]

Salut,

l'objet PivotTable a une propriété TableRange2
qui renvoi la plage occupée par un TCD.
Tu peux ainsi déterminer la ligne à partir de laquelle
tu peux coller le prochain TCD.

Cordialement,

[sebfch]

Bonjour,

J'aurais d'une petite aide, je suis débutant en vba.
je ne sais pas comment utiliser PIVOT.TABLE. et j'ai besoin de faire des collages spéciaux (forme).

[Philippe PONS]

Hello sebfh,

peux tu nous envoyer ton classeur,
en enlevant bien sur les données sensibles!
Là, c'est trop vague pour t'aider!
Cordialement,

[sebfch]

voilà un screen d'une feuille de mon classeur. Les autres sont identiques mais avec les filtres qui diffèrent.
La ligne en surlignée n'est que la retranscription des filtres sur une seule ligne.

Donc ce que je voudrais en résultat c'est :



J'espère que tu vois un peu mieux ce que je veux faire
Ou alors si possible lors de la copie, copier les TCD entiers afin de pouvoir les actualiser

[sebfch]

et aussi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
'Réglages des filtres des activités
    Workbooks.Open "..."
    Windows("activités.xlsm").Activate
    n = Sheets.Count
    For i = 1 To n
     For j = 1 To n
      Sheets(i).PivotTables("Tableau croisé dynamique" & j).PivotFields("Site"). _
-->     CurrentPage = "toto"
      Sheets(i).PivotTables("Tableau croisé dynamique" & j).PivotFields("Zone"). _
        CurrentPage = "tata"
     Next j
    Next i
    Windows("activités.xlsm").Close

Lors de la définition des filtres, j'ai une erreur au niveau de la flèche. Mon code fonctionne quand j'ai fait feuille par feuille mais avec une boucle c'est quand même mieux.
Seulement il fait les filtres de la première feuille mais bloque ensuite.