Bonjour,
Je souhaiterais créer une macro qui calcule un temps de retour actualisé en fonction d'un taux d'actualisation, d'un taux d'augmentation de l'énergie, d'un investissement et d'une économie initiale.
J'ai essayé de créer la macro mais j'aurai besoin d'aide sur la syntaxe pour :
-que la macro prenne en entrée des valeurs contenue dans des cellules fixes (tx d'actualisation, et d'augmentation de l'énergie), et relatives (investissement, et économie initiale)
-que le résultat soit écrit dans la cellule qui déclenche la macro
-que la macro se déclenche en C2, C4, etc.
Voici le schéma de macro que j'ai fait, je joins aussi le fichier xlsm
Je souhaiterais créer une macro qui calcule un temps de retour actualisé en fonction d'un taux d'actualisation, d'un taux d'augmentation de l'énergie, d'un investissement et d'une économie initiale.
J'ai essayé de créer la macro mais j'aurai besoin d'aide sur la syntaxe pour :
-que la macro prenne en entrée des valeurs contenue dans des cellules fixes (tx d'actualisation, et d'augmentation de l'énergie), et relatives (investissement, et économie initiale)
-que le résultat soit écrit dans la cellule qui déclenche la macro
-que la macro se déclenche en C2, C4, etc.
Voici le schéma de macro que j'ai fait, je joins aussi le fichier xlsm
Code:
Sub TempsDeRetour(TxAct, TxEnr, Invest, EcoInit)
Dim E(1000) As Double
Dim van As Double
Dim cumul As Double
Dim i as integer
van = -1
E(0) = EcoInit
cumul=0
While van < 0
For i = 1 To 1000
E(i) = E(i - 1) * (1 + TxEnr) / (1 + txAct)
cumul = cumul + E(i)
van = cumul - Invest
Next i
Wend
ActiveCell.Value = i
End Sub
Pièces jointes
Dernière édition: