Amortissement VBA

Question

Bonjour tous, 

Je suis en train de monter un programme d'amortissement sur excel avec VBA. 
C'est pour un cours à l'université et je ne suis pas capable d'appliquer la règle du demi taux pour la première année. 

Je vous explique : J'inscrit l'année d'acquisition de l'actif que je désire amortir, ensuite j'inscrit son coût, ensuite, le taux d''amortissement. 

Tout ça fait, un beau tableau m'apparait me disant combien d'années l'actif sera amorti, combien d'amortissement par année, le solde et blabla. 
Le problème est que la première année d'amortissement doit être à demi-taux. Exemple: 
Cout : 10000 
Taux d'amortissement : 20% 

Année 1: 10000 * 20% / 2 
Année 2: 9000 * 20% 

Je n'arrive donc pas à inscrire le demi taux dans mon progamme. 

Pouvez-vous m'aider? 

'***************************************************** 
'Programme #1 
'***************************************************** 

Sub amortissementdégressif() 

'Ce programme permet de présenter la grille d'amortissement 
'dégressif d'un actif. On entre les données dans les boîtes 
'prévues à cette fin pour obtenir le résultat de l'amortissement. 

'Indication où commencer l'amortissement 
LigneSortie = 5 

'Effacement des données présentes 
Rows(LigneSortie + 2 & ":" & LigneSortie + 500).Select 
Selection.Clear 

'Lecture des intrants de l'utilisateur au moyen de boîtes 
annéeachat = InputBox("Année d'achat de l'immobilisation ", "Calculateur") 
CoûtCapital = InputBox("Coût de l'immobilisation", "Calculateur") 
Tauxamortissement = InputBox("Taux d'amortissement de l'immobilisation", "Calculateur") 

'Vérification du taux de déduction pour amortissement permis 
If Tauxamortissement >= 100 Then 
MsgBox "Un tel taux d'amortissement n'existe pas" 
End If 
If Tauxamortissement = 0 Then 
MsgBox "Un tel taux d'amortissement n'existe pas" 
End If 

'Initialisation du coût en capital de départ 
SoldeDébut = CoûtCapital 

'Boucle pour calculer chacune des années 

Do 

DPA = SoldeDébut * (Tauxamortissement / 100) 

FNACC = SoldeDébut - DPA 

Cells(LigneSortie + 2, 2).Value = annéeachat 
Cells(LigneSortie + 2, 3).Value = SoldeDébut 
Cells(LigneSortie + 2, 4).Value = DPA 
Cells(LigneSortie + 2, 5).Value = FNACC 

LigneSortie = LigneSortie + 1 
annéeachat = annéeachat + 1 
SoldeDébut = FNACC 

Range(Cells(LigneSortie + 1, 5), Cells(LigneSortie + année + 1, 7)).Select 
Selection.NumberFormat = "#,##0$" 

Loop Until FNACC <= 1 

End Sub

tovin · Answer

Bonjour,
Un demi-taux la première année ?
En fait, la 1ère année, l'amortissement est calculé prorata temporis. Il ne peut donc exister un demi-taux que si l'investissement court sur 6 mois.
Amortissement 1ère année=Valeur*taux*nombre de mois/12

Amortissement VBA

1 réponse

Votre réponse

Discussions similaires