VBA Excel VLookup

Bonjour,

Je souhaite réaliser une macro permettant de rajouter une formule VLookup dans C si A existe (nombre de ligne variable dans A).

J'ai un fichier xls contenant mes id de AM2 à AM200 (variable).

Je souhaite faire un VLOOKUP par rapport à un fichier mapping, en allant chercher l'ID dans A et en prenant la valeur de B.

Pas de problème pour faire le Vlookup sous excel, mais impossible de passer par une macro. Après avoir cherché à modifier avec ce que je trouvais sur les forum, je lance mon sos ici.

Sub Addformule()

Dim c As Range, Col As Integer

For Each c In Range([A1], [A65536].End(xlUp))

Cells(c.Row, 2).FormulaR1C1 = Application.WorksheetFunction.VLookup(("A1"), Range("I1,I5"), 1, False)

Next c

End Sub

j'ai testé de multiples syntaxe pour Vlookup sans succès.

Merci de votre aide

J'ai finalement trouvé une solution :

Sub Addformule()

Dim c As Range, Col As Integer

For Each c In Range([A1], [A65536].End(xlUp))

Cells(c.Row, 2).Formula = "=VLOOKUP(G:G,I:I,1,FALSE)"

Next c

End Sub

je ne sais pas quelle est la diférence par rapport à application.vlookup, mais si ça peut servir un jour à quelqu'un...