Public Function ecrirevaleur(ByVal message As String, _
ByVal Min As Integer, _
ByVal max As Integer)
Do
valeur = Val(InputBox("entrer valeur"))
Loop While valeur < Min Or valeur > max
ecrirevaleur = valeur
End Function
Sub ecrire()
Dim resultat$, reponse&
reponse = ecrirevaleur("entre une valeur", 1, 100)
resultat = reponse > 0 And reponse < 100
MsgBox (" la saisie du nombre a fonctionnee: " & resultat)
MsgBox (" le nombre est: " & reponse)
End Sub