Discussion :

[pijaku]

Bonjour,

C'est une question inutile que je pose aujourd'hui.
Désolé

Lors d'une boucle For/Next, on impose des bornes mini et maxi, avec une variable d'itération et éventuellement un Step.
En sortie de boucle, on s'attend à ce que la variable d'itération soit égale à la borne maxi, sauf cas de sortie anticipée.
Il n'en est rien et je voulais juste en connaître la raison.
Est-ce volontairement? Est-ce identique dans d'autres langages de programmation?

Voici ma Sub de test :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
 
Sub test()
Dim I As Integer, out As String
   For I = 1 To 9 Step 2
      out = out & I & ", "
   Next
   out = out & I
   Debug.Print out
   out = ""
   For I = 1 To 9 Step 45
      out = out & I & ", "
   Next
   out = out & I
   Debug.Print out
End Sub

Résultats :
1, 3, 5, 7, 9, 11
1, 46

Merci de vos éclaircissements.

[Menhir]

La variable est incrémentée AVANT d'être testée.
Donc, lorsque l'exécution sort de la boucle, la valeur de la variable est forcément strictement supérieure à la borne supérieure (pour strictement inférieure à la borne inférieure si le Step est négatif).

Par contre, cette variable reste entre les bornes (à moins qu'on la trafique volontairement) pour tout ce qui concerne le code à l'intérieur de la boucle.

Donc, dans ton premier cas, la boucle génère 1, 3, 5, 7, 9,.
Lorsque I passe à 11, l'exécution sort de la boucle et c'est le out = out & I suivant qui ajoute ce 11 à la fin de la chaine.

Les boucles For To fonctionne ainsi depuis les origines du Basic (et de quelques autres langages).

[pijaku]

Bonjour,

La variable est incrémentée AVANT d'être testée.

Merci de ta réponse.

Donc le fonctionnement est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub DemoGoTo()
Dim I As Long, out As String
Debut:
   I = I + 1
   If I > 10 Then
      GoTo Fin
   Else
      'instruction
      GoTo Debut
   End If
Fin:
    Debug.Print I
End Sub

Voilà ce que c'est que de poser une question idiote...

Bonne journée