Supprimer ligne après comparaison des cellules de 2 colonnes

seb -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention - 18 sept. 2013 à 08:30

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

Afficher la suite

A voir également:

Supprimer ligne après comparaison des cellules de 2 colonnes
Supprimer rond bleu whatsapp - Guide
Faire 2 colonnes sur word - Guide
Partage de photos en ligne - Guide
Impossible de supprimer une page word - Guide
Classer par ordre alphabétique excel plusieurs colonnes - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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+

Votre réponse