Boucle si qui pose pblm

Bonjour

Je m'apprète cet apré midi à faire un test de mon projet auprés de mon entreprise de stage. cepandant j'ai un problème avec une boucle i qui ne me supprime pas toute les lignes.

J'aurais besoin d'aide s'il vous plait je ss cencé passé le test à 16h.

Merci voici le code

nbre = wsDE.Cells(Rows.Count, 1).End(xlUp).Row - 1
i = 1
For i = 1 To nbre
 If wsDE.Cells(i, 22) = wsDE.Cells(i, 18) Then wsDE.Cells(i, 21).Value = 1 Else wsDE.Rows(i).Delete i = i - 1

  If i > nbre Then Exit Sub
Next i

Bonjour,

Peux-tu faire un essai avec le code ci-dessous ?

    nbre = wsDE.Cells(Rows.Count, 1).End(xlUp).Row - 1
    i = 1

    For i = 1 To nbre
        If wsDE.Cells(i, 22) = wsDE.Cells(i, 18) Then
            wsDE.Cells(i, 21).Value = 1
        Else
            wsDE.Rows(i).Delete
            i = i - 1
        End If

        If i > nbre Then Exit Sub
    Next i

Si cela ne convient pas, il nous faudra ton fichier.

Merci

re,

Une autre solution :

    nbre = wsDE.Cells(Rows.Count, 1).End(xlUp).Row - 1
    i = 1

    For i = nbre To 1 Step -1
        If wsDE.Cells(i, 22) = wsDE.Cells(i, 18) Then
            wsDE.Cells(i, 21).Value = 1
        Else
            wsDE.Rows(i).Delete
        End If
    Next i

En fait la première solution m'éfface toute les lignes voici le fichier joint.

https://www.excel-pratique.com/~files/doc2/SWLgFTest.xls

J'essaye la 2ème solution.

La seconde solution m'efface également toute les lignes je ne comprend vraiment pas ce qui n'allait pas avec la mienne.

Personne ne pourrait m'aider alors?

Merci c'est résolu je me suis trompé de colonne en fait c'est pour cela que cela ne fonctionné pas.