J'ai un probleme avec For -- To

Bonjour,
J'ai crée un code VBA excel pour cette Formule :

Code:

---

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:

---

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 ?

Bonjour,
Difficile de travailler avec une boule de cristal.
Une capture d'écran de vos données sur la feuille de calculs serait la bienvenue.

Bonjour,
J'ai attaché un Fichier Excel

Cordialement

Code:

---

1 2 3 4 5 6 7 8

Public Function puissance2(Taux_CPrincpal As Double) As Double   On Error Resume Next Dim x As long For x = 0 To 15 puissance2 = puissance2 + Application.Power(Taux_CPrincpal, x) Next x End Function

---

J'ai trouvé cette sollution

Bonjour

je ne vois pas trop l'intérêt de votre formule

15,533% puissance 5 c'est déjà 0,00009 donc non significatif dans votre résultat 118,389%, alors ajouter toutes les puissances jusqu'à la 15e c'est vraiment inutile.

si vous cherchez la valeur d'un taux de x% par période pendant y périodes c'est PUISSANCE(1+x;y) qu'il faut faire

une augmentation de 15% par an pendant 15 ans c'est une PUISSANCE(1,15;15)= 8,13

Stéphane

Salut.

Il est toujours intéressant, lorsqu'on demande de l'aide, d'exprimer, au moins en quelques mots, ce que l'on souhaite réaliser. Sans cela, on ne peut que se borner à "corriger" une formule ou un code alors que c'est probablement la démarche dans son ensemble qui est à revoir.

Il serait donc judicieux d'expliquer ce que tu désires réaliser et d'illustrer les données de départ (une copie d'écran significative de la feuille Excel est souvent intéressante).