Saisie obligatoire InputBox

[Julien314]

Bonsoir,

J'ai un petit problème concernant la fonction inputbox car afin de rendre le programme plus robuste je dois obliger l'utilisateur à rentrer une valeur. J'ai déjà une fonction qui permet de refaire la saisie si le nombre est négatif mais quand j’appuie directement sur Entrée sans saisir une seule valeur le programme continu donc il me faudrait un moyen de forcer l'utilisateur à rentrer un chiffre.

Merci d'avance pour votre aide

 

[JBARBE]

Re : Saisie obligatoire InputBox

Bonsoir à tous,

Un exemple :

Nombre_Plein = Application.InputBox("Veuillez inscrire la somme SVP ")
        If Not IsNumeric(Nombre_Plein) Then
        MsgBox "Veuillez inscrire un nombre"
        Exit Sub
        End If
        If StrPtr(Nombre_Plein) = 0 Then
        MsgBox " Saisie Annuler"
        Exit Sub
        End if

bonne soirée

 

[mapomme]

Re : Saisie obligatoire InputBox

Bonsoir Julien314,

Un autre essai.
On oblige une saisie d'un nombre entier positif (cas 1) ou d'un nombre quelconque positif (cas 2) :

Sub Saisie()
Dim Nrep

Do
  Nrep = Application.InputBox("1 - Veuillez saisir un entier strictement positif SVP :", Type:=1)
Loop Until Nrep > 0 And Fix(Nrep) = Nrep

MsgBox "Vous avez saisi : " & Nrep

Do
  Nrep = Application.InputBox("2 - Veuillez saisir un nombre strictement positif SVP :", Type:=1)
Loop Until Nrep > 0

MsgBox "Vous avez saisi : " & Nrep

End Sub

Edit : bonsoir JBARBE

 

[Julien314]

Re : Saisie obligatoire InputBox

Merci de m'avoir répondu si rapidement et d'avoir pris la peine de me donner des exemples.

Mon problème est résolu

Bonne soirée ^^