Hauteur minimum des lignes

[bobols8]

Bonsoir

Voilà j'ai l'hauteur des lignes de mon tableau dont l'ajustement est automatique. Le problème c'est que du coup les lignes vides sont trop petites et je veux donc savoir si c'est possible de fixer une hauteur minimale au lignes vides pour qu'elles soient plus hautes (même vides) ?

(tout en gardant l'ajustement de la hauteur auto quand le texte dépasse la taille de la cellule)


Merci d'avance pour votre aide

 

[Hulk]

Re : Hauteur minimum des lignes

Hello tout le monde,

À tester..

    Dim lign As Integer
    
    Application.ScreenUpdating = False
    
    For lign = 1 To 20 'Pour les lignes 1 à 20
        If Cells(lign, 1).Value <> "" Then
            Cells(lign, 1).RowHeight = 14.4
        Else
            Cells(lign, 1).EntireRow.AutoFit
        End If
    Next lign

    Application.ScreenUpdating = True

Si dans A1:A20 il y a une ou des cellules vides, il y met à 14.4 si non auto.