Hauteur de ligne VBa

Résolu/Fermé
Signaler
-
 thomadu31 -
Bonjour à tous,

J'ai besoin d'aide sur une macro.

J'ai dans un fichier Excel un nombre de ligne indéfini, certaine contiennent des données d'autre sont vide.
J'aimerais que la hauteur de toute les lignes vide soit de 4.5 et les lignes avec des données restent a 15.

En espérant être clair.

Merci par avance.

1 réponse

Messages postés
16537
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
25 novembre 2021
3 249
bonjour
en se basant sur la colonne A

Option Explicit
'---------------------------------------------------
Sub hauteurligne_si_vide()
Dim Derlig As Long
Application.ScreenUpdating = False
Derlig = Columns("A").Find("*", , , , , xlPrevious).Row
If Application.CountIf(Range("A1:A" & Derlig), "") > 0 Then
Range("A1:A" & Derlig).SpecialCells(xlCellTypeBlanks).EntireRow.RowHeight = 4.5
End If
End Sub
'---------------------------------------------------
Sub restaurer_hauteur()
Dim Derlig As Long
Application.ScreenUpdating = False
Derlig = Columns("A").Find("*", , , , , xlPrevious).Row
Range("A1:A" & Derlig).EntireRow.RowHeight = 15
End Sub
Bonjour,

Merci ça marche parfaitement.