Calcul de la valeur X avec test en boucle if then goto

Bonjour tout le monde

Je suis vraiment débutant en VBA ...
Mon problème est de trouver une solution à une égalité entre deux termes en changeant la valeur de X

Exemple très très simple : X + 1 = 5 - X

je dois commencer par X= 0 , ensuit je test l'egalité si Vrai Fin et je garde la valeur de X comme solution

Si non je dois ajouter à X la valeur s = 0,001 et je reviens vers le test de l'égalité ainsi de suite .

voici ce que je souhaite comme algorithme

Code:

---

1 2 3 4 5 6 7 8

x = 0 s = 0,001   if X + 1 = 5 - X , then x est la solution and Goto to end   Else X = X+s and Goto to la ligne IF   end

---

Merci d'avance pour votre aide

Bonjour
Etrange manière de faire des mathématiques à tâtons.
Dans ton exemple :
X + 1 = 5 - X -->> 2X = 5-1 -->> X = 4/2 -->> X = 2
Et si tu tiens à résoudre "à tâtons", je ne vois pas non plus la difficulté : incrémenter (ou diminuer) x de ta petite valeur tant que le résultat (la différence entre les 2 membres de ton équation) se rapproche de 0 et cesser lorsqu'il s'en éloigne à nouveau.
Tout cela n'est que du B.A.BA

Merci pour votre réponse, mais la réalité de mon problème est plus compliquée que cette équation très simple que j'ai donnée comme exemple

Pour résumer, je souhaite avoir ( si c'est possible) le code VBA qui permit de donner la solution par talonnement à ce genre de problème .....

ou de m'orienter vers un site pour plus de lecture en matière de vba

Merci d'avance et bonne journée

Je crois t'avoir répondu plus haut :
Citation :

Citation:

---

Et si tu tiens à résoudre "à tâtons", je ne vois pas non plus la difficulté : incrémenter (ou diminuer) x de ta petite valeur tant que le résultat (la différence entre les 2 membres de ton équation) se rapproche de 0 et cesser lorsqu'il s'en éloigne à nouveau.
Tout cela n'est que du B.A.BA

---

Qu'essayes-tu sur cette base élémentaire ? (Montre).

Bonjour,

Je te déconseille ce type de détermination du fait du problème posé par le calcul des nombres à virgule flottante.

Pour t'en convaincre, tu peux faire ce test et regarder le résultat dans la fenêtre exécution :

Code:

---

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

Sub Test() Dim X_mini As Double, X_maxi As Double, X As Double Dim s As Double X_mini = 0 X_maxi = 10 s = 0.1 For X = X_mini To X_maxi Step s Debug.Print X, X + 1, 5 - X, X + 1 - 5 + X If (X + 1) = (5 - X) Then MsgBox X & " est une solution" Exit Sub End If Next X MsgBox "Pas de solution" End Sub

---

Voici un lien pour les explications :
https://support.microsoft.com/fr-fr/kb/78113

Cordialement.

C'est exactement ma problématique
Donc je suis convaincu maintenant
Enfin mille mercis
Bon week-end

Bonjour,

tu as aussi le solveur pour résoudre ce type de problème, sans vba.
eric