Discussion :

[yop66]

Salut tt le monde!!
Je débute en VBA et je dois faire le calcul de la valeur actualisée nette (fonction VAN excel) à partir d'un tableau de flux de trésorerie. Le problème c'est que la période est défini au départ par l'utilisateur et donc est aléatoire. Il me faudrait donc faire une boucle pour réussir cependant je n'y arrive pas du tout. Si quelqu'un a une piste ce serait super sympa de sa part!!!

[fring]

Bonjour &

Peux-tu donner un peu plus de précisions ?
La période est définie comment ?
La boucle doit boucler en fonction de la période mais sur quelle plage de cellules ?

Si tu avais un exemple concret sous la main, cela faciliterait la compréhension des choses

[yop66]

En fait j'ai tout d"abord effectué cela:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub VAN()
Dim periode As Integer
Dim taux As Double
Dim flux As Currency
Dim investissement As Currency
 
periode = InputBox("Quel est le nombre de périodes?", "saisie du nombre")
Range("b5").Value = periode
taux = InputBox("Quel est le taux d'actualisation?", "saisie du taux")
If taux > 1 Then taux = taux / 100
Range("b6").Value = taux
investissement = InputBox("Quel est le montant de l'investissement?", "saisie du montant")
Range("b4").Value = investissement

Ensuite je voulais que le periode inscrite s'affiche dans ma colonne periode soit chez moi la colonne D. Par exemple si il met met 10 b1 sa commence en D5 et sa met 0,1....11 pour avoir 10 périodes de flux et en 0 je voulais mettre l'investissement.
Et après je voulais utiliser la fonction VAN sur les flux inscrits précédemment dans le tableau.
J'espère que quelqu'un pourra m'aider ce serait super sympa!!!!

[Pierre Fauconnier]

Bonjour

Personnellement, je n'ai rien compris...

Peux-tu expliquer, en français, sans code, ce que tu souhaites obtenir et la situation initiale de ton classeur?

[yop66]

Voilà en fait je souhaite, à partir d'un tableau de flux de trésorerie que l'utilisateur définira, calculer la VAN et le TIR.
Et je dois faire cela en VBA et vu que je suis novice je galère un peu.

[fring]

Ensuite je voulais que le periode inscrite s'affiche dans ma colonne periode soit chez moi la colonne D

Pourtant d'après ton code la période va s'inscrire en B5 ??

Par exemple si il met met 10 b1 sa commence en D5 et sa met 0,1....11 pour avoir 10 périodes de flux

là je comprend pas, l'utilisateur indique 10 et ça inscrit de 0 à 11 ce qui fait 12 ?? Ca inscrit de 0 à 11 où ? En D5, D6, D7, D8....D16 ?

et en 0 je voulais mettre l'investissement.

Là je capte pas non plus, tu inscris 0 en D5 apparement et l'investissement tu l'inscris où ?

Et après je voulais utiliser la fonction VAN sur les flux inscrits précédemment dans le tableau.

Ca on verra plus tard, essayons d'abord de dénouer les points précédents

J'espère que quelqu'un pourra m'aider ce serait super sympa!!!!

On essaye...on essaye

[yop66]

