Microsoft 365 Macro Intérêts composés

[pat66]

Bonjour le forum,

est il possible de réaliser la formule ci dessous avec une macro s'il vous plait ?

ma formule est =VC(H73/12;G73*12;I$71*-1;0;0)

H73 = Taux annuel = 2% /12
G73 = Nbre de paiements mensuels 60 (5 ans x 12)
Va = 0
VPM = -384 (mensualités)
Type = 0
Résultat = VC = 24210


merci beaucoup

 

[sylvanu]

Bonjour Pat,
Un petit fichier aurait été le bienvenu.
Alors au pif, cela pourrait donner :

Sub VC_()
    [B75] = Application.FV([H73] / 12, [G73] * 12, -1 * [I71], 0, 0)
End Sub

Au moins, si c'est faux, vous pouvez l'adapter.

 

[pat66]

Bonjour Sylvanu,

"Votre pif a du nez" si je puis dire parce que c'est exactement ce qu'il me fallait !!!
un grand merci à vous pour votre aide et votre réactivité

pat

 

[sylvanu]

Re,
petit tuyau :
1- Dans une feuille vierge, vos lancez Affichage/Macros/Enregistrer une macro ...
2- Dans une cellule, vous tapez : =VC(H73/12;G73*12;I$71*-1;0;0)
3- Dans la même option vous "Arrêter l'enregistrement"
4- Vous allez dans l'éditeur VBA et vous regardez Macro1 :

Sub Macro1()
'
' Macro1 Macro
'
    Range("D11").Select
    ActiveCell.FormulaR1C1 = "=FV(R[62]C[4]/12,R[62]C[3]*12,R71C[5]*-1,0,0)"
    Range("D12").Select
End Sub

et vous avez la syntaxe. FV n'étant pas une fonction VBA mais XL, vous modifier par Application.FV, et quelques bricoles en modifiant les références L1C1 en références A1, pour arriver à :

[B75] = Application.FV([H73] / 12, [G73] * 12, -1 * [I71], 0, 0)

 

[pat66]

re,

voila ce que cela donne, c'est énorme !!!

un grand merci encore pour ce tuyau Sylvanu, votre générosité vous honore

Sub Macro3()
' Macro3 Macro
    Range("H12").Select
    ActiveCell.FormulaR1C1 = "=FV(R[61]C/12,R[61]C[-1]*12,R71C[1]*-1,0,0)"
    Range("H13").Select
End Sub

pat66