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