Introduire une somme dans une boucle ?

Question

Bonjour à tous, voici un petit bout de mon code de java : 

For j = 2 To Parts
            If WordApp.ActiveDocument.ContentControls(8 * j + 3 * j * (Def + Parts) - WordApp.SUM(j)).Tag = ("SIT1_$Data.Interfaces.Obj1.WithObj2.name") Then
                WordApp.ActiveDocument.ContentControls(8).Tag = ("SIT1_$Data.Interfaces.Obj") & j + (".WithObj") & (j + 1) + (".name")

            End If
        Next j

A la place de WordApp.Sum(j), j'aimerais introduire une fonction qui calcule la somme de tous les "j" utilisés jusqu'à présent. Par exemple, si j = 4 , j'aimerais que la fonction me retourne 4 + 3 + 2 et ainsi de suite ?
Quelqu'un aurait-il une idée ?
Merci d'avance à tous,
Johan

yoshiiiiiiiiiii2 · Answer

de visual basic pardon pas de java ^^

yoshiiiiiiiiiii2 · Answer

Quelqu'un aurait-il la solution svp car c'est vraiment urgent ?!!
Merci bien !  :)

cs_Galain · Answer

La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

GRENIER Alain

debut  = 2
For j = debut To Parts
   somme = 0
   For i = debut to j
      somme = somme + i
   Next i
   If WordApp.ActiveDocument.ContentControls(8 * j + 3 * j * (Def + Parts) - somme =      ("SIT1_$Data.Interfaces.Obj1.WithObj2.name") Then
WordApp.ActiveDocument.ContentControls(8).Tag = ("SIT1_$Data.Interfaces.Obj") & j + (".WithObj") & (j + 1) + (".name")

End If
Next j

cs_Galain · Answer

J'ai oublié une parenthèse

debut  = 2
For j = debut To Parts
   somme = 0
   For i = debut to j
      somme = somme + i
   Next i
   If WordApp.ActiveDocument.ContentControls(8 * j + 3 * j * (Def + Parts) - somme) =      ("SIT1_$Data.Interfaces.Obj1.WithObj2.name") Then
WordApp.ActiveDocument.ContentControls(8).Tag = ("SIT1_$Data.Interfaces.Obj") & j + (".WithObj") & (j + 1) + (".name")

End If
Next j 


La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

GRENIER Alain

us_30 · Answer

"La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi."... et l'expérience, c'est quand on sait pourquoi tout fonctionne sans que personne ne sache comment... 

Amicalement,
Us.

Introduire une somme dans une boucle ?

5 réponses

Votre réponse

Discussions similaires