Bonjour,

je vous explique le problème :
j'ai un taux qui se trouve dans une cellule A1
J'ai une cellule A2 qui contient une formule assez complexe en fonction du taux se trouvant dans A1 (Impossible de modéliser cette fonction dans Excel)
La cellule A3 contient un montant fixe.
La cellule A4 = A3-A2

Le but étant de faire varier le taux dans A1 de telle sorte que l'écart A3-A2 soit proche de zéro.

Mon but c'est de trouver le taux dans A1 optimum.

Une idée ?

j'ai trouvé un code sur internet, j'ai essayé de l'adapter mais en vain

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 Trouver_Taux_Par_Dichotomie()
Dim a As Double, b As Double
Dim RaE, Etalcumul As Double
 
Dim m As Double, epsilon As Double
 
RaE = ThisWorkbook.Worksheets("Cas écheances constantes Q").Range("H3").Value
Etalcumul = ThisWorkbook.Worksheets("Cas écheances constantes Q").Range("N1749").Value
 
epsilon = 0.00001
a = 4
b = 5
Do While (b - a) > epsilon
m = (a + b) / 2
If f(m) = 0 Then Exit Do
If ((f(a) * f(m)) > 0) Then
a = m
Else
b = m
End If
Loop
MsgBox m
End Sub
Le fonction utilisée :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Function f(x As Double) As Double
f = RaE - Etalcumul
End Function
Je vous remercie par avance.

Cordialement,