Hello
First I want to thank @JackDanIce for gave me an excellent solution
Second I marge his function (his solution) into my function.
So
When I tried to calculate The "Percentage_CP" must be this value =
Witch mean the Result in Cell "E6" will = 588 404.74630183
But it show me this =
So this this Result = 587 666.149010485 is Fault not true
so How to fix it ? please
thank you veryMatch
*************************************
****************************
The function in the Module is
First I want to thank @JackDanIce for gave me an excellent solution
Second I marge his function (his solution) into my function.
So
When I tried to calculate The "Percentage_CP" must be this value =
0.001256831 |
But it show me this =
0.001255254 |
so How to fix it ? please
thank you veryMatch
*************************************
boutton.xlsm | |||||||
---|---|---|---|---|---|---|---|
A | B | C | D | E | |||
1 | Cost1 | -411 269 098.48 | |||||
2 | Pourcentage | 0.14% | |||||
3 | |||||||
4 | Devesement Pourcentage | 0.13% | |||||
5 | |||||||
6 | Deversement | 587 666.15 | |||||
Feuil1 |
Cell Formulas | ||
---|---|---|
Range | Formula | |
E6 | E6 | =deversement(B1,B2,B4) |
****************************
The function in the Module is
VBA Code:
Public Function deversement(Charge_Centre_Principal, Centre1 As String, Percentage_CP As Double) As Double
Dim y As Double
For y = 2 To 40
deversement = (-Charge_Centre_Principal * Centre1) * (1 + TauxCP + Application.Power(TauxCP, y))
Next y
End Function