Bonjour,
Je débute en VBA (2 semaines), j'ai créé une sous routine permettant de calculer la VAN :
Je voudrais faire la même chose mais en fonction =VANa(taux_actualisation; investissement; flux1; flux2; flux3; ...)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 Sub VAN() Dim n As Integer, t As Double, I As Double, j As Integer, VAN As Double, flux() As Double n = InputBox("Saisir le nombre de flux") t = InputBox("saisir le taux d'actualisation") I = InputBox("Saisir le montant investi") ReDim flux(n) For j = 1 To n flux(j) = InputBox("saisir le flux " & j) Next VAN = -I For j = 1 To n VAN = VAN + flux(j) / (1 + t) ^ j Next VAN = FormatNumber(VAN, 2) MsgBox ("La VAN est de ") & VAN
Je ne sais pas comment mettre flux1, flux2 ..., Il peut avoir 1 flux comme 10, 20 ou plus
Merci d'avance pour votre aide.
Partager