Comment utiliser la fonction SYD dans VBA ?

La fonction SYD (Sum of Years’ Digits) est utilisée pour calculer l’amortissement d’un actif en utilisant la méthode de la somme des chiffres annuels. Cette méthode répartit l’amortissement de manière décroissante sur la durée de vie de l’actif. En VBA, vous pouvez utiliser la fonction intégrée `SYD` pour effectuer ce calcul. Voici comment l’utiliser :

Syntaxe de la fonction SYD

SYD(cost, salvage, life, period)

cost : Le coût initial de l’actif.
salvage : La valeur de récupération (valeur résiduelle) de l’actif à la fin de sa durée de vie.
life : La durée de vie utile totale de l’actif, en périodes (par exemple, années).
period : La période pour laquelle vous souhaitez calculer l’amortissement. Cette valeur doit être comprise entre 1 et la valeur de `life`.

Exemple d’utilisation dans VBA

Voici un exemple de code VBA qui utilise la fonction SYD pour calculer et afficher l’amortissement pour une certaine période :

Sub CalculateSYD()
    Dim cost As Double
    Dim salvage As Double
    Dim life As Double
    Dim period As Double
    Dim amortissement As Double

    ' Initialisation des variables
    cost = 10000          ' Coût initial de l'actif
    salvage = 1000        ' Valeur de récupération de l'actif
    life = 5              ' Durée de vie utile de l'actif
    period = 3            ' Période pour laquelle calculer l'amortissement

    ' Calculer l'amortissement
    amortissement = SYD(cost, salvage, life, period)

    ' Afficher le résultat
    MsgBox "L'amortissement pour la période " & period & " est de " & Format(amortissement, "Currency")
End Sub

Dans cet exemple, les paramètres sont définis comme suit :

`cost` est le coût initial de l’actif.
`salvage` est la valeur résiduelle.
`life` est la durée de vie utile de l’actif (en années, par exemple).
`period` est la période pour laquelle vous souhaitez calculer l’amortissement.

Vous pouvez ajuster ces valeurs selon vos besoins pour obtenir le calcul d’amortissement correspondant à votre scénario spécifique. Assurez-vous que le module VBA dans lequel vous placez ce code est bien attaché à un projet dans lequel il peut être exécuté, comme un classeur Excel ou une application Access.

facebooklinkedin