XL 2016 VBA ajuster hauteur des lignes

vgendron

XLDnaute Barbatruc

• 21 Juin 2019

• #2

bonjour..
impossible d'avoir des hauteurs de ligne differentes sur la meme ligne
une ligne est une ligne...

 

Vote positif 0 Vote négatif

C

cardi

XLDnaute Junior

• 21 Juin 2019

• #3

Bonjour,
Je ne veux pas avoir des hauteurs de lignes différentes, je souhaite juste prendre en compte la hauteur ajustée des lignes des colonnes A à H pour l'appliquer sur toute la ligne.

En faite, par exemple, en cellule B1, la hauteur parfaite serait 25, mais dans la cellule G1, la hauteur parfaite serait 50.

Quand je fais ajuster avec ma macro, cella va prendre en compte la hauteur de 50 pour toute la ligne 1, mais si je dis qu'il faut prendre en compte seulement mes colonnes de A à H, cela me donnera une hauteur de ligne de 25. C'est cela que je souhaite.

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 21 Juin 2019

• #4

juste une idée: et si tu fais un autofit sur la range au lieu des lignes?
un truc comme ca.. peut etre..?

for each cellule in .range("A5:H200")
cellule.rowHeight.autofit
hauteurfinale=worksheetfunction.max(HauteurFinale,cellule.rowHeight)
next cellule

.rows(5:200).rowheight=hauteurfinale


Je ne sais pas si ca peut fonctionner..

 

Vote positif 0 Vote négatif

C

cardi

XLDnaute Junior

• 21 Juin 2019

• #5

Cela ne fonctionne pas, dans la ligne "for each cellule in .range("A5:H200") ", pour le mot "cellule", cela indique Variable non définie.

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 21 Juin 2019

• #6

si on pouvait avoir ta macro complète ainsi qu'un bout de ton fichier en exemple, ca aiderait à y voir plus clair

 

Vote positif 0 Vote négatif

C

cardi

XLDnaute Junior

• 21 Juin 2019

• #7

Voici la macro complète

VB:

Option Explicit
Sub Hauteur()
Dim Ligne As Range
    Application.ScreenUpdating = False
    With ActiveSheet
        For Each Ligne In .Rows("5:200")
            Ligne.AutoFit
            Ligne.WrapText = True
            Ligne.RowHeight = Application.Max(Ligne.RowHeight, 22.5)
        Next
    End With
    Application.ScreenUpdating = True
End Sub

Et voici un fichier pour comprendre, la cellule L5 étant sur plusieurs lignes, du coup la hauteur de la ligne 5 est grande.

 

Pièces jointes

• cardi(1).xlsx

  10.7 KB · Affichages: 4

Dernière édition: 21 Juin 2019

Vote positif 0 Vote négatif

zebanx

XLDnaute Accro

• 21 Juin 2019

• #8

Bonjour Cardi, Vgendron

Un essai avec une boucle

VB:

Sub mef_RowHeight()
Dim i&, derligne&, dercol&, ta()

derligne = Cells(Rows.Count, 1).End(3).Row
dercol = 9 'Cells(1, Columns.Count).End(1).Column
ta = Range(Cells(1, 1), Cells(derligne, dercol)).Value

Application.ScreenUpdating = False

For i = 1 To UBound(ta)
Rows(i).AutoFit
ta(i, 1) = Cells(i, 1).RowHeight
If ta(i, 1) > 30 Then ta(i, 1) = 30
Rows(i).RowHeight = ta(i, 1)
Next i

Application.ScreenUpdating = True

End Sub

 

Pièces jointes

• rowheight.xlsm

  16.2 KB · Affichages: 13

Vote positif 0 Vote négatif

C

cardi

XLDnaute Junior

• 24 Juin 2019

• #9

Merci zebanx, c'est parfait.

 

Vote positif 0 Vote négatif