formule VLOOKUP message d'erreur 1004

[poolinn22]

bonjour,
j'ai un souci concernant la formule qui suit :

Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsError(TextBox1.Text = Application.WorksheetFunction.VLookup(TextBox4.Text * 1, Sheets("clients").Range("A2:C1000"), 3, 0)) Then
MsgBox ("code client inexistant")
Else: TextBox1.Text = Application.WorksheetFunction.VLookup(TextBox4.Text * 1, Sheets("clients").Range("A2:C1000"), 3, 0)
End If

End Sub

en gros je veux qu'il y ait un message d'erreur lorsque le code client n'a pas été bien tapé.
mais il y a toujour le message "1004 error"....

COMMENT FAIRE???
merci d'avance!

 

[tototiti2008]

Re : formule VLOOKUP message d'erreur 1004

Bonjour pooliinn,

peut être

Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Application.WorksheetFunction.Countif(Sheets("clients").Range("A2:A1000"),TextBox4.Text * 1)=0 Then
MsgBox ("code client inexistant")
Else
TextBox1.Text = Application.WorksheetFunction.VLookup(TextBox4.Text * 1, Sheets("clients").Range("A2:C1000"), 3, 0)
End If
End Sub