Supprimer Doublons d'une liste par rapport à une autre

[MJ13]

Bonjour

Je voudrais en VBA, Supprimer les doublons d'une liste par rapport à une autre.

Je joins un fichier pour plus d'explications. j'ai commencé à programmer mais il me manque vos compétences.

J'ai fait aussi en formule, mais ce n'est pas ce que j'ai besoin.

 

[Pierrot93]

Re : Supprimer Doublons d'une liste par rapport à une autre

Bonjour Michel

pour éviter que ca plante au cas où la recherche n'aboutie pas, essaye comme suit :

    Dim r As Range
    Set r = Selection.Find(What:=nat, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:= _
            xlNext, MatchCase:=False, SearchFormat:=False)
    If Not r Is Nothing Then Cells(isupdoublon, 1).Font.Bold = True

bon après midi
@+

 

[MJ13]

Re : Supprimer Doublons d'une liste par rapport à une autre

Bonjour Pierrot

Merci beaucoup, cela fonctionne bien.

Je vais pouvoir maintenant reboucler pour supprimer les lignes.


Bon Week-end