Bonjour,
J'ai crée un code VBA excel pour cette Formule :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
(PUISSANCE($B$3;0)+PUISSANCE($B$3;1)+PUISSANCE($B$3;2)+PUISSANCE($B$3;3)+PUISSANCE($B$3;4)+PUISSANCE($B$3;5)+PUISSANCE($B$3;6)+PUISSANCE($B$3;7)+PUISSANCE($B$3;8)+PUISSANCE($B$3;9)+PUISSANCE($B$3;10)+PUISSANCE($B$3;11)+PUISSANCE($B$3;12)+PUISSANCE($B$3;13)+PUISSANCE($B$3;14)+PUISSANCE($B$3;15))
Et le code Vba est comme suit :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Option Explicit
Public Function puissance2(Taux_CPrincpal As Double) As Double
On Error Resume Next
Dim x As Double
     puissance2 = Taux_CPrincpal
       For x = 1 To 15
     puissance2 = Application.Power(Taux_CPrincpal, 0) + Application.Power(Taux_CPrincpal, x)
    Next x
End Function
la formule d'Excel me donne les résultats 118,389% avec B3= 15,533%
Mais quand j'utilise VBA Code le résultat = 100,000%

c'est a dire
le Code VBA ne calcul pas Application.Power(Taux_CPrincpal, x)
parce que la puissance de 15.533 par 0 = 100%

ya t-il une sollution ?