version boucle

Salut tout le monde !

j'ai écris une fonction qui rend une note entre 0 et 20 ou l'utilisateur recommence la saisie si la note n'est pas comprise entre 0 et 20 :

Function noteSaisie(ByVal note As Double) As Double
'note entre 0 et 20
Do Until note <= 20
Application.InputBox ("Veuillez saisir une note comprise entre 0 et 20 ")
Loop

End Function

Sub testNoteSaisie()
Application.InputBox ("Veuillez saisir une note comprise entre 0 et 20 ")
End Sub

Mais ma fonction me fait ne boucle qui ne se termine pas meme si j'ai fait Loop
Qu'en dites vous ?  Peut on ecrire des versions differentes avec "until" puis  "while" et do....loop sans que ça tourne à l'infini ?

Merci

Bonjour,

1) je ne vois pas quelle valeur de note tu passes à ta fonction.
2) <= 20 inclus des nombres négatifs !!! ?
3) je ne vois pas où ta fonction attribue à note la valeur saisie dans ton inputbox !!!
4) je ne vois pas non plus quelle valeur retourne ta fonction (tu ne lui en attribue aucune. or, une fonction est faite pour retourner la valeur qu'elle prend ...)

 

5) tu ne me parais pas développer sous VB6 mais sous VBA (et tu es iciç dans la section VB6) ...

Voilà un exemple avec utilisation (bien inutile dans un tel cas à mon sens, mais bon ...) de fonction et avec boucle dans la fonction.

Private Sub Command1_Click()
  MsgBox "vous avez saisi " & noteSaisie()
End Sub

Private Function noteSaisie() As Double
  noteSaisie = -1
  Do Until noteSaisie <= 20 And noteSaisie >= 0
    noteSaisie = Val(InputBox("Veuillez saisir une note comprise entre 0 et 20 "))
  Loop
End Function

Adapte au besoin pour VBA (avec ton "Application.machin")

Ah oui...

Et lis dans ton aide en ligne à quoi peut servir Isnumeric, puis utilise-le, afin d'éviter que l'utilisateur frappe une lettre par erreur et que la note soit alors 0 ou qu'il frappe "1blabla" et que la note soit 1 !!!

bonjour !

1) est ce qu'avec une boucle while ça ressemblerais à ça ?

Private Function noteSaisie3() As Double
  noteSaisie3 = -1
  Do
    noteSaisie3 = Val(InputBox("Veuillez saisir une note comprise entre 0 et 20 "))
  Loop While noteSaisie3 <> 20 And noteSaisie3 <> 0
End Function

Private Sub Command1_Click3()
  MsgBox "Votre note a été saisie avec succès !" & noteSaisie3()
End Sub

2) pour isNumeric , est ce que je peux l'introduire dans mon test ?
3) dans mon msgbox du test , est ce que je peux enlever la note qui s'affiche à coté du msg "Votre note a été saisie avec succès !"  ??


Thx

J'ABANDONNE !!!!!!!!!
Et te conseille de ne plus mettre la charrue avant les boeufs !!!!
Il y a un minimum a connaître avant de commencer à développer... et ce minimum s'acquiert (comme tout un chacun) en lisant au moins les bases dans son aide en ligne.

Bon apprentisasge, donc.

c'est bon ! j'ai réussi pour les deux boucles until et while !
par contre est ce qu'on peut faire la fonction juste avec Do... Loop ? (sans while et until ?) , par exemple avec un if dans le corps de la fonction

Pour jmfmarques désolé mais  ou es l'aide en ligne ? (je suis nouveau sur le site)

"Pour jmfmarques désolé mais  ou es l'aide en ligne ? (je suis nouveau sur le site) "

L'aide en ligne n'est pas sur ce site ni sur ce forum !
Elle est sur TA MACHINE (barre d'outil ==>>> ? ou Aide ou Help selon ta version !!!).
Nul (même les plus avancés des développeirs) ne peut valablement développer sans consulter régulèrement cette aide !...