Les boucles permettent de répéter un bloc d'instruction autant de fois qu'on l'a indiqué à la boucle. Elles sont très utilisées pour faire des calculs itératifs (Méthode d'Euler) ou pour lister le contenu d'un tableau. Il en existe quatre types majeurs : celles avec "For - Next", celles avec "Do - Loop", celles avec "While - End While" et celles avec "For Each - Next"

Structure générale :

For Variable = Debut To Fin ‘Execute la boucle Next Variable

• For : Mot-clé permettant d’ouvrir la boucle.
• To : Mot-clé signifiant Jusqu’à.
• Next : Mot-clé pour fermer la boucle.
• Variable : Variable qui va servir de compteur pour la boucle.
• Debut : Début du compteur.
• Fin : Fin du compteur.

‘Exemple de boucle Dim i As Integer For i = 3 To 10 ‘Exécute la boucle pour i variant de 3 à 10 Next i

La variable i va s’incrémenter automatiquement de 1 à la fin de chaque boucle.

On peut aussi définir un pas, le compteur s’incrémente de la valeur du pas à chaque boucle :

‘Exemple de boucle Dim i As Integer For i = 3 To 10 Step 2 MsgBox(i.ToString) ‘affiche 3 puis 5 puis 7 et enfin 9 Next i

NB : On peut aussi utiliser un pas négatif mais cela est plus compliqué.

La variable de la boucle peut être déclarée en même temps que la boucle. De plus, la variable après le Next est facultative.

‘Exemple For Test As Integer = 0 To 43 ‘boucle de 0 à 43 Next

Dernière chose, on peut quitter la boucle prématurément :

‘Exemple de sortie de boucle For Test As Integer = 0 To 43 If Test = 3 then Exit For ‘Quand Test sera égale à 3, on sort… Next

Structure générale :

Do ‘Instructions Loop Until Condition Do ‘Instructions Loop While Condition

• Do : Mot-clé qui ouvre la boucle.
• Loop : Mot-clé qui ferme la boucle.
• While : Mot-clé qui signifie Tant que.
• Until : Mot-clé qui signifie Jusqu’à ce que.
• Condition : La condition pour rester dans un Loop While ou pour sortir d'un Loop Until.

Attention : Il faut préciser après le Loop une condition précédée de While ou Until. Dans le cas contraire, la boucle est sans fin !

‘Exemple avec Until Dim i As Integer = 0 Do i = i + 1 ‘incrémente i de 1 MsgBox(i.ToString) ‘affiche la valeur de i Loop Until i = 10 ‘Quand i = 10 on sort de la boucle. ‘Exemple avec While Dim Fichier As String Do ‘Liste les fichiers d’un répertoire Loop While Fichier <> "NomDeMonFichier" ‘Tant que Fichier n’est pas égal à NomDeMonFichier alors on boucle sinon on sort.

Structure générale :

While Condition ‘Execute la boucle End While

• While : Mot-clé permettant d’ouvrir la boucle.
• End While : Mot-clé qui ferme la boucle.
• Condition : La condition pour rester dans la boucle.

‘Exemple : Dim Compteur As Integer = 0 While Compteur < 20 ‘ Dès que Compteur = 20, on sort de la boucle. Compteur = Compteur + 1 ‘incrémente le compteur de 1 Msgbox(Compteur.ToString) ‘affiche le compteur End While

Structure générale :

For Each Item In Collection ‘boucle Next Item

• For : Mot-clé pour ouvrir la boucle.
• Each : Mot-clé signifiant Chaque.
• In : Mot-clé signifiant Dans.
• Next : Mot-clé pour fermer la boucle.
• Item : Objet à récupérer dans la collection.
• Collection : Tableau qui contient des Objets.

‘Exemple Dim Var_Item As String For Each Item As Object In MonTableau Var_Item = Var_Item + Item ‘Var_Item va contenir tous les éléments du tableau en admettant que le tableau soit déjà remplit. Next Item ‘Autre exemple Dim Chaine As String = “Toto va bien” Dim Caractere As String For Each Caractere In Chaine Msgbox(Caractere.ToString) ‘affiche chaque caractère de Chaine Next

La structure For Each – Next est donc très utile pour tester une chaîne de caractère.

<< Les conditions

Retour au sommaire

Les opérateurs >>