Discussion :

[guibu]

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 :

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

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 ...

[Quentin77170]

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

[guibu]

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.

[Quentin77170]

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 :

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
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.

[guibu]

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 :

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

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 !

[Quentin77170]

Content que ça ait marché !!

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

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

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
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...

[guibu]

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