Calcul de somme à pas variable

Bonjour à tous,

Je débute sur Excel, et je souhaiterai réaliser un petit calcul à l'aide d'une macro.
En gros, je souhaite résoudre l'équation suivante :
x₁+x₂+x₃+x₄ +... x_n = 5.
Le nombre de terme "n" sera déterminé par moi, mais le pas "x" est ce que je demande à Excel de trouver.
Jusqu'à maintenant, j'ai écris ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub bouboucle() x = 0.01 pas = 0.001 Do x = x + pas Cells(2, 1) = x Cells(2, 2) = x + 2 * x + 3 * x Loop While Round(x + 2 * x + 3 * x, 2) <> 5 And x < 10 MsgBox x End Sub

---

Bien évidemment, j'aimerai changer mon Round(x + 2 * x + 3 * x, 2) par x₁+x_₂+x_₃+x_₄ +... x__n, tout en ayant la possibilité de déterminer le "n" au préalable.

Un grand merci d'avance à vous tous si quelqu'un a une piste. J'ai essayé avec "For" mais rien de bien concluant ...

Salut à toi,

Je suis désolé, je ne comprends pas bien l'histoire du :
Round(x + 2 * x + 3 * x, 2) <> 5
devant devenir :
x₁+x₂+x₃+x₄ +... x_n = 5.

Tu veux dire x + 2x + 3x + ... + nx = 5 ??

Quentin

Pardon si ce n'est pas clair.

En fait, la finalité serait d'avoir Round (x*1+x*2+x*3+x*4 +... x*n,2) à la place Round (x + 2 * x + 3 * x, 2), tout en ayant la possibilité de choisir la valeur de n.

Et je me rends compte que mon premier poste racontait mal l'histoire ... vraiment désolé.

PS : je tiens à l'arrondis.

Ce calcul x+2x+3x+...+nx = y peut être écrit x*(1+2+3+4+...+n) = y donc x = y/(1+2+3+4+...+n)

Pour calculer ça, si tu as le nombre n et y :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub Test()   Dim X As Single Dim y As Single Dim n As Integer Dim SommeN As Long   n = 3 y = 5   For i = 1 To n SommeN = SommeN + i Next i   X = y / SommeN MsgBox X End Sub

---

Chez moi j'obtiens la même chose que toi... tu obtiens en cellules A2 :) J'imagine que je suis pas loin, lol.

Alors effectivement, ça marche.

Mais en fait, ce que je souhaite réussir à faire, c'est résoudre ça :
x^1+x^2+x^3+...+x^n = N
Avec le n que je fixe, et le x qui s'incrémente.

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub bouboucle() x = 0.01 pas = 0.001 Do x = x + pas Cells(2, 1) = x Cells(2, 2) = x + 2 * x + 3 * x Loop While Round(x^1+x^2+x^3+...+x^n, 2) <> 5 And x < 10 MsgBox x End Sub

---

C'est un peu différent de ce que je demandais au départ, mais je pensais pas qu'on me conseillerait de résoudre ce que je demandais avec une factorisation (très bonne remarque au passage). My bad !

Content que ça ait marché !! :)

Ci-dessous, la même chose sans factorisation... :D

EDIT : J'AVAIS DECLARE LA SOMME EN LONG, PASSE-LA EN SINGLE/DOUBLE ^^'

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub Test()   Dim X As Single Dim y As Single Dim n As Integer Dim Somme As Single   n = 3 y = 5   X = 0.01 Pas = 0.001   Do X = X + Pas 'on incrémente par le pas en question Somme = 0 'on réinitialise la somme For i = 1 To n 'on commence le calcul x+2x+3x+...+nx Somme = Somme + X * i Next i Loop Until Somme >= y 'on boucle jusqu'à ce que la valeur calculée soit supérieure ou égale à y   MsgBox X End Sub

---

PS : Pense à mettre les balises de code [ CODE] [ /CODE] (sans espace) pour afficher ton code mis en forme :p Sinon tu utilises le bouton "#" dans la barre d'outils...

Ça marche !
Un grand merci à toi Quentin 77170 !!