Comment utiliser la fonction NPV dans VBA ?

La fonction NPV (Net Present Value) est utilisée en finance pour calculer la valeur actuelle nette d’une série de flux de trésorerie futurs, en tenant compte d’un taux d’actualisation. Dans VBA (Visual Basic for Applications), vous pouvez utiliser la fonction NPV de cette manière :

Supposons que vous avez besoin de calculer la valeur actuelle nette d’un ensemble de flux de trésorerie en utilisant VBA dans Excel. Voici un exemple de code VBA qui montre comment utiliser la fonction NPV :

Sub CalculateNPV()
    Dim cashFlows As Variant
    Dim discountRate As Double
    Dim npvValue As Double

    ' Définissez le taux d'actualisation
    discountRate = 0.1 ' Exemple : 10 %

    ' Définissez les flux de trésorerie
    ' Assurez-vous que le premier élément représente le flux pour la période 1, 
    ' car la fonction NPV n'inclut pas le flux initial (période 0)
    cashFlows = Array(3000, 4200, 6800)

    ' Calculez la valeur actuelle nette en utilisant la fonction NPV
    npvValue = Application.WorksheetFunction.NPV(discountRate, cashFlows)

    ' Affichez la valeur dans une boîte de message
    MsgBox "La Valeur Actuelle Nette (NPV) est : " & npvValue
End Sub

Explications importantes :

Taux d’actualisation : Vous pouvez définir le taux d’actualisation en tant que pourcentage décimal. Par exemple, 10 % est représenté par 0.1.
Flux de trésorerie : Utilisez un tableau VBA pour stocker vos flux de trésorerie. Notez que la fonction NPV en VBA ne considère pas le premier flux comme étant le courant de l’année 0. Ainsi, vous ne devez inclure que les flux de la période 1 et plus tard dans le tableau.
Fonction NPV : Nous utilisons `Application.WorksheetFunction.NPV` pour appeler la fonction NPV disponible dans Excel. Cette méthode vous permet d’accéder directement aux fonctions de feuille de calcul Excel depuis VBA.
Affichage du résultat : Vous pouvez afficher le résultat du calcul NPV dans une boîte de dialogue ou le stocker dans une cellule de votre feuille Excel.