Identifier des numéros communs à 2 colonnes

[Magic_Doctor]

Bonjour à tous,

Voilà un moment que j'ai déconnecté... Ma fille (éloignée) me demande de lui résoudre le problème suivant :
2 colonnes avec des chiffres. Identifier les chiffres communs.
J'imagine une macro me délivrant une liste des chiffres et, pourquoi pas (cerise sur le gâteau), les numéros communs des 2 colonnes surlignés.

Mon honneur est en jeu...

Merci d'avance pour toute aide.

 

[BOISGONTIER]

Re : Identifier des numéros communs à 2 colonnes

Bonjour,

cf PJ

JB

 

[job75]

Re : Identifier des numéros communs à 2 colonnes

Bonjour Magic_Doctor, JB

Heureux de te revoir Magic_Doctor, ça fait en effet un bail.

Puisque je l'ai faite voici une solution, moins élaborée que celle de JB :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address <> "$E$1" Then Exit Sub
Dim d1 As Object, d2 As Object, c As Range, a, b(), i&, n&
Cancel = True
Set d1 = CreateObject("Scripting.Dictionary")
Set d2 = CreateObject("Scripting.Dictionary")
For Each c In Range("A1", Range("A" & Rows.Count).End(xlUp))
  d1(CStr(c)) = ""
Next
For Each c In Range("C1", Range("C" & Rows.Count).End(xlUp))
  d2(CStr(c)) = ""
Next
If d1.Count Then
  a = d1.keys
  ReDim b(UBound(a), 0) 'base 0
  For i = 0 To UBound(a)
    If d2.exists(a(i)) Then
      b(n, 0) = a(i)
      n = n + 1
    End If
  Next
End If
If n Then [E2].Resize(n) = b
Range("E" & n + 2 & ":E" & Rows.Count).Delete xlUp
End Sub

Fichier joint.

A+

 

[Magic_Doctor]

Re : Identifier des numéros communs à 2 colonnes

Bonjour JB,job,

Et bien oui job, je m'étais un peu éloigné d'Excel. Ça fait du bien !
C'est curieux ce que ça s'oublie vite tout ça !
En attendant, un grand merci pour vos solutions qui marchent pil-poil.
J'avoue que la macro de JB qui apparie avec la même couleur les numéros communs, m'en a bouché un coin.

Une excellente journée à tous.

 

[Magic_Doctor]

Re : Identifier des numéros communs à 2 colonnes

Bonjour,

Afin de faciliter la tâche à ma fille, au cas où les colonnes de saisies des chiffres soient dans une autre aire de la feuille, plutôt que d'avoir à "bidouiller" dans les macros et formules matricielles, j'ai préféré nommer les colonnes de saisies ("Colonne1" & "Colonne2").
Malheureusement, je me heurte à un problème concernant la "Colonne2" dans la macro "DoublonsEntre2ColonnesCoulDiff" où j'explique à quel moment ça bugue.
Peut-être ai-je mal défini certains paramètres...

Peut-on solutionner ce problème ?

Merci d'avance.

 

[BOISGONTIER]

Re : Identifier des numéros communs à 2 colonnes

Bonjour,

cf PJ

JB

 

[Magic_Doctor]

Re : Identifier des numéros communs à 2 colonnes

Bonjour JB,

¡Muchas gracias! Enfin ça marche du tonnerre !
Mais j'avoue que le : If c <> "" Then... je n'y aurais jamais pensé.

Très bonne journée.