XL 2016 double inputbox

[djiska]

Bonjour ,
j'ai écris une fonction mais lors du test je ne ressui pas afficher le paramétré VALEUR dans le msg box.
le message box renvoie 0 au lieu de la valeur entrée.

Public Function ecrirevaleur(ByVal message As String, _
ByVal Min As Integer, _
ByVal max As Integer, _
ByVal valeur As Integer) As Boolean

Do
valeur = Val(InputBox("entrer valeur"))
Loop While valeur < Min Or valeur > max
doitrecommencer = True
Ecrirevaleur= True
End Function

VOICI LE TEST

Sub ecrire()

Dim resultat As String
Dim reponse As Integer

resultat = Ecrirevaleur("entre une valeur", 1, 100, reponse)
reponse = valeur
MsgBox (" la saisie du nombre a fonctionnee: " & resultat)
MsgBox (" le nombre est: " & reponse)

End Sub

merci

 

[patricktoulon]

bonsoir

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

 

[djiska]

merci Patrick