Discussion :

[moilou2]

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 :

Incompatibilité de type

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

Merci, voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.....

[mout1234]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[moilou2]

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?

[Titwou]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If VarType(sValeurInuptBox) =2 then...

[moilou2]

Re, j'ai testé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?