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