Bon voila je m'explique:
je voudrais que lorsque l'utilisateur ouvre le fichier alors il a une box qui s'affiche comme je vous ai mis le code précédemment. A ce moment là il rempli les champs demandés. Ce qu'il tape s'inscrit dans un tableau annexe au tableau de flux de trésorerie final. A ce moment là j'aimerais que ce qui a été inscrit dans ce tableau annexe se transcrive dans le tableau de flux de trésorerie: tout d'abord les périodes (pour faire plus simple on commencera par 1, en fait je souhaitais commencer par 0 car l'investissement se fait en fin de période 0 de même que chaque flux de trésorerie) ensuite l'utilisateur remplira lui meme les flux de trésorerie en face de la période correspondante.
Et enfin utiliser les fonctions VAN et TIR de excel suivant les flux de trésorerie inscrits dans le tableau.

J'espère avoir été plus clair.

[fring]

A ce moment là j'aimerais que ce qui a été inscrit dans ce tableau annexe se transcrive dans le tableau de flux de trésorerie

Je vais te décevoir...hier comme il faisait super beau, j'ai décidé me mettre ma boule de cristal sur mon balcon pour lui faire prendre l'air et là...un malheureux coup de vent l'a fait rouler et elle s'est écrasée 2 étages plus bas

Donc si tu en as une, même une vieille d'occasion, à me refiler cela m'aidera à deviner où et comment les données doivent se transcrire...!

[yop66]

Je suis vraiment débutant et ca se trouve cela n'est pas possible comme je souhaite le faire.
Je vais tout vous détailler alors:
- Concernant le petit tableau annexe:
- en A4 : il y a l'intitulé "Investissement"
en B4 : il y a la valeur rentrée lors de l'inputbox pour investissement
- en A5 : il y a l'intitulé "Période"
en B5 : il y a la valeur rentrée lors de l'inputbox pour periode
- en A6 : il y a l'intitulé "Taux d'actualisation"
en B6 : il y a la valeur rentrée lors de l'inputbox pour taux
d'actualisation
- Concernant le tableau de flux de trésorerie:
- colonne D (début du tableau : D4 cette cellule possède l'intitulé
"Période"). La colonne entière est dédiée à la période soit 1,2,3,4....
- colonne E (début du tableau : E4 possèdant l'intitulé flux nets de
trésorerie). La colonne est dédiée aux flux nets de trésorerie en
adéquation avec les périodes.
- Et je souhaitais faire apparaitre la VAN (intitulé ds A10) et le TIR (intitulé dans A11) une fois calculé dans les cellules B10 et B11.

La j'ai tout détaillé jpeu pa fair mieu!!!lol

[fring]

Merci pour la boule de cristal, là je vois plus clair

Le code devrait ressembler à ceci

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
20
21
Sub VAN()
Dim periode As Integer, i As Integer
Dim taux As Double
Dim flux As Currency
Dim investissement As Currency
 
periode = InputBox("Quel est le nombre de périodes?", "saisie du nombre")
Range("B5").Value = periode
taux = InputBox("Quel est le taux d'actualisation?", "saisie du taux")
If taux > 1 Then taux = taux / 100
Range("B6").Value = taux
investissement = InputBox("Quel est le montant de l'investissement?", "saisie du montant")
Range("B4").Value = investissement
 
For i = 0 To periode
Cells(5 + i, 4) = i
Next
 
Range("B10").FormulaLocal = "=VAN(??;??;??)"
Range("B11").FormulaLocal = "=TIR(??;??;??)"
End Sub

Concernant les fonctions VAN et TIR je ne sais pas comment elles s'utilisent, si tu peux me donner un exemple de l'utilisation de ces fonctions dans Excel, je te les traduirai en VBA.
PS : la fonction TIR je ne la trouve pas dans les fonctions d'Excel 2000
PS2 : vamos a la playa

[yop66]

Tout d'abord, merci beaucoup pour cette réponse extrêmement rapide. J'ai testé le code cependant la période dans le tableau de flux de trésorerie ne s'affiche pas c'est a dire pas de 1,2,....
Concernant la VAN et le TIR: le TIR n'existe pas sous une telle appelation sous excel on utilisa le fonction TRI qui est la meme chose.
C'est 2 fonctions s'utilisent en selectionnant les flux de trésorerie du tableau et l'investissement. Il faut savoir que l'investissement dans les 2 fonctions doit etre négatif car c'est une sortie de fonds=> il faut donc sélectionner les flux de trésorerie et l'investissement (chiffre négatif). Ensuite dans la VAN il faut utiliser le taux d'actualisation du tableau annexe et pour le TRI tu laisse le taux par défaut et sous excel je crois que c'est 0,1.

Merci encore pour votre aide c'est vraiment trés sympa.

[fring]

J'ai testé le code cependant la période dans le tableau de flux de trésorerie ne s'affiche pas c'est a dire pas de 1,2,....

Bin si je viens de le tester, si on introduit 5 pour la période on a bien D5=0, D6=1, D7=2, D8=3, D9=4 et D10=5

Concernant la VAN et le TIR: le TIR n'existe pas sous une telle appelation sous excel on utilisa le fonction TRI qui est la meme chose.
C'est 2 fonctions s'utilisent en selectionnant les flux de trésorerie du tableau et l'investissement.

Je ne comprend pas ce que tu veux faire avec la fonction TRI vu que tu veux afficher une valeur en B11. TRI ne te renvoie pas une valeur mais va te trier un tableau par ordre croissant ou décroissant

Il faut savoir que l'investissement dans les 2 fonctions doit etre négatif car c'est une sortie de fonds=> il faut donc sélectionner les flux de trésorerie et l'investissement (chiffre négatif). Ensuite dans la VAN il faut utiliser le taux d'actualisation du tableau annexe et pour le TRI tu laisse le taux par défaut et sous excel je crois que c'est 0,1.

Là tu m'aurais fait l'explication en Danois le résultat aurait été le même
Je suis nul en compta, crée la fonction manuellement sur Excel avec un exemple concret et montre moi à quoi ça doit ressembler.

[Pierre Fauconnier]

Bonsoir

@ Fring: il s'agit de la fonction TRI(), fonction financière dans Excel

Yop66, il faudrait voir si tu veux intégrer les fonctions TRI() et VAN() par VBA ou si tu les fixes en Excel.

Si tu veux les placer en VBA, une astuce consiste à les utiliser dans une cellule Excel, puis, dans la fenêtre d'exécution de VBA, à demander la propriété Formula de la cellule dans laquelle tu as placé la fonction.

Ainsi, tu verras que pour passer la fonction Tri(...) en VBA, tu dois utiliser =IRR(...). Pour la fonction Van, tu utiliseras =NPV(...).

Il faut, à mon sens, préférer la propriété Formula à FormulaLocal pour des raisons de portabilité du code. Il faut noter que en VBA, le séparateur à utiliser à la place du ; d'Excel est le . et faire attention au séparateur décimal.

Il est également possible d'utiliser ces fonctions directement en VBA (uniquement en Excel ou en utilisant un objet Excel.Application) via Worksheetfunction.IRR ou Worksheetfunction.VPN.

Ok?

Fring, merci d'avoir dégrossi le boulot

[fring]

Salut Pierre, en effet j'ai confondu TRI() avec la fonction de tri , merci pour la correction et les explications

[yop66]

Merci pour votre aide c'est super sympa.
Les périodes marchent niquel c'est cool, merci!!!!Je vais tester le code pour la VAN mais j'ai pas trop compris donc jverrai si jamais vous pouvez m'en dire plus je suis preneur et encore merci a vous!!!!

edit: En fait le probleme c'est que je sais pas utiliser formula

[Pierre Fauconnier]

Code :

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

range("A1").Formula

te permet simplement de placer en VBA une formule dans une cellule. Et utiliser Formula plutôt que FormulaLocal permet une portabilité plus grande de ton fichier...

[yop66]

J'ai compris cela mais je vois pas comment utiliser IRR et NPV

Code :

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

1
2
Range("B10").Formula = "=NPV(??;??;??)"
Range("B11").Formula = "=IRR(??;??;??)"

Je vois pas quoi mettre à la place des points d'interrogation???
Ce sont les cellules pour la VAN??le TIR???

Je ne comprend pas

[Pierre Fauconnier]

Ce que tu mets dans les parenthèses doit correspondre à la syntaxe de la formule que tu utiliserais dans Excel.

Pour voir comment cela fonctionne, utilise la fonction que tu souhaites dans une cellule Excel, disons A1, pour faire simple.

Donc, dans Excel, tu saisis en A1 la formule TRI (par exemple) avec les paramètres qui te conviennent.

Puis tu bascules dans VBA et dans la fenêtre d'exécution (Ctrl + G), tu saisis

Code :

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

? range("a1").formula

et tu verras la syntaxe utilisée (en anglais international).

Si tu utilises

Code :

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

? range("a1").FormulaLoca

, tu verras la syntaxe en français (sur un Excel français)...

Tu comprendras donc aisément que si tu utilises dans une macro FormulaLocal pour attribuer une formule à une cellule, tu auras des bugs lorsque tu feras tourner cette macro sur un excel en anglais (cas courant dans les entreprises où on a parfois (souvent) des versions FR et GB d'Excel...

Ok?

[yop66]

Ok, merci beaucoup. Mais j'ai un autre problème lié au fait que le nombre de périodes et donc de flux de trésorerie est défini par l'utilisateur donc je ne sais pas a l'avance sur combien de flux de trésorerie les formules de la VAN et du TRI vont s'appliquer, comment faire dans ce cas?

[Pierre Fauconnier]

Il faut recomposer la formule en tenant compte de cet élément.

Tout va donc dépendre de la mise en forme de ton tableau. Le plus simple serait de nommer la plage qui contient la valeur d'investissement et les gains espérés ou réalisés. Ainsi, tu peux utiliser le nom de la plage nommée dans ta formule

Ainsi, si tu as une plage Flux qui reprend les mouvements et un taux en B1, tu peux l'utiliser dans la fonction =TRI(Flux,b1).

Tu peux bien sûr utiliser cela en VBA

Code :

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

range("a1").formula = "=IRR(Flux,b1)"