Boucle While...Wend

Bonjour,

J'ai la boucle imbriquer suivante :

Sub Exemple5()

Dim i As Integer, j As Integer, s As Integer

s = 0

i = 1

While i <= 3

j = 1

While j <= 3

s = s + i * j

j = j + 1

Wend

i = i + 1

Wend

MsgBox (s)

End Sub

Je sais grâce à VBA, que le résultat est 36 mais je n'arrive pas à retrouver le résultat sans l'aide de l'ordinateur et comprendre l’enchaînement, ci quelqu'un aurait une explication pour comprendre la logique. merci

bonjour

en décomposant :

S = 0

Tant que i et <= 3

Tant que j et <= 3

On à 3*3 = 9 operations

I = 1

Passe 1 S = 0 +( 1 * 1) 1 j = 2

Passe 2 S = 1 +( 1 * 2) 3 j = 3

Passe 3 S = 3 +( 1 * 3) 6 j = 4

I = 2

J repasse à 1

Passe 1 bis S = 6 +( 2 * 1) 8 j = 2

Passe 2 bis S = 8 +( 2 * 2) 12 j = 3

Passe 3 bis S = 12 +( 2 * 3) 18 j = 4

I = 3

J repasse à 1

Passe 1 ter S = 18 +( 3 * 1) 21 j = 2

Passe 2 ter S = 21+( 3 * 2) 27 j = 3

Passe 3 ter S = 27 +( 3 * 3) 36 j = 4

le résultat de la 9 eme opération est bien 36

A plus sur le forum

Merci beaucoup ! c'est plus claire.

Bonsoir,

Utiliser la touche F8 pour pas à pas et survoler les variables pour voir leur valeur.

Boisgontier