Message si une recherche n'aboutit pas

Bonjour à tous,

Je viens de créé un Userform de recherche rapide dans un stock,

Il est composé d'une combobox, ou je tape ma ref

une textbox qui m'affiche l'emplacement ou le trouver

une autre textbox qui m'indique la quantité en stock

ça fonctionne bien, à partir du moment ou la ref que je rentre est bien dans ma liste de pièces détachées,

par contre si ma ref n'est pas dans la liste, il m'affiche quand même celle si approchant le plus.

comment faire pour avoir dans mes deux textbox un message genre "ref inconnu" ou sinon quelles restent vide

Private Sub ComboBox1_Change()

Dim F As Worksheet

Set F = Worksheets("Inventaire")

On Error Resume Next

TextBox1.Text = Application.WorksheetFunction.VLookup(ComboBox1.Text, F.Range("A4:J10000"), 7, faux)

TextBox2.Text = Application.WorksheetFunction.VLookup(ComboBox1.Text, F.Range("A4:J10000"), 4, faux)

End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub TextBox2_Change()

End Sub

merci d'avance

Bonjour,

Remplace faux par False.

Cordialement.

Bonjour MFerrand,

Même problème

Merci

Essaie ainsi :

Private Sub ComboBox1_Change()
    Dim Invent As Range
    Set Invent = Worksheets("Inventaire").Range("A4:J1000")
    On Error GoTo NoRef
    TextBox1.Text = WorksheetFunction.VLookup(ComboBox1.Text, Invent, 7, False)
    TextBox2.Text = WorksheetFunction.VLookup(ComboBox1.Text, Invent, 4, False)
    Exit Sub
NoRef:
    TextBox1.Text = "Réf. inconnue"
    TextBox2.Text = "Réf. inconnue"
End Sub

Si cela ne fonctionne pas, il sera nécessaire d'examiner ce qui se passe dans ton fichier.

Cordialement.

Trop trop fort

Merci beaucoup

cordialement