Comparer 2 listes

[toinou380]

Bonjour,

Je souhaiterais comparer deux listes

ex:
PREMIERE LISTE
a
1Prénoms
2JEAN
3DANIEL
4ROBERT
5SIMON
6LUCIE
7EDOUARD

DEUXIEME LISTE
a
1Prénoms
2JEAN
3EDOUARD
4THIERRY
5DANIEL
6ROBERT
7LUCIE
8FRANCK
9JACQUES
10SIMON

THIERRY, FRANCK et JACQUES sont dans la deuxième liste, mais pas dans la première. Existe t il une fonction qui me mette les nouveaux prénoms dans une colonne.

Si quelqu'un peut m'éclairer !!!!
Merci

 

[BOISGONTIER]

Re : Comparer 2 listes

Bonjour,

Dans un module:

Function Difference(champ1, champ2)
 Set MonDico1 = CreateObject("Scripting.Dictionary")
  For Each c In champ2
    If Not MonDico1.Exists(c.Value) Then MonDico1.Add c.Value, c.Value
  Next c
  Set mondico2 = CreateObject("Scripting.Dictionary")
  For Each c In champ1
    If Not MonDico1.Exists(c.Value) Then
       If Not mondico2.Exists(c.Value) Then mondico2.Add c.Value, c.Value
    End If
  Next c
  Difference = Application.Transpose(mondico2.items)
End Function

En matriciel:

=SI(ESTNUM(PETITE.VALEUR(SI(ESTNA(EQUIV(Liste1;Liste2;0));EQUIV(Liste1;Liste1;0);"");LIGNE(INDIRECT("1:"&LIGNES(Liste1)))));
INDEX(Liste1;PETITE.VALEUR(SI(ESTNA(EQUIV(Liste1;Liste2;0));EQUIV(Liste1;Liste1;0);"");LIGNE(INDIRECT("1:"&LIGNES(Liste1)))));"")
valider avec Maj+Ctrl+entrée

JB
Formation Excel VBA JB

 

[toinou380]

Re : Comparer 2 listes

Tout d'abord, merci bcp

Juste une précision, est ce que je dois nommer mes deux colones "champ1" et "champ2" ?

 

[BOISGONTIER]

Re : Comparer 2 listes

Voir PJ


JB

 

[toinou380]

Re : Comparer 2 listes

MERCI JB, T'es un chef
Bonne journée à toi