Hauteur de ligne VBa
Résolu/Fermé
A voir également:
- Vba hauteur de ligne
- Partage de photos en ligne - Guide
- Site de vente en ligne particulier - Guide
- Aller à la ligne excel - Guide
- Ligne occupée - Forum SFR
- Longueur largeur hauteur ✓ - Forum Loisirs / Divertissements
1 réponse
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
18 déc. 2015 à 17:15
18 déc. 2015 à 17:15
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
21 déc. 2015 à 12:54
Merci ça marche parfaitement.