Fonction de contrôle de saisie
Bonjour,
J'ai besoin de votre aide
Je veut crée une fonction qui permet de saisir un nombre dans un imputBox ,la valeur doit être entre une borne min et une borne max , si l’utilisateur clique sur annulé la fonction renvoi -999
ma fonction marche très bien quand je saisie des valeur positif par contre elle renvois du vide quand j'écrit une valeur négatif
si quelqun peut m'éclairé je vous serai reconnaissant
merci d'avance
Ma fonction :
Function testing(question As String, minimum As Long, maximum As Long)
Dim nombreSaisie As Variant
Do While nombreSaisie < minimum Or nombreSaisie > maximum
nombreSaisie = InputBox(question & " tapez " & minimum & " puis " & maximum & " puis appuiez sur cancel ")
If nombreSaisie = -999 Or nombreSaisie = "" Then
nombreSaisie = -999
Exit Do
End If
Loop
testing = nombreSaisie
MsgBox (testing)
End Function