tout simple: croiser 2 listes de noms (bête, hein?)

[pacou13]

Bonjour à tous,
et une belle et heureuse année 2011 🙂 !!
Je suis persuadée que la question a déjà été abordée, mais je ne dois pas chercher au bon endroit.

Je cherche tout simplement à croiser 2 listes de noms, pour savoir quels sont les noms en commun...
C'est surement tout simple, mais c'est urgent et je n'arrive pas à connecter mes 2 neurones pour trouver la solution. 😱

Pourriez-vous m'aider?
merci par avance

 

[JCGL]

Re : tout simple: croiser 2 listes de noms (bête, hein?)

Bonjour à tous,

Essaye avec la fonction NB.SI()

A+ à tous

 

[pacou13]

Re : tout simple: croiser 2 listes de noms (bête, hein?)

Merci pour la rapidité de ta réponse, JCGL,
En utilisant NB.SI(), il faut donc que je mette l'ensemble de mes noms sur une seul colonne.
Avec une ligne de commande de type =si(nb.si(A1:A3;A1)>1;"Doublon";"Unique") en plus, je pense même pouvoir traduire le nombre de fois ou mon nom apparait en "unique" ou "doublon".

Mais j'aurai aimé, si c'est possible, obtenir les noms en commun entre mes 2 liste sous la forme également d'une liste de nom...
une idée supplémentaire?🙄

merci,

 

[Softmama]

Re : tout simple: croiser 2 listes de noms (bête, hein?)

bonsoir pacou13, et JCGL,

Tu peux tester ceci :

Sub test()
Dim List1(), List2(), ListCommun(), x As Integer, y As Integer
List1 = Range("C1:C100").Value 'Adapter l'addresse de la 1ère liste
List2 = Range("D1:D100").Value 'Idem avec la Deuxième liste
ReDim ListCommun(0)
For x = LBound(List1) To UBound(List1) 'scan liste1
    For y = LBound(List2) To UBound(List2) 'scan liste2
        If List1(x, 1) = List2(y, 1) Then 'Si les deux entrées sont pareilles
            ListCommun(UBound(ListCommun)) = List1(x, 1) 'on renseigne listcommun
            ReDim Preserve ListCommun(UBound(ListCommun) + 1) 'qui grandit d'une place
        End If
    Next y
Next x
'Qd fini, on colle le résultat en A1 :
range("A1").Resize(UBound(ListCommun)) = Application.Transpose(ListCommun)
End Sub

 

[BOISGONTIER]

Re : tout simple: croiser 2 listes de noms (bête, hein?)

Bonjour,

http://boisgontierjacques.free.fr/fichiers/Divers/Dictionary.xls

JB

 

[pacou13]

merci !

merci pour votre aide, softmama et Boisgontier !
vous m'avez enlevé une grosse épine du pied, en particulier merci à boisgontier pour m'avoir mâcher le boulot, en fournissant un outil "prêt à l'emploi" à la néophyte que je suis.

encore une bonne année à tous,
bises 🙂