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