[XL-2007] boucle for imbriquée [Résolu]

[erlerwade]

Bonjour Forum je voudrai faire un programme avec deux boucles for qui me calcul
∑1/(1+j)^i et sa pour i de 1 a 3 et j de 1 a 5 j'ai fait le code suivant met pour le résultat sa m'affiche 0. Donc je fait appel à votre génie pour m'éclairer
Merci d'avance et voici mon code:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub calc()
Dim i As Integer, j As Integer, s As Integer
Dim a As Double, b As Double
s = 0
i = 1
j = 1
For i = 1 To 3
For j = 1 To 5
 
a = (1 + j) ^ -i
a = b
s = s + b
Next j
Next i
Range("A1").Value = s
 
 
End Sub

[mercatog]

Bonsoir
peut être

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Calc()
Dim i As Byte, j As Byte
Dim s As Double, t As Double
 
For j = 1 To 5
    s = 0
    For i = 1 To 3
        s = s + (1 + j) ^ -i
    Next i
    t = t + s
Next j
Range("A1").Value = t
End Sub

[erlerwade]

Merci beaucoup Mercatog c'est exactement ce dont j'avais besoin. Juste une question pourquoi mon code ne marchait pas et pourquoi le choix de Byte pour déclarer vos variables sauf la variable t qui est déclarée comme double ?

[mercatog]

Byte parce que ce dont nous avions besoin (i 1 to 5 et j 1 to 3)
Double parce que aussi ce dont nous avions besoin.
Regarde d'abord ce lien sur les variables
Pour ton code, quel logique (ou algorithme as tu utilisé?)
refais les boucles à la main en changeant à chaque fois tes variables d'entée, tu t’aperçois dès lors de ce que fais ton code.

[erlerwade]

Merci Mercatog le lien sur les variables est excellent j'ai refait l'algorithme à la main en changeant les variables je me suis aperçu de mes erreurs.Et ton code m'a beaucoup appri et servi.
Vive le forum!!!!!!!