Reponse InputBox et plage de donnees

[yellowmoon]

Bonjour a tous,

Apres plusieurs recherches sur internet, je n'arrive pas a trouver la reponse a ma question, j'espere que vous pourrez m'aider.

En VBA, j'ai une inputbox qui s'ouvre, et qui demande a l'utilisateur de renseigner une reference (ex: 1234567X).

Je souhaiterai comparer cette reponse a une plage de cellule (ex: de A1 a A10 de la feuille 1).
Si la reference inscrite par l'utilisateur n'est pas contenue dans cette plage de cellule, alors un message d'erreur apparait, l'invitant a retaper sa reference.

Je n'ai pas de probleme pour generer juste le message d'erreur, seulement pour comparer la reference saisie et celles contenues dans ma plage de donnees. J'ai essaye de bidouiller avec des "Or" en saisisant toutes les references dans VBA mais cela est assez lourd.

Merci pour votre aide et desole pour les accents, je suis en clavier Qwerty.

 

[youky(BJ)]

Bonjour yellowmoon,
Testez cette macro
Bruno

Sub test()
Do
ref = InputBox("Entrez la référence !", "REFERENCE CODE")
If ref = "" Then Exit Sub
If IsNumeric(Application.Match(ref, [A1:A10], 0)) Then Exit Do
Loop
MsgBox "c'est bon"
End Sub

 

[yellowmoon]

Cela fonctionne parfaitement !
Merci beaucoup Youki(BJ) !