Boucle pour comparer deux colonnes

Bonjour!

J'aimerais comparer chaque ligne de la colonne 3 avec toute les lignes de la colonne 1.

Si la ligne de la colonne 3 correspond à une ligne de la colonne 1 alors inscrire dans la colonne 4 la valeur de la colonne 2!

J'ai écris ce code mais j'ai l'impression qu'il compare uniquement ligne par ligne!:

Sub compare()
With Worksheets("Feuil1")
For i = 1 To Worksheets("feuil1").Cells(1, 1).End(xlDown).Row 'derniere cellule renseignée de la colonne?

  For j = 1 To Worksheets("feuil1").Cells(1, 3).End(xlDown).Row

    If Worksheets("feuil1").Cells(i, 1) = Worksheets("feuil1").Cells(j, 1) Then

      Worksheets("feuil1").Cells(i, 4) = Worksheets("feuil1").Cells(j, 2)

    End If
  Next
Next
End With
End Sub

Merci d'avance pour votre aide!

bonjour,

La comparaison se fait sur cette ligne :

If Worksheets("feuil1").Cells(i, 1) = Worksheets("feuil1").Cells(j, 1) Then

Donc les 2 colonnes comparées sont la 1 et ... la 1 !

A+

Bonjour galopin01!

Merci encore pour ton aide c'était bien à cause de ça!

Bonne soirée!

Rebonjour ,

En fait il y a encore un petit problème c'est que le code compare les colonnes ligne par ligne alors que je souhaite comparer chaque ligne de la colonne 4 avec toutes les lignes de la colonne 1!?

Les colonnes n'ont pas de lignes... juste des cellules.

Tu as commencer le fil en voulant comparer les cellules de la colonne 1 avec celles la colonne 3:

ce que tu as très bien fait :

For i = 1 To Worksheets("feuil1").Cells(1, 1).End(xlDown).Row

For j = 1 To Worksheets("feuil1").Cells(1, 3).End(xlDown).Row

Si tu as changé d'avis YAKA changer le numéro de colonne !

A+