Microsoft 365 Macro Intérêts composés

pat66 · 5 Septembre 2023

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 · 5 Septembre 2023

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

VB:

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.

sylvanu · 5 Septembre 2023

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

VB:

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 · 5 Septembre 2023

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 · 5 Septembre 2023

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 :

VB:

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 à :

Code:

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

pat66 · 5 Septembre 2023

re,

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

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

Code:

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

Microsoft 365 Macro Intérêts composés

pat66

XLDnaute Impliqué

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

pat66

XLDnaute Impliqué

sylvanu

XLDnaute Barbatruc

pat66

XLDnaute Impliqué

Discussions similaires