Bonjour Eric,

merci de ta réponse.

Oui il me le faut absolument en VBA

Voici donc le principe d'amortisssement en linéaire et dégressif:
Pour l’amortissement linéaire on divise le montant à amortir par le nombre d’années.
Pour l’amortissement dégressif, on prend comme la base le montant à amortir en linéaire, par exemple un bien de montant de 1000 a amortir en 4 ans, on prend donc 250, ensuite (1000-250) on multiplie par coefficient prévu pour l’amortissement dégressif c’est donc pour 3-4 ans coefficient = 1.25, pour 5-6 ans c’est 1.75 et si le nombre d’année est supérieur à 6 on applique le taux égale à 2,25.

Mais la contrainte est qu’il faut vérifier des que le montant amorti en dégressif est inférieur au montant en linéaire on le remplace par le montant en linéaire. En plus il ce peux que l’investissement soit amorti en partie en linéaire et l’autre partie en dégressif.

Ok tkt
c'est bon
j'y suis arrivee
ca marche deja

bonne journee

Salut Zoulouta!

je te copie la partie de mon programme avec les cmmentaires qui calcule les amorts, tu peux l'utiliser et pour amort uniquement en lineaire ou en degressif soit pour les 2 en mm temps
comme tu pourras voir c'est pas 1 Sub mais si tu veux absolement que ce soit Sub tu le convertis en sub et apres tu fais Call

eh ben voila le porg, cest pas un chef-d'ouvre mais ca marche ::))
j'espere que cla puisse t'aider
bon courage et bonnes fets

'Calcul_Amortissement

Dim Amort(1 To 15, 1 To 3)

'Saisie des donnes lies aux amortissements

'Interrrogation sur la nature de l'amortissement
amort_lineaire:
amortlin = InputBox("Si l'amortissement est en lineaire tapez 1 sinon 2")

'Calcul de l'amortissement linéaire
If amortlin = 1 Then
montanamortlin = InputBox("Saisir le montant à amortir en lineaire en K€")
N = InputBox("nombre d'années pour cet amortissement")
dotamort = montanamortlin / N

For j = 1 To N
Amort(j, 1) = dotamort
Next j
GoTo amort_degressif

End If

If amortlin = 2 Then
GoTo amort_degressif
End If

amort_degressif:
amortdeg = InputBox("si degressif tapez 1 sinon 2")

If amortdeg = 1 Then

'Calcul de l'amortissement degressif selon les taux appropries

baseamort = InputBox("Saisir le montant à amortir en degressif en K€")
N = InputBox("Nombre d'annees pour cet amortissement")

If N < 3 Then
MsgBox "Le nombre d'années doit etre superieur ou egal a 3"
End If

If N = 3 Then
Coef = 1.25
End If

If N = 4 Then
Coef = 1.25
End If

If N = 5 Then
Coef = 1.75
End If

If N = 6 Then
Coef = 1.75
End If

If N >= 7 Then
Coef = 2.75
End If

For j = 1 To N
coefdeg = Coef / N
denumcoeflin = N - j + 1
coeflin = 1 / denumcoeflin

If coefdeg > coeflin Then
Amort(j, 2) = baseamort * coefdeg
baseamort = baseamort - Amort(j, 2)
K = N - j

Else
Amort(j, 2) = baseamort / K
End If

Next j

End If

If amortdeg = 2 Then
GoTo suite
End If

suite:

‘remplir et afficher le tableau d’amortissement ou faire une autre opération quelconque

Sur un papier millimetré tu traces les tes 2 fonctions (ici des droites)

f(x) = -2x+1
pour x=0 alors y=1 et un second point (puisqu'une droite passe par 2 points) pour x=2 alors y=-3

g(x) = x-5
pour x=0 alors y=-5 et un second point pour x=5 y=0

tu trace tes droite et tu as l'intersection ou f(x) = g(x)

PAR CALCUL
f(x) = g(x)
-2x+1 = x-5
-3x = -6
x = -6/-3 = 2

on a une egalité pour x=2

on verifie
si x=2 dans f(x) alors y= -3
si x=2 dans g(x) alors y= -3

les calculs sont bon !!!
voila !!!

Bonjour à toutes et à tous,

merci ydprod car ton aide me fut très utile. Merci également aux autres mais il est vrai que le calcul =E7/12/100 n'est pas tout à fait exact et bien que le calcul de ydprod n'est pas très clair non plus pour moi, il est correct puisque vérifié par des réseaux de sources sûres.

Ton lien fourni ydprod n'est plus d'actualité mais j'ai quand même réussi en modifiant le calcul du lien précédent.
Merci donc à aaicc.fr pour son mode de calcul sous excel.

----------------------------------------------------

Je suis mandataire en énergies renouvelables et cela m'aide à expliquer l'amortissement à mes clients qui sont déjà perdus avec les COP/EER, déperditions thermiques...

Bien cordialement, Guet.