recuperer valeurs doublons

[tonton29610]

Bonjour le forum,
Hier en parlant de boucler sur les valeurs de listbox, je me suis probablement mal exprimé. Ce que souhaite c'est d'afficher dans la listbox2 les valeurs en jaunes dans l'exemple qui sont en fait les valeurs du deuxième tableau en rapport avec les doublons entre les deux tableaux.
Merci d'avance car je n'y arrive vraiement pas.

 

[BOISGONTIER]

Re : recuperer valeurs doublons

Bonjour,

Private Sub UserForm_Initialize()
 Set MonDico1 = CreateObject("Scripting.Dictionary")
  For Each c In Range("a2:a14")
     If Not MonDico1.Exists(c.Value) Then MonDico1.Add c.Value, c.Value
  Next c
  Set mondico2 = CreateObject("Scripting.Dictionary")
  For Each c In Range("c2:c14")
    If MonDico1.Exists(c.Value) Then
      If Not mondico2.Exists(c.Value) Then mondico2.Add c.Value, c.Offset(0, 1).Value
    End If
  Next c
 Me.ListBox1.List = mondico2.keys
 Me.ListBox2.List = mondico2.items
End Sub

JB
Formation Excel VBA JB

 

[tonton29610]

Re : recuperer valeurs doublons

Merci beaucoup, c'est exactement ce dont j'avais besoin, quand je pense aux prises de tète que je me suis fait.
Merci encore et à bientôt surement.