Macro comparer deux colonnes

Bonjour à tous!

Je suis en galère car je n'arrive pas à m'en sortir...

Je souhaiterai savoir s'il existait une macro pouvant comparer le contenu de deux colonnes

Et dire s'il y a des choses identiques et les mettre dans une autre colonne.

En plus du problème, il ne faudrait pas tenir compte des cellules vides.

J'espère que quelqu'un pourra m'aider car je pourrais avancer dans mon travail!

Merci à tous!

Bonjour et bienvenue sur le forum

Si tu as un fichier, on peut sûrement te proposer quelque chose...

Bye !

Bonjour,

Une proposition.

Dans le fichier joint, copie tes 2 listes en colonnes A et B.

Cdlt.

Bonjour le fil, bonjour le forum,

Un peu en retard, j'envoie quand même... le code ci-dessous compare les colonnes A et B et renvoient les valeurs communes dans la colonne D :

Sub Macro1()
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim TC As Variant 'déclare la variable TC (Tableau de Cellules)
Dim NL As Integer 'déclare la variable NL (Nombre de Lignes)
Dim I As Integer 'déclare la variable I (Incrément)
Dim R As Range 'déclare la variable R (Recherche)
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)

DL = Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne 1 (=A)
TC = Range("A1:A" & DL) 'définit le tableau de cellules TC
NL = UBound(TC, 1) 'définit le nombre de lignes NL du tableau de cellules TC
For I = 1 To NL 'boucle sur toutes les lignes I du tableau de cellules TC
    'condition si la recherche R (recherche entière de la valeur ligne I colonne 1 de TC dans la colonne 2) renvoie au moins une occurrence trouvée
    If Not Columns(2).Find(TC(I, 1), , xlValues, xlWhole) Is Nothing Then
        ''definit la cellule de destination DEST (D1 si D1 est vide, sinon la première cellule vide de la colonne D)
        Set DEST = IIf(Range("D1").Value = "", Range("D1"), Cells(Application.Rows.Count, 4).End(xlUp).Offset(1, 0))
        DEST.Value = TC(I, 1) 'récupère dans DEST la valeur ligne I colonne 1 de TC
    End If 'fin de la condition
Next I 'prochaine ligne de la boucle
End Sub

Merci à tous surtout ThauTheme c'est exactement ce qu'il me faut!!

Merci encore pour la réponse ! Cependant je vais encore vous embêter.... Colonne A comparée avec colonne B et résultats colonne D Ok. Serait-il possible de mettre ce qui est associé à la colonne b en colonne E après résultat? On compare et si c'est identique mettre la cellule en colonne C à côté de celle trouvée en colonne B dans la colonne E? Je pense ça assez difficile ! Apres promis je ne vous embête plus.

Merci!