Discussion :

[Maxence45]

Bonsoir , j'ai écrit une fonction qui demande à un utilisateur d'entrer une note entre 0 et 20 et de l'afficher et de dire "recommence ta saisie" si la note n'est pas comprise entre 0 et 20 , voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Function noteSaisie(ByVal x As Integer) As Integer
x = Application.InputBox("Entre ta note", Type:=1)
    Do
    MsgBox "Votre note est" & x
    If x < 0 Or x > 0 Then
    MsgBox "recommencez votre saisie"
    End If
    Loop Until x >= 0 And x <= 20
    noteSaisie = x
End Function

Le programme marche mais le seul soucis que j'ai c'est que meme si je rentre une note comprise entre 0 et 20 , ça m'affiche bien la note mais ça me met tjs le message recommencez votre saisi , et quelquesoit l'endroit où je place mon if end if...

Quelqu'un a t'il une petite explication?
merci

[Maxence45]

j'ai trouvé le problème j'ai oublié un 2 dvt le 0 dans ma condition mais j'ai un autre petit soucis , si je mets comme note -2 ça me met bien recommencez votre saisie mais ça me boucle sans arret dessus entre -2 et recommencez votre saisie

[Maxence45]

laissez moi 2min je crois que je vais m'en sortir !

[Maxence45]

j'ai réussi qu'en pensez vous ! :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Function noteSaisie(ByVal x As Integer) As Integer
x = Application.InputBox("Entre ta note", Type:=1)
    Do
    MsgBox "Votre note est" & x
    If x < 0 Or x > 20 Then
    MsgBox "recommencez votre saisie"
    x = Application.InputBox("Entre ta note", Type:=1)
    End If
    Loop Until x >= 0 And x <= 20
    noteSaisie = x
End Function

[Maxence45]

et là j'ai un soucis la boucle ne s'arrete pas c'est pas normal :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Function noteSaisiebis(ByVal x As Integer) As Integer
x = Application.InputBox("Entre votre note", Type:=1)
    Do While x >= 0 And x <= 20
    MsgBox "votre note est" & x
    If x < 0 Or x > 20 Then
    MsgBox "recommencez votre saisie"
    End If
    Loop
    noteSaisiebis (x)
End Function

[Maxence45]

j'y suis presque

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Function noteSaisiebis(ByVal x As Integer) As Integer
x = Application.InputBox("Entre votre note", Type:=1)
    Do While x < 0 Or x > 20
    MsgBox "recommencez votre saisie"
    x = Application.InputBox("Entre votre note", Type:=1)
    If x >= 0 And x <= 20 Then
    MsgBox "ta note est" & x
    End If
    Loop
End Function

mais là quand j'entre la note 15 rien ne s'affiche c'est normal ?