Il est de bon ton de se souhaiter la bonne année. Mais vous, et vous seul, pourrez faire en sorte que cette année soit bonne, meilleure que celle qui vient de s'écouler. Apprenez à ne compter que sur vous, car personne n'est plus qualifié que vous-même pour bâtir, réparer ou améliorer votre propre vie. Personne ne fera les choses à votre place. D'ailleurs, tout ce que les autres peuvent faire, c'est souhaiter que vous le fassiez. Et ne croyez pas que tout ceux qui vous entourent vous apporteront des solutions : certains font juste partie de vos problèmes. Transformez vos résolutions en actes, et dans douze mois, retournez-vous et souriez-vous fièrement : C'était long. C'était difficile. Mais ça y est : 2017 était une bonne année, merci Moi.

VB : Structures de programmation globale

For - Step - To - Next

For C1 = 10 To 1 Step -1
    For C2 = 0 To 9
        C3 = C2 + C1
        If C3 > 50 Then
           Exit For
        End If
    Next C2
    C4 = C4 + 1
Next C1

Utilisation du Select Case

Nb1 = 5000
Nb2 = 99
Select Case Nb1
Case 0
Select Case Nb2
Case 0
Resultat = "Nb1 = 0 ET Nb2 = 0"
Case Else
Resultat = "Nb1 = 0 ET Nb2 <> 0"
Nb2 = 0
End Select
Case 1 To 5
Resultat = "Nb1 entre 1 et 5"
Case 6, 7, 8, 9, 10
Resultat = "Nb1 entre 6 et 10"
Case 11 To 20, 90 To 100
Resultat = "Soit Nb1 entre 11 et 20, soit Nb1 entre 90 et 100"
Case Is > 100
Resultat = "Nb1 > 100"
Case Else
Resultat = "Nb1 soit : <0 , 21..89"
End Select
MsgBox Resultat

Do - While - Until - Loop

While

La boucle ne se produira peut-être pas

X = 0
While X <= 20
X = X + 1
Wend

La boucle ne se produira peut-être pas

Spinner = 0
Do While Spinner <= 20
Spinner = Spinner + 1
Loop

La boucle se produit en tout cas une fois

Spinner = 0
Do
Spinner = Spinner + 1
Loop While Spinner <= 20

Until

La boucle ne se produira peut-être pas

Spinner = 0
Do Until Spinner = 20
Spinner = Spinner + 1
Loop

La boucle se produit en tout cas une fois

Spinner = 0
Do
Spinner = Spinner + 1
Loop Until Spinner = 20

Sortir prématurément d'une boucle

Spinner = 0
Do While Spinner < 20
Spinner = Spinner + 1
If Spinner = 10 Then
Exit Do
End If
Loop

Boucles imbriquées

Spinner = 0
Do
Do While Spinner < 20
Spinner = Spinner + 1
Loop
Loop Until Vérifier = False