XL 2016 Tableau et fonction

[djiska]

Bonjour je tente d'écrire une fonction dont la valeur retour est une boolean ,dont le tableau reçoit des valeurs qui sont validées lorsque chacune des ces valeurs est comprise entre 1 et 100 (elle renvoie bonne valeur).
lorsqu'on annule elle renvoie le message(Recommencez) .
sauf que ma fonction ne fonctionne pas correctement.

Public function validation(ByRef tableau() As Integer) As Boolean


Dim valeur1 As Integer
Dim valeur2 As Integer
Dim valeur3 As Integer

Dim valeur As Integer
Dim saisie As String
Dim resultat As Boolean



valeur1 = Val(InputBox(" entrer une valeur de départ")) 'RndInteger(1, 100)
valeur2 = Val(InputBox(" entrer une valeur de destination")) 'RndInteger(1, 100)
valeur3 = Val(InputBox(" quelle est l'autonomie")) 'RndInteger(1, 100)

'on determine l'emplacement des variables dans le tableau

tableau(1) = valeur1
tableau(2) = valeur2
tableau(3) = valeur3



'on prend pour acquis que l'utilisateur va saisir une valeur valide

'resultat = True

'L'utilisateur saisie une valeur
Do

valeur1 = vbNullString Or valeur2 = vbNullString Or valeur3= vbNullString


Call MsgBox("recommencez")




If valeur1 = RndInteger(1, 100) And valeur2 = RndInteger(1, 100) And valeur3= RndInteger(1, 100) Then

resultat = True

Call MsgBox(" bonne valeur")


Else

resultat = False

End If


Loop While resultat

Call MsgBox("entrer une valeur valide")



validation= resultat



End Function

Merci beaucoup