hauteur de ligne ajustable

Re : hauteur de ligne ajustable

bonjour JMGi

une piste en Vba (a adapter bien sur !!!)

Re : hauteur de ligne ajustable

bonjour pierrejean
merci, mais je n'arrive pas à faire fonctionner le code correctement
En fait, je pense que le code devrait d'abord essayer de savoir combien il y a de lignes de saisies dans la feuille, puis diviser la hauteur totale par le nombre de ligne , pour quà l'impression le texte soit réparti sur toute la hauteur de la page

merci

JMGi

Re : hauteur de ligne ajustable

Bonsoir le fil, bonsoir le forum,

Merci PierreJean car j'étais bien en panne sur ce coup. Grâce à toi je propose :

Re : hauteur de ligne ajustable

Bonsoir le forum,
bonsoir les participants,
Mon cher Robert, nous touchons presque au but !!
il ne reste plus qu'a faire comprendre à notre logiciel favori qu'en plus d'un entête possédant un nombre fixe de ligne et d'une hauteur invariable, qu'il y à aussi un bas de page fixe et d'une hauteur invariable.
la seule partie variable en hauteur et non pas en nombre de ligne est de 18 à 46.
voici ce qu'est devenue la macro imaginée par pierrejean et vous même.
Sub Macro1()
nb = Fact.UsedRange.Rows.Count
For x = 18 To 46
Rows(x).RowHeight = 366 / nb / 0.35
Next x
End Sub

Re : hauteur de ligne ajustable

bonjour Macpoy

Etant mal a l'aise sans fichier exemple , j'ai réalisé ceci
Vois si tu peux t'en inspirer sinon n'hesite pas a revenir avec d'eventuelles questions

Re : hauteur de ligne ajustable

bonsoir le forum,
bonsoir pierrejean,
hier lorsque j'ai commencé un nouveau post :
https://www.excel-downloads.com/threads/ajustement-de-la-hauteur-dune-zone-pour-impression.136902/ , un participant m'a donné l'adresse de celui-ci, et, bêtement j'ai répondu à ce participant sur ce post au lieu du mien. désolé !!
mais depuis hier j'ai bien avancé, et cela donne cette macro que j'adapte à mon énorme classeur.

Sub Ajustement()
Dim i, HauteurTotaleLigne

Fact.Range("a18:f46").Rows.AutoFit
HauteurTotaleLigne = Fact.Range(Rows(18), Rows(46)).Height

If HauteurTotaleLigne > 415 Or HauteurTotaleLigne < 410 Then
For i = Fact.Range("B47").End(xlUp).Row + 1 To 46 'To 18 Step -1

If Fact.Range(Rows(18), Rows(46)).Height < 410 Then
If Fact.Range("B" & i) = "" Then Rows(i).RowHeight = 20
If Fact.Range(Rows(18), Rows(46)).Height > 410 Then Exit For
End If
If Fact.Range(Rows(18), Rows(46)).Height > 415 Then
If Fact.Range("B" & i) = "" Then Rows(i).RowHeight = 2
If i = 46 Then
MsgBox (ok)
End If
If Fact.Range(Rows(18), Rows(46)).Height < 415 Then Exit For
End If

Next
End If
End Sub

merci pour ton classeur qui sera certainement une source d'inspiration.

ps: n'hésite pas à visiter mon post pour avoir le classeur et le but de ma requête.