Problème avec INPUTBOX

Bonjour, j'ai un souci avec une INPUTBOX, celle ci fonctionne correctement, mais je voudrais savoir comment mettre du code derrière le bouton annuler car dès que je clic dessus, j'ai un message :

Citation:

---

Incompatibilité de type

---

En fait je voudrais que si on clic sur annuler et bien ça quitte la sub.

Merci, voici mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

message = "Veuillez entrer la quantité réelement reçue " Titre = "Quantité réelement reçue" ValeurInuptBox = InputBox(message, Titre)   If IsNull(ValeurInuptBox) Then MsgBox ("Veuillez Indiquer une valeur dans la zone de saisie") Exit Sub Else End If   If ValeurInuptBox < 1 Then MsgBox ("Veuillez entrer une valeur différente de 0 ou positive") Exit Sub Else End If   If ValeurInuptBox >= Quantité Then.....

---

Bonjour,

Comme l'indique l'aide d'Access, la fonction InputBox renvoie un type String, qui contient une chaine vide "" lorsque l'utilisateur clique sur Annuler.

Il faut donc que tu déclares ta variable ValeurInuptBox de type String et que tu testes si la valeur est "" pour détecter le clic sur Annuler.

Ensuite, tu peux convertir la valeur en numérique (ou laisser Access faire implicitment la conversion).


qq chose du genre (non testé)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Dim sMessage as string Dim sTitre as string Dim sValeurInputBox as string Dim iQuantité as Integer 'à adapter en fonction du type de numérique attendu       message = "Veuillez entrer la quantité réelement reçue " Titre = "Quantité réelement reçue" sValeurInuptBox = InputBox(sMessage, sTitre)   If sValeurInuptBox ="" Then Exit Sub elseIf Not ISNumeric(sValeurInuptBox) then MsgBox ("Veuillez entrer un nombre") else iQuantité = CInt(sValeurInputBox) if iQuantité < 1 Then MsgBox ("Veuillez entrer une valeur supérieure à 0") Exit Sub ElseIf iQuantité >= Quantité Then.....   Else end if

---

Comme c'est un string, mais que moi j'y insert des valeurs, comment tester si je ne veux pas de nombre à virgule dans l'INPUTBOX?

Tu peux essayer avec la fonction VarType pour savoir si ta réponse est un entier (vbInteger=2)

Code:

---

If VarType(sValeurInuptBox) =2 then...

---

Re, j'ai testé :

Code:

---

1 2 3 4

If Not VarType(ValeurInuptBox) = 2 Then MsgBox ("La quantité reçue doit être un nombre entier") Exit Sub End If

---

Mais même si je met un nombre entier, ça me déclenche, donc ça ne fonctionne pas!

Quelle autre solution est possible?