Forcer l'utilisateur à répondre dans une InputBox

[gody1954]

Bonjour,

J'ai utilisé le code Inputbox pour inviter l'utilisateur à faire un choix entre 2 possibilités
1 pour joint NBR
2 pour joint EPDM

J'utilise le chiffre entré dans une boucle If....Then
en fonction de la valeur j'affiche dans une cellule bien spécifique le texte correspondant.

mais j'ai un soucis

j'ai pu trouver une ligne de code qui m'affiche "Non défini" si l'utilisateur entre un chiffre supérieur à 2.
Par contre, si l'utilisateur tappe sur Enter sans entrer de valeur, la procédure bug, et le module VBA souvre.

 

[phlaurent55]

Re : Forcer l'utilisateur à répondre dans une InputBox

Bonjour gody,

j'ai pu trouver une ligne de code qui m'affiche "Non défini" si l'utilisateur entre un chiffre supérieur à 2.

il te reste à faire une ligne de code pour le cas où l'utilisateur rentre une valeur inférieure à 1

mais qu'en sera-t'il s'il rentre des caractères au lieu de chiffres?

je pense que tu devra ajouter:
On Error Exit Sub
ou
ajouter un avertissement concernant la saisie attendue

à+
Philippe

 

[fifi]

Re : Forcer l'utilisateur à répondre dans une InputBox

pour le contrôle de la valeur numérique suffit de faire un contrôle:


Dim answer as variant
réponse:
answer = inputbox("saisir le choix..."," saisi", 1) '1 pour que la valeur la plus souvent choisi déjà sélectionnées.
if isnumeric(answer) =true then goto réponse
if answer > 2 then goto réponse
if answer <1 then goto réponse

 

[ROGER2327]

Re : Forcer l'utilisateur à répondre dans une InputBox

Bonsoir à tous

Une proposition simple, sinon simpliste :

[COLOR="DarkSlateGray"][B]Sub toto()
Dim choix$
   Do Until choix = "1" Or choix = "2"
      choix = InputBox("1 pour joint NBR" & vbLf & "2 pour joint EPDM", "Choisir...")
   Loop
End Sub[/B][/COLOR]

ROGER2327
#3593

Vendredi 13 Merdre 137 (Sainte Lunette, solitaire, SQ)
11 Prairial An CCXVIII
2010-W21-7T23:53:04Z