Supprimer doublons entre deux feuilles VBA

Le 04/01/2021 à 09:06

Bonjour,

j'ai deux tableaux dans un fichier excel je voulais supprimer la cellule F et D de la feuil2 si la valeur de la cellule C est présent dans la feuil1

Merci d'avance

14doublons.xlsm (10.49 Ko)
Le 04/01/2021 à 15:30

Bonjour et bonne année 2021,

C'est volontairement que tu restes aussi vague et général ? Peut-être qu'avec des infos sur le "contexte", on pourrait réfléchir à un traitement plus "global" ... là j'ai un peu l'impression de contribuer involontairement à la naissance d'une usine à gaz

Bref ... à tester dans un module standard et à associer à un bouton ou un raccourci clavier, par exemple:

Sub efface()
    Set Liste = CreateObject("scripting.dictionary")
    With Sheets("Feuil1")
        For lig = 2 To .Cells(Rows.Count, 4).End(xlUp).Row
            Liste(.Cells(lig, 4).Value) = ""
        Next lig
    End With
    With Sheets("Feuil2")
        For lig = 2 To .Cells(Rows.Count, 3).End(xlUp).Row
            If Liste.exists(.Cells(lig, 3).Value) Then .Cells(lig, 4) = "": .Cells(lig, 6) = ""
        Next lig
    End With
End Sub
Le 11/01/2021 à 10:03

Merci pour votre réponse résolu

Rechercher des sujets similaires à "supprimer doublons entre deux feuilles vba"