Calculer la valeur actuelle nette, Excel VBA
La valeur actuelle nette (VAN) est un outil financier utilisé pour évaluer la rentabilité d’un projet ou d’un investissement. Elle est calculée en soustrayant la somme des coûts d’investissement initiaux de la somme des flux de trésorerie actualisés à un taux d’actualisation donné.
La formule générale de la VAN est :
VAN = ∑ t = 1 -> n Ct(1+r)t−I0
Où :
- Ct : flux de trésorerie à la période t
- r : taux d’actualisation
- t : la période (en années, mois, etc.)
- I0 : investissement initial
- n : nombre total de périodes
Exemple : Calcul de la VAN en VBA
Voici un exemple de code VBA dans Excel pour calculer la VAN à partir des flux de trésorerie et du taux d’actualisation.
Étapes pour créer le code VBA :
- Ouvrir Excel et appuyer sur Alt + F11 pour ouvrir l’éditeur VBA.
- Dans l’éditeur VBA, créer un nouveau module (via Insertion > Module).
- Coller le code suivant dans le module.
- Fermer l’éditeur VBA et revenir à Excel.
Code VBA pour le calcul de la VAN :
Sub CalculerVAN()
' Définir les variables
Dim TauxActualisation As Double
Dim InvestissementInitial As Double
Dim Flux(1 To 5) As Double ' Par exemple, un tableau de 5 flux de trésorerie
Dim VAN As Double
Dim i As Integer
Dim N As Integer
' Initialisation des données
InvestissementInitial = Range("B1").Value ' Investissement initial dans la cellule B1
TauxActualisation = Range("B2").Value ' Taux d'actualisation dans la cellule B2
' Remplir les flux de trésorerie (par exemple 5 années)
For i = 1 To 5
Flux(i) = Range("B" & i + 2).Value ' Flux de trésorerie dans les cellules B3 à B7
Next i
' Calcul de la VAN
VAN = -InvestissementInitial ' Commencer par soustraire l'investissement initial
N = 5 ' Nombre de périodes, ici nous avons 5 années
For i = 1 To N
VAN = VAN + Flux(i) / (1 + TauxActualisation) ^ i ' Ajouter chaque flux actualisé
Next i
' Afficher la VAN dans la cellule B8
Range("B8").Value = VAN
' Afficher un message si la VAN est positive ou négative
If VAN > 0 Then
MsgBox "La VAN est positive : " & VAN, vbInformation, "Résultat"
ElseIf VAN < 0 Then
MsgBox "La VAN est négative : " & VAN, vbExclamation, "Résultat"
Else
MsgBox "La VAN est nulle.", vbInformation, "Résultat"
End If
End Sub
Explication détaillée du code :
1. Déclaration des variables :
- TauxActualisation : le taux d’actualisation (comme un pourcentage).
- InvestissementInitial : le coût initial de l’investissement (généralement une valeur négative).
- Flux(1 To 5) : un tableau pour stocker les flux de trésorerie sur 5 périodes (les flux de trésorerie peuvent être modifiés selon le nombre de périodes).
- VAN : la valeur actuelle nette (qui sera calculée).
- i et N : des variables utilisées pour les boucles.
2. Initialisation des données :
- L’investissement initial est récupéré depuis la cellule B1.
- Le taux d’actualisation est récupéré depuis la cellule B2.
- Les flux de trésorerie sont stockés dans les cellules B3 à B7, et le code les récupère dans le tableau Flux.
3. Calcul de la VAN :
- La VAN commence par l’investissement initial, que l’on soustrait.
- Ensuite, pour chaque période (de 1 à N), les flux de trésorerie sont actualisés en fonction du taux d’actualisation et ajoutés à la VAN.
4. Affichage du résultat :
- Le résultat de la VAN est affiché dans la cellule B8.
- Un message popup apparaît pour indiquer si la VAN est positive, négative ou nulle.
Comment utiliser ce code dans Excel :
- Données d’entrée :
- B1 : Investissement initial (ex : -1000).
- B2 : Taux d’actualisation (ex : 0.05 pour 5%).
- B3 à B7 : Flux de trésorerie pour chaque période (ex : 200, 300, 400, 500, 600).
Exécution :
- Après avoir inséré les données dans les cellules, vous pouvez exécuter le code VBA en allant dans l’éditeur VBA et en appuyant sur F5 ou en assignant la macro à un bouton dans Excel.
Cela vous permet de calculer facilement la VAN d’un projet en fonction des flux de trésorerie et du taux d’actualisation. Vous pouvez également ajuster le nombre de périodes et les flux de trésorerie en fonction de votre projet spécifique.