Vlookup с пользовательской формой

Question

Я пытаюсь настроить исследование Userform с 3 текстовыми полями, но не могу заставить его работать и не знаю почему.

Это мой код:

Private Sub TextBox1_AfterUpdate()
On Error GoTo 1
If WorksheetFunction.CountIf(Sheets("Feuil1").Range("A:A"), Me.TextBox1.Value) = 0 Then

 MsgBox "introuvable"
End If
With Me
 .TextBox2 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox1), Feuil1.Range("A:E"), 2, 0)
End With
1
End Sub

надеясь на вашу помощь

спасибо

Answer 1

Удалите WorksheetFunction, и тогда не будет ошибки во время выполнения, если нет совпадения:

Private Sub TextBox1_AfterUpdate()
    Dim r

    r = Application.VLookup(CLng(Me.TextBox1), Feuil1.Range("A:E"), 2, False)

    Me.TextBox2 = IIf(IsError(r),"Introuvable", r)

End Sub