Bonjour à tous,
J'ai créé un userform qui permet de rechercher des information dans un sheet excel.
J'y ai inséré un combobox qui permet à l'utilisateur de taper une référence, et cette combobox remonte les informations trouvés dans d'autre champs (textbox).
Le soucis que j'ai, c'est que lorsque la référence n'est pas trouvé, une erreur 91 remonte.
Comment puis-je contourner le problème?
Je souhaiterai que, lorsque la référence n'est pas trouvé, un message d'erreur apparaisse et qu'aprés validation, l'utilisateur puisse corriger son erreur.
Voici le code actuel:
Information complémentaire: la référence dans la combobox est forcément de 9 chiffres.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Private Sub NumNCR_Change() Dim NumLigne As String 'Détection du numéro de ligne pour la valeur de la colonne N° demande NumLigne = Columns(2).Find(NumNCR.Value, LookIn:=xlValues, LookAt:=xlPart).Row 'Remplissage du formulaire PN.Value = Range("C" & NumLigne).Value OF.Value = Range("D" & NumLigne).Value Quantite.Value = Range("E" & NumLigne).Value
Merci d'avance pour votre aide
Partager