Obliger à saisir un nombre dans inputbox

Bonjour,

j'ai une InputBox dans laquelle je ne veux accepter qu'une valeur numérique

j'ai incompatibilité de type sur la 1ere ligne (Inputbox) si on saisi une lettre ou un espace par exemple (normal j'ai "mt as double")

Code:

---

1 2	mt = InputBox("Montant ?") If IsNumeric(mt) Then

---

du coup "Isnumeric" ne sert à rien

J'ai vu des solutions complexes pour ce problème. Il y a peut être une solution très simple ?

merci

Bonjour,

Utilises : Application.InputBox avec le type:=1
https://docs.microsoft.com/fr-fr/off...ation.inputbox

Merci

je ne connaissais pas cette option

Cela alerte effectivement pour une saisie non numérique avec le type 1

Cependant si on tape un espace ou suppr dans la réponse il me sort un message d'erreur (pièce jointe)

Ben oui, il te sors un message d'erreur.
Un espace n'est pas un chiffre.
Sur le message d'erreur, quand tu cliques sur ok, il te renvoie dans l'InputBox pour corriger.
C'est très exactement ce que tu souhaites...

Bonjour …

à tester

Code:

---

1 2 3 4 5 6

Sub e() Dim mt Do mt=InputBox("(nombre attendu !)", "Montant ...") Loop Until IsNumeric(mt) End Sub

---

Attention, le numérique, ici, est avec le séparateur décimal choisi (point ou virgule). Pour quitter, valider (OK) la saisie d'au moins un des 10 chiffres (tout dépend de l'usage qui sera fait pour mt).

Cela peut se faire aussi, avec un contrôle TextBox. Mais c’est une autre histoire …

Citation:

---

Envoyé par OrDonc

[...]Pour quitter, valider (OK) la saisie d'au moins un des 10 chiffres (tout dépend de l'usage qui sera fait pour mt).[...]

---

Et donc, pour quitter sans entrer une valeur numérique, on doit... saisir une valeur numérique... Ca va être costaud pour tester qu'une valeur numérique n'est pas la bonne...

Mama Mia... Quel désastre :vomi:

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim Result   Do Result = InputBox("Saisissez une valeur numérique. Pour quitter la saisie, laissez la zone vide", "Saisie numérique") Loop While Result <> "" And Not IsNumeric(Result) If Result <> "" Then MsgBox "Vous avez saisi une valeur numérique" Else MsgBox "Vous avez abandonnés la saisie" End If

---

La solution de Pijaku est éventuellement intéressante, mais c'est une solution "Excel" car elle utilise en fait le InputBox d'Excel et n'est pas transposable en Word, PowerPoint... A part pour la saisie d'une plage par pointage (type:=8), je ne vois pas l'intérêt de passer par le modèle objet Excel... ;)