Discussion :

[Freudsw]

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,

[halaster08]

Bonjour,

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)

Comment peux-tu avoir une formule en A2 qui soit impossible à modéliser en Excel ?

Sans plus d'information sur cette fonction, c'est difficile de t'aider la dichotomie n'étant pas adaptée à toutes les fonctions.

Sinon Excel dispose d'un solveur, dans la version 2010 il est dans l'onglet Données -> Analyse scénarios -> valeur cible

[Freudsw]

Bonjour,

Merci pour ta réponse.

La formule est un peu compliqué car, elle reprend à chaque fois un résultat d'une autre cellule.

Cependant, avec Solver c'est possible de gérer mon problème.

Merci bcp en tout cas.

Cordialement,