Discussion :

[Mils9519]

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

[ARTURO83]

Bonjour,

Si j'ai bien compris

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
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)))
            Som = Som + p
        Next j
    Next i
    VANs = Som
End Function

Cdlt

[Theze]

Bonjour,

En typant de façon claire :

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
 
Function VANs(r As Variant, cash As Variant, temps As Variant) As Double
 
    Dim i As Integer, j As Integer, n As Integer, m As Integer
 
    n = Application.Count(cash)
    m = Application.Count(temps)
 
    For i = 1 To n: For j = 1 To m
 
        VANs = VANs + cash(i) * ((1 + r) ^ (-temps(j)))
 
    Next j, i
 
End Function

[Mils9519]

Merci Arturo83 et These pour vos réactions.

J'avais déjà essayé ce que vous avez proposé mais ça ne me donne pas le résultat que j'aimerais avoir.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function VANs(r As Variant, cash As Variant, temps As Variant) As Double
 
    Dim i As Integer, j As Integer, n As Integer, m As Integer
 
    n = Application.Count(cash)
    m = Application.Count(temps)
 
    For i = 1 To n: For j = 1 To m
 
        VANs = VANs + cash(i) * ((1 + r) ^ (-temps(j)))
 
    Next j, i
 
End Function

Je n'ai peut-être pas été assez clair dans ma question:
En gros je veux que ma fonction VANs fasse une somme de chaque p

Exemple:
si je fais cells(7,2)=VANs(r, Range("A1:E1"),Range("A2:E2")), j'aimerais que VANs fasse=A1*r^-A2+B1*r^-B2 etc jusqu'aux dernières cellules de la sélection.

Je ne sais pas si c'est plus claire comme ça

Cdlt

[ARTURO83]

Ceci alors?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
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)))
            Som = Som + p
        Next j
        Tot = Tot + Som
    Next i
    VANs = Tot

[Mils9519]

@Arturo83, j'ai essayé votre code mais ça ne me donne pas la bonne valeur.

J'aimerais que la fonction VANs me fasse une somme des différentes actualisations. L'argument "cash" prend la valeur des flux généré par un investissement et l'argument "temps" prend la valeur de la période à laquelle le flux est généré et enfin l'argument "r" prend la valeur du taux d'actualisation.

La formule d'actualisation d'un montant C= C*(1+r)^(-temps).

Si je prend un exemple d'une investissement de 1000€ en début de période 1 dans un projet qui générera des flux pendant 4 ans à un taux d'actualisation de 2% on va dire, j'aurais ça:
temps 0=cash -1000
temps 1=cash 500
temps 2=cash 600
temps 3=cash 200
temps 4=cash 100

en temps 0, j'ai un cash de -1000 puisque c'est l'argent que j'ai décaissé pour investir dans le projet en début de période 1 et les 500 en période 1, c'est le cash que génère le projet en fin de période 1.

J'aimerais donc avoir une fonction VANs qui va me permettre d'actualiser tout ce flux de tréso et ramener tout au temps 0:
VANs=(-1000*(1+2%)^(-0))+(500*(1+2%)^(-1))+...+(100*(1+2%)^(-4))

Voilà un peu ce que j'aimerais que ma fonction fasse. Je ne sais pas si c'est possible

Merci encore pour vos réactions, en espérant trouver une solution