I=2 to ? pour supprimmer les lignes

Bonjour

je suis en train de faire une code afin de supprimer la ligne suivante si elle satisfait certaine condition,

mais je ne sais pas comment définir ce "i", car si d'origine on a 30 ligne, ce "i" va chercher jusqu'à la 30eme ligne,

si à la fin il a supprimé 15 ligne, mais ce "i" insiste de chercher à la 30 eme ligne.

NbL = ActiveSheet.UsedRange.Rows.Count

For i = 2 To NbL

Qui peut me répondre SVP!!!!

Bonjour

Il manque quelques précisions

A titre d'exemple:

Supprimer les lignes dont la valeur en colonne C remplit la condition

Sub supprimerLigne()
Dim Nbl As Long
  For Nbl = Range("C65536").End(xlUp).Row To 2 Step -1
    If Range("C" & Nbl) "Ta condition"
        Rows(Nbl).Delete
    End If
  Next Nbl
End Sub

Cordialement

Bonjour,

Faudrait voir le code complet,

essaye

Sub essai()
Dim NbL%, i%
    NbL = ActiveSheet.UsedRange.Rows.Count

    For i = 2 To NbL
        If Range("m" & i) = "toto" Then             'condition à définir
            Range("m" & i + 1).EntireRow.Delete     'supprime ligne suivante
            Exit For                                'sort de la boucle
        End If
    Next i
End Sub

Amicalement

Claude

édit: Amadéus a surement raison, j'ai cru comprendre que tu ne voulais pas balayer toute la plage,

mon code s'arrête à la 1ère occurrence.

la solution d'Amadéus est bonne, mais justement je définis i = nbL to 3 step -1, j'ai la 1ere ligne en entête

Thank you for votre aide

Bonsoir,

envoie le code complet, ou mieux un bout de fichier

Amicalement

Claude

le code que j'ai mis sont suivant, c'est comme Amadéus m'a proposé

sub Check()

NbL = Range("A20000").End(xlUp).Row

For i = NbL To 3 Step -1

(condition...)

Next i

end sub