XL 2019 Formule VLOOK dans un Userform

[sgangbadjo]

Bonsoir a tous

Please aider moi a corriger le code ci-dessous. J'essaie depuis une journee d'introduire une recherche avec VLOOK dans une formulaire. Mais j'ai un message d'erreur.

Private Sub UserForm_Click()

If Me.TextBox1 <> 0 Then

Me.TextBox2 = Application.WorksheetFunction.VLookup(Me.TextBox1.Value, Sheets("Feuil1").Range("A2:C8"), 2, False)

End If

End Sub

 

[sgangbadjo]

Bonsoir
une autre version !
pour ce qui est du travail en réseau j'y connais rien Lol
jean marie

Merci pour l'appui