Supprimer ligne après comparaison des cellules de 2 colonnes

seb -  
f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour, j'aimerai pouvoir supprimer une ligne après comparaison des cellules de 2 colonnes, je compare la valeur de la cellule AH a celle de la même ligne de la colonne EO et si la valeur est identique , je voudrai supprimer la ligne, j'ai essayé ceci:

Sub compare()

Dim i As Long

For i = 3 To 700 'change 100 au besoin
If Range("AH" & i).Value = Range("EO" & i).Value Then Cells(i, 34).EntireRow.Delete
If Range("AH" & i).Value = Range("EO" & i).Value + 1 Then Cells(i, 34).EntireRow.Delete
Next i

End Sub

si quelqu'un peut m'aider merci

1 réponse

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour, 

    Sub compare()
        Dim i As Long
        
        With Worksheets("feuil1")
            i = 3
            'test fin de colonne, a voir si vous voulez tester autre chose
            Do While Range("A" & i).Value <> ""
                If .Range("AH" & i).Value = .Range("EO" & i).Value Or .Range("AH" & i).Value = .Range("EO" & i).Value + 1 Then
                    Rows(i).EntireRow.Delete
                Else
                    'incremente pointeur de ligne
                    i = i + 1
                End If
            Loop
        End With
    End Sub

    A+
    0