Tableau d'amortissement complet

Dans cet article, je vous propose l'utilisation d'un tableau d'amortissement complet que j'ai personnellement conçu.

Je suis Actuaire (spécialiste des mathématiques en assurances) et dans l'exercice de mes fonctions, j'ai eu besoin à plusieurs reprises d'un tableau d'amortissement qui me permettait de résoudre rapidement un certain nombre de problèmes rencontrés. J'ai eu recours à plusieurs tableaux d'amortissement retrouvés sur internet, mais sans satisfaction réelle.

J'ai donc pris la décision de mettre sur pied un tableau d'amortissement qui aidera tout ceux qui pourront être dans un besoin. Ma formation de Finance d'Entreprise EMLYON aidant, j'ai donc pu réaliser ce rêve.

Ce tableau d'amortissement pourra regrouper tous les cas possibles, en autre:

- Le cas du remboursement in fine,

- Le cas de l'annuité constante,

- Le cas de l'amortissement constant,

- Le cas du différé partiel,

- Le cas du différé total,

- Le cas du remboursement mensuel, trimestriel, semestriel ou annuel,

- ....

Vous aurai le temps de tester la version d'essai don le lien est ci-dessous:

Cliquez ici

samedi 2 novembre 2019

Les tables de données Excel (les tables de données à plusieurs dimensions)

1 - Les tables de données à une dimension :
Ci dessus la vidéo

2- les tables de données à deux dimensions

Les tables de données à plusieurs dimensions :

Vous ci dessus le code VBA que vous devez copier et coller dans un module sur votre page VBA afin d'avoir la fonction personnelle 'scenario':

Function scenario(cellule As String, num_extraction As Integer) As String
Dim Position(100) As Integer
Dim mot(100) As String

nbrecar = Len(cellule)
passage = 0
tiret = 0
For i = 1 To nbrecar
passage = passage + 1
Position(0) = 0
If Mid(cellule, i, 1) = "_" Then
tiret = tiret + 1
Position(tiret) = i
End If
Next i
Position(tiret + 1) = nbrecar + 1

For j = 1 To tiret + 1
If j = 1 Then
mot(j) = Mid(cellule, 1, Position(j) - 1)
Else
mot(j) = Mid(cellule, Position(j - 1) + 1, Position(j) - (Position(j - 1) + 1))
End If
Next j

scenario = CDbl(mot(num_extraction))

End Function