VBA - Excel 2013 ; Ajuster la feuille à la page d'impression

Bonjour,

Dans une de mes macros, je souhaite faire en sorte que mon document puisse être imprimer en papier ou PDF sur une seule feuille avec un ajustement automatique. Je n'ai aucun soucis pour l'impression mais je fais toujours l'ajustement à la main comme le montre le code exemple suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub Ajuster()   Worksheets("Feuille1").Activate   With ActiveSheet.PageSetup .PrintArea = "$A$1:$F$132" .PaperSize = xlPaperA4 .LeftMargin = Application.InchesToPoints(1.25) .RightMargin = Application.InchesToPoints(0.5) .TopMargin = Application.InchesToPoints(0.45) .BottomMargin = Application.InchesToPoints(0.45) .Zoom = 55 .Orientation = xlPortrait   ActiveSheet.PrintPreview End With   End Sub

---

J'ai pu lire pas mal de solutions et même une sur ce forum mais aucune n'a fonctionne avec mon Excel 2013.
Pourriez vous m'aider s'il vous plait ?

Salut,

concernant la plage, peut-elle évoluer ?

Code:

---

.PrintArea = "$A$1:$F$132"

---

Sinon tu peux travailler sur

Code:

---

1 2	.FitToPagesWide = 1 .FitToPagesTall = 1

---

pour limiter à une page en impression

Amuse toi avec l'enregistreur de macros pour voir si tu as des paraètres d'impression qui pourraient t'intéresser.

Bonjours,

Merci de m'avoir répondu Jean-Philippe.

Oui la plage est susceptible de varier mais la valeur max est celle indiqué sur mon code de tel sorte que si cette plage max est requise, elle passe sur une feuille A4. Néanmoins il est possible d'avoir une plage plus petite auquel cas je souhaiterai zoomer automatiquement et en proportion des marges droites et gauche du format A4.

oui j'ai essayé ces deux lignes de code mais cela ne change pas la taille du zoom et des marge si le document est plus petit en plage de cellules :-/

D'accords j'essaye l'enregistreur de macro et je te tiens informé demain matin.

Citation:

---

Envoyé par ThéoRasDesPâquerette

Oui la plage est susceptible de varier mais la valeur max est celle indiqué sur mon code de tel sorte que si cette plage max est requise, elle passe sur une feuille A4. Néanmoins il est possible d'avoir une plage plus petite auquel cas je souhaiterai zoomer automatiquement et en proportion des marges droites et gauche du format A4.

---

Il faudrait que tu fasses une copie d'écran de ton onglet pour qu'on puisse voir à quoi se raccrocher pour déterminer la zone à imprimer.

re

bonjour
la difference de largeur et hauteur est trop grande pour une restitution lisible dans une impression ajusté a une seule page

ajuste pluto au minimum a 1 page en largeur et 3 ou 4 en hauteur et inversement en mode paysage (landscape)

Bonjour,

L'enregistreur de macro (que je ne connaissais pas) est fabuleux. Mais en l'utilisant, je me suis aperçus qu'en effet mon opération désiré est impossible de cette manière car lorsque l'on fait la manipulation à la main de :
> Sélectionner plage de A1 à F132 > Fichier > Imprimer > Ajuster marge : droite, gauche, haut, bas > PDF ; On s'aperçois que l'enregistreur de marco écrit les marges brute du document_V1. Donc si je relance cette nouvelle macro sur un même document_V2 avec une plage de cellules plus courte, le document_V2 sera imprimer avec les marges du document_V1.

La solution est donc d'écrire un code avec des marges (A, B, C, D) comme variables proportionnelles à la sélection de la plage de cellule (de A1 à F{x}). Pour cela il faut au préalablement étalonner mon document plage par plage avant d'en faire un tableau de marges A, B, C, D correspondantes à leurs plages respectives A1:{Fx}. C'est un travail long et fastidieux mais très intéressant pour faire de l'ajustement automatique sur un document particulier.

Tu avais raison patricktoulon de souligner le fait que la plage est trop grande pour une seule feuille lisible. Cependant, j'ai réglé le problème avec une découpe en deux feuilles et en plus c'est beaucoup plus lisible et le cahier des charge ne m'impose pas une seule feuille donc c'est parfait.

Je compte néanmoins travaillé sur ma solution car elle pourrais être très utile ultérieurement.