Présentation du problème

Si le programme doit exécuter un bloc d’instructions en nombre prédéfini on utilise la boucle For ... To ... Next.

Exemple :

For i = 1 To 49

TabLoto(i) = i ‘chaque case contient son numéro

Next i

Si le nombre de passages dans la boucle est inconnu au départ, mais dépend d’une condition dont la réalisation est imprévisible cette structure n’est pas adaptée.

Exemple 1 :

Demander le mot de passe tant que la réponse n’est pas le bon mot de passe.

Demander le mot de passe jusqu’à ce que la réponse soit le bon mot de passe.

Exemple 2 :

Demander la saisie d’une note tant que la réponse n’est pas un nombre entre 0 et 20.

Demander la saisie d’une note jusqu’à ce que la réponse soit un nombre entre 0 et 20.

  Boucle tant que

Syntaxe première version :

Do While Condition

Instructions

[... Exit Do]

[Instructions]

Loop

La condition est ici testée au début c’est à dire à l’entrée de la boucle.

Avec While (tant que) la boucle est répétée tant que la condition est vraie.

Si la condition n’est pas vraie au départ les instructions de la boucle ne sont pas exécutées.

Exemple :

Do While MotProposé <> MotDePasse

MotProposé = InputBox("Donnez votre mot de passe")

Loop

Cela présuppose MotProposé initialisé par une valeur autre que MotDePasse

(par exemple la valeur par défaut "").

Syntaxe deuxième version :

Do

Instructions

[... Exit Do]

[Instructions]

Loop While Condition

La condition est alors testée à la fin de la boucle.

Avec While (tant que) la boucle est répétée tant que la condition est vraie.

Les instructions de la boucle sont donc exécutées au moins une fois.

Exemple :

Do

MotProposé = InputBox("Donnez votre mot de passe")

Loop While MotProposé <> MotDePasse

Cet exemple ne présuppose aucune initialisation de MotProposé.

  Boucle jusqu’à ce que

Syntaxe première version :

Do Until Condition

Instructions

[... Exit Do]

[Instructions]

Loop

La condition est ici testée au début c’est à dire à l’entrée de la boucle.

Avec Until (jusqu’à) la boucle est répétée jusqu’à ce que la condition soit vraie.

Si la condition est vraie au départ les instructions de la boucle ne sont pas exécutées.

Exemple :

Do Until MotProposé = MotDePasse

MotProposé = InputBox("Donnez votre mot de passe")

Loop

Cela présuppose MotProposé initialisé par une valeur autre que MotDePasse

(par exemple la valeur par défaut "").

Syntaxe deuxième version :

Do

Instructions

[... Exit Do]

[Instructions]

Loop Until Condition

La condition est alors testée à la fin de la boucle.

Les instructions de la boucle sont donc exécutées au moins une fois.

Avec Until (jusqu’à) la boucle est répétée jusqu’à ce que la condition soit vraie.

Exemple :

Do

MotProposé = InputBox("Donnez votre mot de passe")

Loop Until MotProposé = MotDePasse

Cet exemple ne présuppose aucune initialisation de MotProposé.

  Boucle For ... Each ... Next

C’est une extension de la boucle For ... To ... Next.

Syntaxe :

For Each Elément In Ensemble

Instructions

[ ... Exit For]

[Instructions]

Next [Elément]

Ensemble est le plus souvent un tableau.

Exemple :

Dim TabHasard(100) As Integer

Dim Cellule As Integer

Dim Réponse As String

Randomize

For Each Cellule In TabHasard

Cellule = Rnd * 100 + 1

Next

For Each Cellule In TabHasard

Réponse = Réponse & Cellule & " "

Next

MsgBox (Réponse)