XL 2016 Ajuster les lignes au Contenu

KTM · 1 Mai 2024

Bonjour chers tous
Jai une plage de données "A4:K2000"
La largeur de chaque colonnes est déjà fixée.
La hauteur des lignes est fixé à 45,1.
Je voudrais à laide d'une macro VBA ajuster les lignes au contenu si le texte déborde sinon maintenir les 45,1.
Jai élaboré un code mais il fonctionne pas comme je le souhaite.
Besoin d'aide....

VB:

Sub DimLigne()
Dim col As Range
Dim x As Long
x = 45.1
Application.ScreenUpdating = False
With ActiveSheet
For Each col In .Range("A4:K" & .Range("B" & Rows.Count).End(xlUp).Row + 1)
col.EntireRow.AutoFit
If col.RowHeight < x Then col.RowHeight = x
Next
End With
End Sub

fanch55 · 1 Mai 2024

Bonjour,
Testez le code ci-dessous :

VB:

Sub DimLigne()
Const x = 45.1
Application.ScreenUpdating = False
    With ActiveSheet.Range("A4:K" & ActiveSheet.Range("B" & ActiveSheet.Rows.Count).End(xlUp).Row + 1)
        .Rows.AutoFit
        .WrapText = True
       'Il n'est pas utile de parcourir chaque cellule
        For Each Line In .Rows
            If Line.RowHeight < x Then Line.RowHeight = x
        Next
    End With
End Sub

piga25 · 1 Mai 2024

Bonjour,
Un essai avec cela

VB:

Sub HauteurLigneAuto()
    Dim I As Long
    Selection.Rows.AutoFit
    For I = 4 To 2000
        If Selection.Rows(I).RowHeight < 45,1 Then Selection.Rows(I).RowHeight = 45,1
    Next I
    Range("A1").Select
End Sub

Attention s'il y a un texte long dans une colonne après la colonne K, cela ajustera également la hauteur de ligne.

KTM · 1 Mai 2024

fanch55 à dit:

Bonjour,
Testez le code ci-dessous :

VB:

Sub DimLigne()
Const x = 45.1
Application.ScreenUpdating = False
    With ActiveSheet.Range("A4:K" & ActiveSheet.Range("B" & ActiveSheet.Rows.Count).End(xlUp).Row + 1)
        .Rows.AutoFit
        .WrapText = True
       'Il n'est pas utile de parcourir chaque cellule
        For Each Line In .Rows
            If Line.RowHeight < x Then Line.RowHeight = x
        Next
    End With
End Sub

ok merci

KTM · 1 Mai 2024

piga25 à dit:
Bonjour,
Un essai avec cela

VB:

Sub HauteurLigneAuto() Dim I As Long Selection.Rows.AutoFit For I = 4 To 2000 If Selection.Rows(I).RowHeight < 45,1 Then Selection.Rows(I).RowHeight = 45,1 Next I Range("A1").Select End Sub

Attention s'il y a un texte long dans une colonne après la colonne K, cela ajustera également la hauteur de ligne.

Merci...

XL 2016 Ajuster les lignes au Contenu

KTM

XLDnaute Impliqué

fanch55

XLDnaute Barbatruc

piga25

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

KTM

XLDnaute Impliqué

Discussions similaires