Macro pour supprimer lignes dont cellule d'une colonne sont vide

[maurissetho]

Bonjour a tous !
Je cherche a creer une macro qui supprime chaque ligne de la plage 4:110 dont les cellules de la colone L sont vides ou valent 0.
J'ai la macro ci dessous, mais je suis obligee de la lancer plusieurs fois pour arriver au resultat voulu : un tableau avec toutes les lignes dont la cellule de la colonne j est remplie ou differente de 0 :

Dim Cel_vide As Range
Dim ad_cel As Integer

For Each Cel_vide In Range("j4:j110")
If Cel_vide.Value = "0" Or Cel_vide.Value = "" Then
ad_cel = Cel_vide.Row
Rows(ad_cel).Delete
End If
Next Cel_vide

Si vous avez une idee je suis preneur, j'ai essaye une for step -1 mais sans succes,
Merciiii

 

[Dull]

Re : Macro pour supprimer lignes dont cellule d'une colonne sont vide

Salut maurissetho et Bienvenue sur XLD, le Forum

Il faut commencer par la dernière ligne et remonter

Essaye comme cela

Option Explicit
Sub EssAi()
Dim i As Integer

Application.ScreenUpdating = False
For i = 110 To 4 Step -1
    If Cells(i, 10) = 0 Or Cells(i, 10) = "" Then Cells(i, 10).EntireRow.Delete
Next i
Application.ScreenUpdating = True
End Sub

Bonne Journée

 

[maurissetho]

Re : Macro pour supprimer lignes dont cellule d'une colonne sont vide

Niquel merci pour la rapidite ca marche parfaitement j'y avais pas pensé !!