Ok je comprend maintenant un peu mieux !! masi j ai un autre probleme, a un moment dans le code d excel, la formule utilise ^ et ca me pose une probleme dans mon code vba sous access !!
voila en fait la formule que je veut utiliser (elle provien d excel):
SI((B30+B31+B32)=0;0;(ABS((VPM(B32/12;B31-F30-F31;SI(F31>=12;B30+B30*B32;B30))))+SI(F31<12;B30*(1+B32/12)^F31-B30)/(B31-F31)))
et moi j'ai essayé de le mettre dans vba pour access, et le code a donné ça :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
| calcul1 = Me.Capital_emprunté.Value + Me.Durée_en_mois.Value + Me.Taux_d_intérêt.Value
If calcul1 = 0 Then
resultat = 0
Else
Calcul2 = Me.Taux_d_intérêt.Value / 1200
Calcul3 = Me.Durée_en_mois.Value - Me.Franchise_capital_en_mois.Value - Me.Franchise_totale_en_mois.Value
If Me.Franchise_totale_en_mois.Value >= 12 Then
calcul4 = Me.Capital_emprunté.Value + Me.Capital_emprunté.Value * Me.Taux_d_intérêt.Value
Else
calcul4 = Me.Capital_emprunté.Value
End If
calcul5 = Pmt(Calcul2, Calcul3, -FV(Calcul2, Calcul3, 0, calcul4))
If Me.Franchise_totale_en_mois.Value < 12 Then
calcul6 = Me.Capital_emprunté.Value * (1 + Me.Taux_d_intérêt.Value / 12) ^ (Me.Franchise_totale_en_mois.Value - Me.Capital_emprunté.Value) / (Me.Durée_en_mois.Value - Me.Franchise_totale_en_mois.Value)
Else
calcul6 = 0
End If
resultat = Abs(calcul5) + calcul6
End If |
Partager