XL 2013 Ajuster Hauteur Lignes pour remplir Page

[Chris401]

Bonjour à tous

Tous mes vœux pour cette nouvelle année.

Je ne sais pas si ma demande est réalisable mais est-il possible, à l'impression, d'augmenter la hauteur des lignes 5 à fin du tableau afin que la page soit entièrement remplie sur la hauteur ?
Après l'impression, remettre la hauteur de ces mêmes lignes à 13.5.

Le tableau peut évoluer en nombre de lignes mais pas suffisamment pour que la hauteur 13.5 dépasse la hauteur de la page.

Merci de votre aide.

Cordialement
Chris

 

[Modeste geedee]

Re : Ajuster Hauteur Lignes pour remplir Page

Bonsour®

Meilleurs vœux ... !

With Range("A1:BL50")
.RowHeight = 20
.PrintPreview
.RowHeight = 13.5
End With

 

[Chris401]

Re : Ajuster Hauteur Lignes pour remplir Page

Bonjour Modeste et bonne année

Merci pour ta réponse mais ce n'est pas ce que j'attends.

En effet, mon tableau peut évoluer dans les 2 sens : moins de lignes / plus de lignes.

Pour plus de lignes, effectivement la hauteur 20 s'ajusterait. Mais pour moins de lignes, la valeur resterait à 20 et ne remplirait pas la hauteur de la page.

En résumé, je souhaiterais que si j'ai 10 lignes (par exemple) la hauteur des lignes soit augmentée et si j'en ai 60 on peut rester à 13.5 puisque l'impression est ajustée à une page.

Merci encore
Chris

 

[Chris401]

Re : Ajuster Hauteur Lignes pour remplir Page

Re

En y réfléchissant, je peux déterminer la hauteur avec mon nombre mini de lignes et la page s'ajustera.
Je teste et je reviens.

Chris

 

[phlaurent55]

Re : Ajuster Hauteur Lignes pour remplir Page

Bonjour à tous,

avec ce code:

Sub imprimer()
ActiveSheet.PageSetup.PrintArea = "$A$1:$BL$" & Range("A65535").End(xlUp).Row
With ActiveSheet.PageSetup
    .FitToPagesTall = 1
    .FitToPagesWide = 1
End With
ActiveSheet.PrintOut
End Sub

à+
Philippe

 

[Chris401]

Re : Ajuster Hauteur Lignes pour remplir Page

Bonjour Philippe et meilleurs vœux

Merci de ton aide. L'ajustement de la page est déjà prévu.

Mon test avec le nombre de lignes mini est concluant.

Merci encore à Modeste pour m'avoir mis sur la voie.

A bientôt
Chris