Recoupement de listes

[PIBOU]

Bonjour,

J'ai deux listes sous excel, ayant une donnée commune , et je souhaite créer une troisième liste contenant les lignes communes aux deux listes.
Je ne me rappelle plus comment le faire.😕
Quelqu'un peut il me venir en aide ?
(je joins un extrait du fichier)

Merci d'avance

 

[Cousinhub]

Re : Recoupement de listes

Bonsoir,

une solution par macro.

regarde le fichier joint

Le code :

Sub communs()
Dim Comm1 As Object, Comm2 As Object, Cel As Range
Set Comm1 = CreateObject("Scripting.Dictionary")
Set Comm2 = CreateObject("Scripting.Dictionary")
Sheets("Feuil1").Range("A2:A" & Sheets("Feuil1").[A65000].End(xlUp).Row).Name = "Plg1"
Sheets("Feuil2").Range("A2:A" & Sheets("Feuil2").[A65000].End(xlUp).Row).Name = "Plg2"
For Each Cel In [Plg1]
    If Not Comm1.Exists(Cel.Value) Then Comm1.Add Cel.Value, Cel.Value
Next Cel
For Each Cel In [Plg2]
    If Not Comm1.Exists(Cel.Value) Then
        Comm1.Add Cel.Value, Cel.Value
    Else
        If Not Comm2.Exists(Cel.Value) Then Comm2.Add Cel.Value, Cel.Value
    End If
Next Cel
With Sheets("communs")
    .Columns(1).ClearContents
    .Columns(1).NumberFormat = 0
    .[A1].Resize(Comm2.Count, 1).Value = Application.Transpose(Comm2.items)
    .Columns(1).AutoFit
End With
End Sub

Le fichier !:

 

[PIBOU]

Re : Recoupement de listes

Super !!!!!!!!!!!!!!!!!!! 🙂🙂🙂🙂

Un grand merci bhbh, la journée commence bien !!!!!!!!!

a+ et merci encore😉