Hauteur de ligne VBa
Résolu/Fermé
A voir également:
- Vba hauteur de ligne
- Erreur 1004 vba ✓ - Forum VB / VBA
- Longueur largeur hauteur ✓ - Forum Loisirs / Divertissements
- Apparaitre hors ligne whatsapp - Guide
- Aller à la ligne excel - Guide
- Retour à la ligne vba ✓ - Forum Excel
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
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.