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
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: