Hauteur de ligne VBa
Résolu
thomadu31
-
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.
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.
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
- Formulaire en ligne de meta - 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.