Reponse InputBox et plage de donnees

yellowmoon · 25 Septembre 2017

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) · 25 Septembre 2017

Bonjour yellowmoon,
Testez cette macro
Bruno

VB:

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 · 25 Septembre 2017

Cela fonctionne parfaitement !
Merci beaucoup Youki(BJ) !

Reponse InputBox et plage de donnees

yellowmoon

XLDnaute Nouveau

youky(BJ)

XLDnaute Barbatruc

yellowmoon

XLDnaute Nouveau

Discussions similaires

Reponse InputBox et plage de donnees

yellowmoon

XLDnaute Nouveau

youky(BJ)

XLDnaute Barbatruc

yellowmoon

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency