Compare contenus cells entre 2 colonnes

Bonjour,

j'ai besoin de votre aide car je suis dans une impasse.

Je souhaite comparer 2 colonnes B et C.

Si colonnes C contient chaine de caractère colonne B alors supprimer la ligne.

Et répéter cette action sur toues mes lignes.

Voir fichier joint.

Merci de votre aide.

Bonne journée

Bonjour,

Place ce code dans un module et teste le pour savoir si c'est ce que tu veux.

Sub SuppLigne()
Dim Ligne, L As Single
L = 2
Do While Cells(L, "B") <> ""
    Ligne = Range("C:C").Find(Cells(L, "B").Value).Row
    If Not IsError(Ligne) Then
        Rows(Ligne).EntireRow.Delete
    End If
    L = L + 1
Loop
End Su

b

Coridalement,

ddetp88

Merci pour ta réponse ddetp88.

Ton code fonctionne bien dans l'exemple que je t'ai envoyé précédemment.

Cependant lorsque je rentre ce code dans le fichier Excel joint (autre exemple) j'ai un message d'erreur:

Run-time error '91':

Object Variable or With block variable not set

J'ai peut-être pas assez détaillé les cas possibles dans mon premier exemple.

Peux-tu faire la même chose pour l'exemple 2 car je n'arrive pas a faire fonctionner ton code dans mon deuxième exemple.

Merci

Bonne journée

Bonjour, avec une méthode find aussi

Force rouge a écrit :

Bonjour, avec une méthode find aussi

Merci beaucoup ça fonctionne.

Merci aussi à ddetp88.

le seul hique c'est que si la valeur est la même cela ne fonctionne pas, l'exemple de 157. Y a t'il des chances pour qu'il y ait les deux même texte d'un côté comme de l'autre ?

Force rouge a écrit :

le seul hique c'est que si la valeur est la même cela ne fonctionne pas, l'exemple de 157. Y a t'il des chances pour qu'il y ait les deux même texte d'un côté comme de l'autre ?

En réalité je ne peux pas avoir 2x la même valeur dans les 2 colonnes.