Discussion :

[discus23]

Bonjour,

Je cherche à supprimer les lignes de mon tableau si la valeur des cellules d'une colonne est égale à zéro.
Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Range("D1").Select
Range(Selection, Selection.End(xlDown)).Select
For Each rcel In Selection
    If rcel.Value = 0 Then
       rcel.EntireRow.Delete
    End If
Next rcel

Il fonctionne, mais pas entièrement. Je dois le relancer plusieurs fois pour qu'il supprime toutes les lignes où il y a un zéro dans la colonne D.
Il semblerait que s'il y a 2 zéro de suite (i.e. dans 2 lignes), il ne supprime qu'une ligne sur les deux et je dois relancer le script 2 fois...
S'il y a 3 zéro de suite (i.e. dans 3 lignes), je dois relancer le code 3 fois...
Etc etc...

Et la solution à ce problème reste un mystère pour moi.
Quelqu'un saurait-il d'où cela peut provenir?

Merci!

[gFZT82]

Bonjour,

Pour effectuer cette suppression de lignes, tu dois partir de la fin de liste et "remonter" jusqu'à la première ligne pour que l'incrémentation fonctionne correctement.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Option Explicit
Sub Test()
Dim DerLig As Long, i As Long
    With Worksheets("Feuil1") 'Nom de feuille à adapter
        DerLig = .Range("D" & .Rows.Count).End(xlUp).Row
        For i = DerLig To 1 Step -1
            If .Range("D" & i) = 0 Then Rows(i).Delete
        Next i
    End With
End Sub

Cordialement.

[discus23]

Merci beaucoup, ça marche nickel !!!