Bonjour,
J'ai un exercice à résoudre avec les boucles que je n'arrive pas à résoudre ...
Enoncé :
écrire un programme qui demande la saisie d’une valeur. La saisie sera
répétée tant que la valeur saisie n’est pas comprise entre 0 et n, n étant une
valeur choisie par l’utilisateur.Reprendre le programme réalisé en 1.1 et compter le nombre
d’exécutions de la boucle qui sera affiché à la fin de la boucle.
J'ai déjà réalisé le programme en 1.1 mais je n'arrive pas à faire la suite avec le comptage.
Sub exo ()
Dim n As Integer, v As Integer
n = InputBox("Borne sup de l'intervalle?")
Do
v = InputBox(" entrez une valeur entre 0 et " & n)
Loop While (v > n) Or (v < 0)
msgbox ("valeur correcte entrée:" & v)
End Sub
Merci pour votre aide !!
J'ai un exercice à résoudre avec les boucles que je n'arrive pas à résoudre ...
Enoncé :
écrire un programme qui demande la saisie d’une valeur. La saisie sera
répétée tant que la valeur saisie n’est pas comprise entre 0 et n, n étant une
valeur choisie par l’utilisateur.Reprendre le programme réalisé en 1.1 et compter le nombre
d’exécutions de la boucle qui sera affiché à la fin de la boucle.
J'ai déjà réalisé le programme en 1.1 mais je n'arrive pas à faire la suite avec le comptage.
Sub exo ()
Dim n As Integer, v As Integer
n = InputBox("Borne sup de l'intervalle?")
Do
v = InputBox(" entrez une valeur entre 0 et " & n)
Loop While (v > n) Or (v < 0)
msgbox ("valeur correcte entrée:" & v)
End Sub
Merci pour votre aide !!