Hauteur de ligne VBa

Résolu
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.

1 réponse

michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 313
 
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
0
thomadu31
 
Bonjour,

Merci ça marche parfaitement.
0