Equivalent RECHERCHEV avec VBA

Bonjour à tous,

Voici ma situation, j'ai deux onglets (feuil1 et feuil2) chacun composé de trois colonnes avec les mêmes entêtes.
l'idée serait que pour chaque valeur de la colonne A de feuil1, s'il y a son équivalent dans la colonne A de feuil2 alors dans la colonne E de la feuil1(sur la meme ligne) soit récupéré la valeur de la colonne C de feuil2

J'ai beau tenter les différentes propositions que l'on trouve sur le site j'obtiens toujours un message d'erreur

Merci pour le coup de main

Bonjour,

Citation:

---

J'ai beau tenter les différentes propositions que l'on trouve sur le site j'obtiens toujours un message d'erreur

---

et si tu montrais le code que tu as déjà préparé !!!

Voila ce que j'ai fait jusqu'à présent

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Function Comparaison() Dim Plage As Range, C As Range For i = 1 To 30 With Sheets("Feuil2") Set Plage = .Range(.["A"&i], .Cells(.Rows.Count, 1).End(xlUp)) End With With Sheets("Feuil1") For Each C In Plage C.Offset(, 1) = Application.VLookup(C.Value, .Range(.[A1], .Cells(.Rows.Count, 3).End(xlUp)), 1, 0) Next C End With Next i   End Function

---

Les valeurs de la colonne A de la feuille1 sont bien unique ?

Moi je partirai plutôt sur l'utilisation de Range.Find, donc en parcourant la colonne A de la feuille2, je ferais un Find de Chaque valeur sur la colonne A de la feuille1 ;)

Oui j'ai supprimé tous les doublons déjà.

Donc l'idée serai de faire une boucle if avec Range.Find?

Une boucle If ça n'existe pas :aie:

Mais une boucle For Each de la plage colonne A de la feuille 2 et pour chaque valeur si Find alors tu récupère la valeur présente en colonne C pour mettre en colonne E :)

Comme ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim colAF2 As Range Dim fcolAF1 As Range Dim cel As Range   With Sheets("Feuil2") Set colAF2 = .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row) End With   For Each cel In colAF2 Set fcolAF1 = Sheets("Feuil1").[A:A].Find(cel.Value, LookIn:=xlValues, LookAt:=xlWhole) If Not fcolAF1 Is Nothing Then cel.Offset(ColumnOffset:=4).Value = fcolAF1.Offset(ColumnOffset:=2).Value End If Next

---

Je reçoit toujours un message d'erreur
cette fois au niveau de

Code:

---

Set colAF2 = .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp))

---

"Erreur définie par l'application ou par l'objet"

Oui :calim2:
J'ai oublié ceci :)

Code:

---

Set colAF2 = .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)

---

C'est ça de pondre du code entre le rayon fromage et jambon :mouarf:

Ah oui super la y a plus de message d'erreur :-o

...par contre rien ne se passe ou du moins rien ne s'affiche :lol:

Vérifie les colonnes j'ai peut être inversé entre C et E....
Et peut être aussi les feuilles :ptdr:

C'est vendredi soir !

Oui je crois que ça c'est mieux :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim colAF1 As Range Dim fcolAF2 As Range Dim cel As Range   With Sheets("Feuil1") Set colAF1 = .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row) End With   For Each cel In colAF1 Set fcolAF2 = Sheets("Feuil2").[A:A].Find(cel.Value, LookIn:=xlValues, LookAt:=xlWhole) If Not fcolAF2 Is Nothing Then cel.Offset(ColumnOffset:=4).Value = fcolAF2.Offset(ColumnOffset:=2).Value End If Next

---

On parcours la colonne A de la feuille1, on cherche chaque valeur dans la colonne A de la feuille2
Si on trouve alors on prends la valeur de la colonne C de la feuille2 pour mettre en colonne E de la feuille1 :)

Ca marche parfaitement!!! :D

Merci beaucoup :bravo: :plusser: