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

maurissetho

XLDnaute Nouveau
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 :)
 
Dernière édition:

Dull

XLDnaute Barbatruc
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

Code:
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
 
Dernière édition:

Discussions similaires

Réponses
2
Affichages
129
Réponses
1
Affichages
122
Réponses
0
Affichages
83