Supprimer message erreur vlookup quand la valeur n'est pas trouvée

[Pasbleau]

Bonjour à tous

J'ai un code qui me permet de rechercher une valeur dans une feuille et de renvoyer une autre valeur correspondant à la valeur cherchée.

J'utilise le code suivant :

Private Sub combobox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox69.Text = Application.WorksheetFunction.VLookup(ComboBox2.Text, Sheets("Feuil3").Range("A3:E972"), 5, 0)
End Sub

Mais, lorsque le texte inscrit dans la combobox2 ne se trouve pas dans la plage de donnée recherchée, je reçois un message d'erreure 1004 ...
Je voudrais ne plus recevoir ce message et que lorsque le texte n'est pas trouvé, laisser l'utilisateur continuer ..

Merci

 

[Dranreb]

Re : Supprimer message erreur vlookup quand la valeur n'est pas trouvée

Bonjour
Essayez comme ça:

Private Sub combobox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim L As Long
On Error Resume Next
L = Application.WorksheetFunction.Match(ComboBox2.Text, Sheets("Feuil3").Range("A3:A972"), 0)
If Err Then Textbox69.Text = "": Exit Sub
Textbox69.Text = Sheets("Feuil3").Range("E3:E972").Rows(L).Value
End Sub

À+

 

[Pierrot93]

Re : Supprimer message erreur vlookup quand la valeur n'est pas trouvée

Bonjour à tous,

perso j'utiliserais plutôt la méthode "find", native de vba :

Dim x As Range
Set x = Sheets("Feuil3").Range("A3:E972").Find(combobox2.Text, , xlValues, xlWhole, , , False)
If Not x Is Nothing Then TextBox69.Text = x.Offset(0, 4).Value

bon après midi
@+

 

[Pasbleau]

Re : Supprimer message erreur vlookup quand la valeur n'est pas trouvée

Merci Dranreb, mais la solution de Jean Marcel est plus simple et me convient.

Merci Jean Marcel à bientot

 

[Pasbleau]

Re : Supprimer message erreur vlookup quand la valeur n'est pas trouvée

Merci à tous

J'ai un autre problème, pouvez vous y jeter un coup d'oeil ?

https://www.excel-downloads.com/thr...-une-forme-pour-la-reouvrir-plus-tard.167414/

 

[Pierrot93]

Re : Supprimer message erreur vlookup quand la valeur n'est pas trouvée

Re,

faudrait déjà que tu lises toutes les réponses qui te sont faites....