Discussion :

[fredym]

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 :

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

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

[Jean-Philippe André]

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 :

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

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

[fredym]

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