Comparer 2 listes puis supprimer ligne

Bonjour bonsoir,

Je me fais des noeuds au cerveau depuis 3 heures, je sèche donc je viens demander votre aide...

Je cherche comment faire fonctionner une macro me permettant de comparer 2 listes de 2 colonnes dans 2 feuilles différentes et de supprimer les lignes dont les valeurs ne correspondent pas à l'autre liste.

Ah oui et je souhaiterais aussi comparer seulement les 3 premiers caractères de la première colonne (qui sera d'ailleurs celle ou les lignes seront supprimées.)

Merci d'avance si c'est possible de m'aider sur ce coup là !

Salut Selmalik,

A+

Bonjour Selmalik,

sans fichier, je ne peux que te donner des pistes.

Ici, tu cliques sur le bouton rouge, les données qui diffèrent sur leurs 3 premières lettres s'effacent, 1 autre clic, les données sont réinitialisées, 1 clic, les données différentes s'éliminent,...

A toi de voir ce qu'il te faut!

'
Dim wks As Worksheet
'
Set wks = Worksheets("Feuil2")
iRow = Range("A" & Rows.Count).End(xlUp).Row
'
        For x = 1 to iRow
            If Left(Cells(x, 1), 3) <> Left(wks.Cells(x, 1), 3) Then
                'effacer les données de la ligne
                Rows(x).ClearContents
            End If
        Next
'
            If Left(Cells(x, 1), 3) <> Left(wks.Cells(x, 1), 3) Then
                'supprimer ligne
                Rows(x).Delete shift:=xlUp
            End If
        Next
'

A+