Extraire une liste d'une autre

Bonjour,

Je dispose de 2 feuilles excel liste A et liste B.

Ces feuilles ont la même structure. ( colonnes : vide,nom,prénom,email,vide,valeur,valeur )

La liste B est un sous-ensemble de la liste A.

Je voudrais récupérer les infos de la liste A qui ne sont pas dans la liste B avec la même structure.

Le critère de doublons se fait sur la colonne email.

Je connais pas beaucoup les fonctions excel ni les macros excel.

Merci d'avance de votre aide.

Bonjour,

Peux-tu envoyer ta feuille (raccourcie si besoin) ?

Amicalement

Claude.

dubois a écrit :

Bonjour,

Peux-tu envoyer ta feuille (raccourcie si besoin) ?

Amicalement

Claude.

elles sont au boulot

et je n'ai pas excel ici

re,

Tu aurais pu faire de mémoire un exemple approchant

avec quelques lignes

Claude.

dubois a écrit :

re,

Tu aurais pu faire de mémoire un exemple approchant

avec quelques lignes

Claude.

Voici un échantillon des fichiers:

https://www.excel-pratique.com/~files/doc2/listeA.xls

https://www.excel-pratique.com/~files/doc2/listeB.xls

Bonjour,

Avec les 2 listes dans le même classeur, c'est jouable ? (2 onglets)

et résultat des manques sur une 3ème feuille ?

Claude.

dubois a écrit :

Bonjour,

Avec les 2 listes dans le même classeur, c'est jouable ? (2 onglets)

et résultat des manques sur une 3ème feuille ?

Claude.

oui c'est jouable

Voici le fichier :

https://www.excel-pratique.com/~files/doc2/listes_classeur.xls

re,

Merci de compléter ton profil, matériel et version Excel,

ton fichier est en version 95 ?

Claude.

dubois a écrit :

re,

Merci de compléter ton profil, matériel et version Excel,

ton fichier est en version 95 ?

Claude.

mon excel est au boulot

ce fichier est un odt de office

re,

en attendant

Cette macro contrôle les 2 feuilles et met dans une 3ème

1) les lignes de feuille A manquant dans feuille B

2) les lignes de feuille B manquant dans feuille A

Sub Nondoublon()
Dim Lg As Integer, i As Byte, J As Byte, Sh, x, y
''Macros par Claude Dubois pour "marholyne" Excel-Pratique le 18 Oct 09
    x = Sheets(1).Name
    y = Sheets(2).Name
        Application.ScreenUpdating = False
            Sheets(x).Activate
    For J = 1 To 2
            Sh = ActiveSheet.Name
            Lg = Range("b65536").End(xlUp).Row
            If Sh = x Then Range("o1") = "=MATCH(p1," & y & "!d:d,0)"
            If Sh = y Then Range("o1") = "=MATCH(p1," & x & "!d:d,0)"
        For i = 2 To Lg
                Range("p1") = Range("d" & i)
            If IsError(Range("o1")) Then
                Range("a" & i).EntireRow.Copy Destination:=Range("Feuil3!a65000").End(xlUp)(2)
                If Sh = x Then Range("Feuil3!a65000").End(xlUp)(2) = "feuille  " & x & " manque en " & y
                If Sh = y Then Range("Feuil3!a65000").End(xlUp)(2) = "feuille  " & y & " manque en " & x
                Application.CutCopyMode = False
            End If
        Next i
            Range("o1:p1").ClearContents
            Sheets(y).Activate
    Next J
        Sheets("Feuil3").Columns("a:g").AutoFit
End Sub

Fichier:

https://www.excel-pratique.com/~files/doc2/CompareListes.xls

Amicalement

Claude.

je ne peux pas coder en macro je n'ai que les fonctions à ma disposition