hauteur de ligne ajustable

[JMGi]

Bonjour

Malgré plusieurs heures dans les archives, je n'ai pas trouvé la solution du pb suivant:
Je souhaite imprimer un tableau contenant quelques lignes d'en-tête fixes et en dessous un nombre variable de lignes; Je souhaite que les lignes d'en-têtes aient une taille fixe et figée, par contre je voudrais que la hauteur de ligne des saisies variables s'ajustent en hauteur de manière à ce que toute la page soit occupée par ces lignes. Par exemple et pour parler en cm:
page A4 de 29cm, l'entete a une hauteur de 9cm, reste 20cm à répartir en hauteur entre le nombre de lignes saisies: si 10 lignes, l'ajustement de chaque ligne doit être de 2cm
Is it possibeul??
merci d'avance pour la réponse
JMGi

 

[pierrejean]

Re : hauteur de ligne ajustable

bonjour JMGi

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

Sub Macro1()
nb = Range("A4:A13").Rows.Count - 1
For n = Range("A4:A13").Row To Range("A4:A13").Row + nb
Rows(n).RowHeight = 200 / nb / 0.35
Next
End Sub

 

[JMGi]

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

 

[Robert]

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 :

 Sub Macro1()
nb = Sheets("Feuil1").UsedRange.Rows.Count 'nom de l'onglet à adapter à ton cas
For x = 1 To nb
    Rows(x).RowHeight = 200 / nb / 0.35
Next x
End Sub

 

[Macpoy]

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

 

[pierrejean]

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

 

[Macpoy]

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.