Hauteur de ligne VBa
Résolu
thomadu31
-
thomadu31 -
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.
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
-
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
