Ajustement des lignes uniquement si nécessaire

Bonjour à tous,

Je souhaiterai ajuster la hauteur des lignes uniquement si cela est nécessaire.
Je m'explique, : toutes mes lignes mes lignes font 20 de hauteur et je ne souhaiterai un ajustement automatique uniquement sur les lignes dont le texte à la ligne automatiquement et laisser les autres lignes à 20

J'ai déjà trouvé plusieurs codes mais aucun qui correspond à ce que je recherche :

Sub Ajuster_Lignes()

    Dim I As Long

    ActiveSheet.Range("D7:D146").Select

    Selection.Rows.AutoFit

    For I = 1 To Selection.Rows.Count
        If Selection.Rows(I).RowHeight > 20 Then Selection.Rows(I).AutoFit
    Next I

End Sub

ou encore 

ActiveSheet.Range("D7:D146").Rows.AutoFit
ActiveSheet.Range("D7:D146").RowHeight = 20
Rows("7:146").RowHeight = 20
Selection.Rows.AutoFit

Merci d'avance pour votre aide.

EvGef

Bonjour

L'ajustement automatique de toutes les lignes fait nativement cela

Bonjour Chris,

Oui je sais mais je ne souhaite justement pas que mes lignes soient ajustées en dessous de 20 de hauteur alors qu'avec un "autofit" mes lignes se retrouvent à 15 de hauteur.

RE

Sub Ajuster_Lignes()

    Dim I As Long

    ActiveSheet.Range("D7:D146").Rows.AutoFit

    For Each ligne In ActiveSheet.Range("D7:D26").Rows
        If ligne.RowHeight < 20 Then ligne.RowHeight = 20
    Next ligne

End Sub

Re,

Niquel, merci
J'y avais même pas pensé

Et autre question (2 en fait ) : comment je faire pour ne boucler que sur les cellules non vide de D7 à D146 et aussi ne boucler que sur les lignes affichées (car certaines sont masquées) car là du coup la procédure est assez longue

Je te remercie d'avance.

RE

Sub Ajuster_Lignes()

   With Me.Range("A7:D26")
        .SpecialCells(xlCellTypeVisible).EntireRow.AutoFit

        For Each ligne In .Rows
            If ligne.RowHeight < 20 And ligne.Cells(1, 4) <> "" Then ligne.RowHeight = 20
        Next ligne
    End With
End Sub

Re,

Merci pour ta réponse.
J’essaie lundi et te redis ça.
Bonne soirée & bon week end