Boucle For...Next
La boucle For...Next est utilisée lorsque l’on connaît à l’avance le nombre de fois où l’on veut que les instructions soient répétées.
Syntaxe :
For compteur = nbdébut To nbfin [Step nbpas]
Next compteur
Les instructions de la boucle For...Next sont exécutées un nombre déterminé de fois. Lorsque l’option Step n’est pas renseignée, le compteur est incrémenté de 1 à chaque itération et les instructions sont exécutées nbdébut - nbfin fois.
Exemple :
La procédure suivante calcule la somme des n premiers entiers :
Sub SommeEntiers()
n = InputBox("Donner un entier :", "Saisie entier")
For compteur = 1 To n
somme = somme + compteur
Next compteur
Call MsgBox("Somme des " & n & " premiers entiers : " & somme)
End Sub
Modifié le: lundi 14 novembre 2016, 18:40