message d'erreur personnel inputbox si aucune valeur encodée

Bonjour,
si aucune valeur n'est entrée dans une inputbox excel émet un message d'erreur système :
"Nous avons rencontré une erreur dans cette formule.
Etes-vous en train de taper une formule? ...."
Je voudrais au lieu de cela:
- soit quitter l'inputbox sans autre action.
- soit afficher un message d'erreur perso pour annoncer l'abandon de la suite des actions.

Mon code est:

Code:

---

1 2 3 4 5 6 7 8

Sub Quantite()   Dim Qte as Single Qte = Application.InputBox(prompt:="Encoder la quantité :", Type:=1) If Qte = Empty Then Exit Sub ' ferme l'inputbox si clic sur bouton annuler ...   End sub

---

merci

Salut,

InputBox retourne False si le bouton Annuler a été appuyé.

Tu peux utiliser une variable de type Variant et de tester la valeur False pour entrianer des instructions spécifiques.

Code:

---

1 2 3

Dim Qte as Variant Qte = Application.InputBox(prompt:="Encoder la quantité :", Type:=1) If Qte = False Then Exit Sub ' ferme l'inputbox si clic sur bouton annuler

---

Merci pour la correction du bouton Annuler (false)

Il reste encore le cas où aucune valeur n'est tapée dans la zone et que l'on appuie sur le bouton OK.
C'est chaque fois le message d'erreur d'excel qui prime sur mon msgbox ...
L'alternative que j'ai mis en place est de placer une valeur par défaut de 1 dans la propriété de l'inputbox.

Merci tout de même :)