Vlookup avec target

[gvives]

Bonjour à tous,

Est-il possible d'utiliser la formule Vlookup avec target de façon à rechercher la valeur de la case que l'on vient de renseigner dans une base de données. J'ai commencé ce code mais il ne fonctionne pas...

Private Sub worksheet_change(ByVal target As Range)
Application.EnableEvents = False
target.Offset(0, 1) = WorksheetFunction.VLookup(target.Value, Sheets("ContrôlesB").Range("B2:C500"), 2, False)
Application.EnableEvents = True
End Sub

Pourriez vous me renseigner...

Merci beaucoup d'avance

 

[titiborregan5]

Re : Vlookup avec target

Bonjour gvives, le forum,

un code qui marche chez moi en rentrant la valeur dans la colonne D et la base ne fait que A1:b2 pour les tests...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
Target.Offset(0, 1) = Application.VLookup(Target, Range("a1:b2"), 2, False)
End If
End Sub

J'ai mis application.vlookup là où toi tu as mis worksheetfunction.vlookup, peut-être que l'erreur vient de là...