Discussion :

[frag132]

Bonjour a tous,

J'ai quelques difficultés a faire ma mise en page via VBA sur un tableau croisé dynamique. Par exemple j'aimerai qu'a partir de A3 (le commencement sera toujours a cette cellule), jusqu’à mon sous total qui peut être en Z30 (il change tout le temps d'emplacement en fonction du nombre de colonnes), il me fasse tout rentrer sur une seule feuille a l'impression. Pour l'instant j'ai trouvé ca

Code :

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

1
2
3
Sub miseenpage()
ActiveSheet.PageSetup.PrintArea = Range(Cells(3, 1), Cells(Cells.Find("*", , , , xlByRows, xlPrevious).Row, Cells.Find("*", , , , xlByColumns, xlPrevious).Column)).Select
end sub

bien entendu ca ne marche pas, code d'erreur 1004
merci a tous

[AlainTech]

Bonjour,

Juste une question:
Pourquoi un .Select à la fin?

[Philippe Tulliez]

Bonjour,
Pour ma part, j'ai fait simple.
Je parcours la première colonne en gardant la valeur de la dernière cellule vide et si la prochaine remplie contient le mot "Total", j'applique le Saut de page.
Pour connaître les limites de la plage où se trouve les Labels c'est la propriété .RowRange de l'objet PivotTable