Discussion :

[kingman29]

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 ?

[hyperion13]

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.

[kingman29]

Bonjour,
J'ai attaché un Fichier Excel

Cordialement

[kingman29]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Raccourcix]

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

[Pierre Fauconnier]

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).