XL pour MAC Module VBA pour suppression de ligne

Robert à dit:

Bonjour Viomlr, bonjour le forum,

Quand on supprime des lignes il faut partir de la fin et remonter mais en fonction de la taille de ta basse de données le code peut-être différent. Sinon le basique (à adapter) :

VB:

Sub Macro1()
Dim O As Worksheet
Dim PL As Range
Dim I As Integer

Set O = Worksheets("Feuil1")
Set PL = O.Range("A1").CurrentRegion
For I = PL.Rows.Count To 2 Step -1
    If O.Cells(I, "H").Value = "" Then O.Rows(I).Delete
Next I
End Sub

Cliquez pour agrandir...