Problemes avec les boucles en vba

[invitec4b45645]

Bonjour,

Je dois résoudre un exercice en VBA, je vous remercie de m'aider.

Ecrire un programme qui demande la saisie d'une valeur. La saisie sera repé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'éxécutions de la boucle qui sera affichée à 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 à 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
-----

[azad]

Salut
Ce que tu nous donne là c'est simplement la saisie de la valeur n qui est la borne supérieure de l'intervalle [0,n]. Si tu entres une valeur incorrecte la fenêtre de saisie s'affiche. Mais après ?
Si le but est simplement de compter le nombre de saisies incorrectes, alors il faut une autre variable et cette nouvelle variable tu l'incrémentes et tu l'affiche à chaque fois que tu reviens dans la boucle. Ha cette variable doit-être globale, ne pas l'initialiser quand on entre dans ta routine.