Discussion :

[retraite83]

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 :

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

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

[pijaku]

Bonjour,

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

[retraite83]

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)

[pijaku]

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

[OrDonc]

Bonjour …

à tester

Code :

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

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 …

[Pierre Fauconnier]

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

Code :

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

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