Partager via

Using For...Next Statements

  • Article

Utiliser pour... Instructions suivantes pour répéter un bloc d’instructions un nombre spécifique de fois. Les boucles For utilisent une variable de compteur dont la valeur est incrémentée ou décrémentée à chaque itération.

La procédure suivante provoque l’émission de 50 bips. L’instruction For spécifie la variable de compteur et ses valeurs de début et de fin. L’instruction Next incrémente la variable de compteur de 1.

Sub Beeps() 
    For x = 1 To 50 
        Beep 
    Next x 
End Sub

À l’aide de lmot clé étape, vous pouvez augmenter ou diminuer la variable de compteur de la valeur que vous spécifiez. Dans l’exemple suivant, la variable j de compteur est incrémentée de 2 à chaque répétition de la boucle. Lorsque la boucle est terminée, total est la somme de 2, 4, 6, 8 et 10.

Sub TwosTotal() 
    For j = 2 To 10 Step 2 
        total = total + j 
    Next j 
    MsgBox "The total is " & total 
End Sub

Pour décrémenter la variable du compteur, utilisez une valeur Step négative. Dans ce cas, vous devez spécifier une valeur de fin inférieure à la valeur de début. Dans l’exemple suivant, la variable myNum de compteur est réduite de 2 à chaque répétition de la boucle. Lorsque la boucle est terminée, total est la somme de 16, 14, 12, 10, 8, 6, 4 et 2.

Sub NewTotal() 
    For myNum = 16 To 2 Step -2 
        total = total + myNum 
    Next myNum 
    MsgBox "The total is " & total 
End Sub

Remarque

Il n’est pas nécessaire d’inclure le nom de la variable du compteur après l’instruction Next. Dans les exemples précédents, ce nom était inclus pour simplifier la lecture de l’exemple.

Vous pouvez quitter un for... Instruction suivante avant que le compteur n’atteigne sa valeur de fin à l’aide de l’instruction Exit For . Par exemple, lorsqu’une erreur se produit, utilisez l’instruction Sortir De dans le bloc d’instructions Vrai d’une instructionSi..Alors...Ou ou d’une instruction Sélectionner une Case contrôlant spécifiquement cette erreur. Si l’erreur ne se produit pas, le si... Alors... L’instruction Else a la valeur False et la boucle continuera à s’exécuter comme prévu.

Voir aussi

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.