Extraire les données communes à 2 colonnes

[nauj]

Bonjour Forum,
J'ai besoin de votre aide !
J'ai deux colonnes intégrant différentes données. Je souhaiterais extraire les données communes à ces deux colonnes sur une troisième colonne.
Vous avez un petit exemple ci-attaché.
Merci d'avance pour votre aide

 

[capricorne68]

Re : Extraire les données communes à 2 colonnes

salut

met ceux ci en d2 : =SI(NB.SI(B:B;A2)>=1;A2;"")

a+

 

[job75]

Re : Extraire les données communes à 2 colonnes

Bonjour nauj, capricorne68,

Ah c'est plus compliqué capricorne68.

Entrer en D2 la formule matricielle (validation par Ctrl+Maj+Entrée) suivante et tirer vers le bas :

=INDEX(B$2:B$9;PETITE.VALEUR(SI(ESTNUM(EQUIV(A$2:A$9;B$2:B$9;0));EQUIV(A$2:A$9;B$2:B$9;0));LIGNE()-1))

Edit : ou encore, toujours en formule matricielle :

=INDEX(B$2:B$9;PETITE.VALEUR(SI(NB.SI(B$2:B$9;A$2:A$9);EQUIV(A$2:A$9;B$2:B$9;0));LIGNE()-1))

A+

 

[Pyrof]

Re : Extraire les données communes à 2 colonnes

Bonjour,

Voici une solution par macro

Sub dudule()
Dim tab1       'Crée une variable
Set tab1 = CreateObject("Scripting.Dictionary")

' lecture colonne 1
l = 2
While Cells(l, 1) <> ""
    cle = Cells(l, 1)
    If tab1.exists(cle) = False Then tab1(cle) = 1
    l = l + 1
Wend
' lecture colonne 2
l = 2
While Cells(l, 2) <> ""
    cle = Cells(l, 2)
    If tab1.exists(cle) = True Then tab1(cle) = tab1(cle) + 1
    l = l + 1
Wend
'ecriture du résultats
l = 1: c = 4
For Each cle In tab1
    If tab1(cle) = 2 Then
        l = l + 1
        Cells(l, c) = cle
    End If
Next
End Sub

 

[nauj]

Re : Extraire les données communes à 2 colonnes

Merci à vous !
J'ai le choix entre la formule et VBA !
Merci et à bientôt

 

[MJ13]

Re : Extraire les données communes à 2 colonnes

Bonjour à tous

Une autre solution en VBA.