Calcul du Délai de Récupération Actualisé sur VBA

[coralie21]

Bonjour tout le monde,

je suis débutante sur VBA et doit rendre un travail pour la fac.

En effet je dois calculer le Délai de Récupération Actualisé.

J'ai essayé de faire quelque chose, mais ca ne fonctionne pas. Je ne sais même pas si je suis sur la bonne piste. Mais je suis persuadé qu'il y a beaucoup plus simple pour faire ce calcul :

Function DRA()
Dim Invest As Integer
Dim Flux As Integer
Dim Taux As Double
Dim NbEcheance As Integer
Application.Volatile
NbEcheance = Flux.Rows.Count
X = -Investissement
For I = 1 To NbEcheance
X = X + (Flux.Cells(I, 1) / ((1 + Taux) ^ I))
Select Case X
Case Is > 0
DRA_EK = I - 1 & " ans et"
Exit Function
Case 0
DRA_EK = I & " ans"
Exit Function
Case Else
DRA_EK = "Pas de valeur trouvée >=0"
End Select
Next I
End Function


Merci de m'aider