Hello,

Je ne sais pas si c'est possible mais j'aimerais faire une somme des valeurs de ma boucle. La fonction est en dessous et j'aimerais avoir ma VANs=somme de chaque p(je ne sais pas si c'est possible de stocker chaque valeur de la boucle pour pouvoir faire une somme).

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
17
18
19
Function VANs(r As Variant, cash As Variant, temps As Variant)
 
Dim i, j, n, m As Integer
Dim p As Double
 
n = Application.Count(cash)
m = Application.Count(temps)
 
For i = 1 To n
  For j = 1 To m
 
  p = cash(i) * ((1 + r) ^ (-temps(j)))
 
  Next j
Next i
 
VANs = ????????
 
End Function
Merci d'avance
Je serai vraiment reconnaissant pour votre aide
Ps: Je suis un novice sur VBA lol