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