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

**laynet** · 08/10/2016, 09h18

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 :

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

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

**unparia** · 08/10/2016, 11h18

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

**laynet** · 08/10/2016, 12h44

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

**unparia** · 08/10/2016, 12h53

Je crois t'avoir répondu plus haut :
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).

**gFZT82** · 08/10/2016, 13h25

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 :

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

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