Hauteur de ligne VBa
Résolu
thomadu31
-
thomadu31 -
thomadu31 -
A voir également:
- Vba hauteur de ligne
- Partage de photos en ligne - Guide
- Longueur largeur hauteur ✓ - Forum Loisirs / Divertissements
- Mètre en ligne - Guide
- Ligne occupée - Forum SFR
- Aller à la ligne excel - Guide
1 réponse
bonjour
en se basant sur la colonne A
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
Merci ça marche parfaitement.