Trouver des codes barres et les supprimer

Bonsoir a tous une autre petite question

J'ai une colonne de code barre et j'ai une autre liste avec des codes barres que je dois supprimer dans la premiere feuille.

Exemple

1 feuille

1111111111111

2222222222222

2 feuille (code barre a enlever dans la premier feuille

2222222222222

et ca supprimerai dans la premiere feuille le Code barre 2222222222222

J'espere que je me suis fait comprendre.

Bien a vous

mb

Bonsoir,

Vaudrait mieux avec un bout de fichier au format XLS

avec annotations de tes besoins

Claude.

Re merci claude pour ton aide

https://www.excel-pratique.com/~files/doc/LISTE1.xls

https://www.excel-pratique.com/~files/doc/LISTE2.xls

Donc ce que j'aimerai arriver c'est avec la liste2 dont les code barres sont supprimer

les supprimer automatiquement sur la liste 1.

Bonne soirée

Mb

re,

Rappel :

Plus de réponse de ma part, tant que tu n'auras pas mis "résolu" sur tes autres posts !

Claude.

dubois a écrit :

re,

Rappel :

Plus de réponse de ma part, tant que tu n'auras pas mis "résolu" sur tes autres posts !

Claude.

Oups toutes mes excuses pour ces manquements.

Je viens de le faire.

Bonne journée

Mb

Bonjour à tous,

Avec les 2 listes sur le même fichier

https://www.excel-pratique.com/~files/doc/LISTE_codes.xls

amicalement

Claude.

re,

Sur 2 fichiers (ouverts)

Sub sup_lignes() 'dans module fichier "LISTE1"
    Sheets("Feuil1").Activate
    Application.ScreenUpdating = False
        Range("f1").Formula = "=""A""&MATCH(g1,[LISTE2.xls]Feuil1!a2:a5000,0)+1"
        [a2].Select
            Do While ActiveCell <> ""
                    Range("g1") = ActiveCell
                If IsError(Range("f1")) Then
                    ActiveCell.Offset(1, 0).Select
                  Else
                    ActiveCell.EntireRow.Delete
                End If
            Loop
        Range("f1:g1").ClearContents
End Sub

nom fichier2 à adapter

Claude.