Hauteur de ligne VBa

Résolu/Fermé
thomadu31 - 18 déc. 2015 à 16:13
 thomadu31 - 21 déc. 2015 à 12:54
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 16591 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 3 février 2023 3 288
18 déc. 2015 à 17:15
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
Bonjour,

Merci ça marche parfaitement.
0