Macro VBA avec VLOOKUP

Bonjour tout le monde,

J'aimerai utiliser la fonction VLookup dans une macro VBA. Je cherche à remplir la valeur de la deuxième colonne de la deuxième feuille avec la valeur de la deuxième colonne de la première feuille, si il ya correspondance entre les deux premières colonnes des deux feuilles; sinon cela remplit avec autre chose. C'est pas si compliqué que ca je vous promet aha :roll:

Voila ce que j'ai fait, mais quand je lance, cela ne marche pas et cela ne m'affiche rien.. retour sur la feuille excel.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub Chercher()     On Error GoTo Other:   Dim i As Long   For i = 1 To Range("B1000000").End(xlUp).Row   Sheet2.Range("B" & i).Value = WorksheetFunction.VLookup(Sheet2.Range("A1").Value, Sheet1.Range("A:B"), 2, False)   Next   Exit Sub   Other: Sheet2.Range("B" & i).Value = "NOT FOUND" Resume Next   End Sub

---

Si vous avez une idée cela m'aiderait beaucoup..
Merci!

Bonsoir,
Je connais mal VLookUp, mais je vous propose un truc qui marche chez moi.
J'espère avoir bien compris vos souhaits

Code:

---

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

Sub Chercher() Dim i As Long On Error GoTo Other:   For i = 1 To Range("B1000000").End(xlUp).Row If Sheets("Sheet1").Range("A" & i).Value = Sheets("Sheet2").Range("A" & i).Value Then Sheets("Sheet2").Range("B" & i).Value = Sheets("Sheet1").Range("B" & i).Value Else End If Next   Exit Sub   Other: Sheet2.Range("B" & i).Value = "NOT FOUND" Resume Next   End Sub

---

Par contre, votre dossier .XLSX n'accepte pas les macros, il faut le transformer en =.XLSM
Cordialement 8-)

Salut,

Essaies avec le code ci-desssous. Je l'ai tester avec ton fichier et il marche très bien.

J'ai joint ton fichier. Et heureusement pour toi que les Administrateur ne t'ont pas vue. En effet il est interdit de joindre un fichier au premier message. On ne joint de fichier qu'en cas "extreme" ou sur demande d'un autre membre susceptible d'aider.

Merci de mettre un :plusser: si ma contribution a servi. On le trouve juste en bas au coin droit:D
Et s'il n'y a plus de question ne pas oublier de cliquer sur :resolu: en bas à gauche ;)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Sub MonVlookupQuiFonctionneFinalement() Dim rng As Range Dim i As Long   Application.ScreenUpdating = False   Worksheets("Sheet2").Activate Range("A1").Activate   With Worksheets("Sheet2").Cells Set rng = .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)   For i = 1 To rng.Rows.Count   rng.Cells(i, 2) = Application.VLookup(.Cells(i, 1), Sheets("Sheet1").Range("A:B"), 2, False) If IsError(rng.Cells(i, 2)) Then If rng.Cells(i, 2) = CVErr(xlErrNA) Then ' Pour changer le "#NA" en to "Doublon ou Pas trouvé" le cas échéant. rng.Cells(i, 2) = "Doublon ou Pas trouvé" End If End If Next End With   Set rng = Nothing Application.ScreenUpdating = True   End Sub

---

Merci beaucoup pour vos réponses !!

RastaBomboclat ta solution marche parfaitement
Transitoire merci pour l'astuce je ne savais pas :)

Bonne semaine à vous