Discussion :

[AlexisSz]

Bonjour,

Après avoir établi une formule Excel (colonne AF/AG)(dont j'ai eut du mal à en voir le bout) j'aimerai pouvoir l'utiliser en tant que fonction personnalisé. Cette fonction permettrait d'obtenir l'amortissement d'un montant en fonction de l'année demandé. (Ca se trouve... Il existe déjà une formule Excel qui me le permettait et ma fonction n'est donc peut-être pas du tout utile...

Je vous joins le fichier pour que ce soit plus explicite. Pourriez-vous donc me dire si :
1) Ma fonction écrite en colonne AF et AG est-elle utile ou pourrait-elle être remplacée par une fonction déjà existante?
2) Est-il possible de mettre cette fonction en code VBA? Si oui pourriez-vous m'aider ?
3) Excel est mon ami, VBA beacoup moins... des sites/fichiers m'interesseraient pour apprendre.

Merci d'avance, bonne journée,

Alex

[Daranc]

as tu regardé du coté des fonctions finances
pour d'autre sites de cours et d'exemple il te suffit dans un moteur de recherche de taper "Excel tableur " pour en avoir à la pelle

www.excel.developpez.com/ ici même dans les tutos

[Pierre Fauconnier]

Salut.

Il existe une panoplie de fonctions financières dans Excel (voir la liste via l'assistant fonctions...

Cela étant, il n'est que rarement possible de transformer sans l'adapter une formule excel en fonction personnalisée.

Une fonction personnalisée est créée en VBA et le code de la fonction s'insère entre les lignes de code suivantes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
function MaFonction(...)
    ...
    ...
end function

Pour être utilisable au sein d'une feuille de calcul, il faut en plus que la fonction ne modifie pas le classeur, que ce soit sa structure ou des valeurs de cellules.

Tu devras donc te farcir du VBA.

[AlexisSz]

Merci pour votre réponse rapide.

Dans ma fonction qui est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(ANNEE($F3)>AG$2;0;SI(ANNEE($F3)=AG$2;(CONCATENER("31/12/";AG$2)-$D3)/(30*$G3)*$E3;SI(ANNEE(($F3+$G3*30))<AG$2;0;SI(ANNEE($F3+$G3*30)=AG$2;$E3*(12/$G3)-(CONCATENER("31/12/";ANNEE($D3))-$D3)/(30*$G3)*$E3;$E3*12/$G3))))

Comment peut-on traduire "CONCATENER" en VBA ? Y a-t-il d'autres particularités à programmer à par des If ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function Amortissement(Montant,Debut,Duree,Annee)
If '(l'année de début)' Debut > Annee Then
Amortissement = 0 Else
If Debut(annee) = Annee Then 
Amortissement = ((CONCATENER("31/12/";Annee) - Debut) / (30,5 * Duree) * Montant Else
If ( Debut(annee) + Duree * 30,5 ) < Annee Then
Amortissement = 0 Else
If ( Debut(annee) + Duree * 30,5 ) = Annee Then
Amortissement = Montant * (12/Duree) - ((CONCATENER("31/12/";Debut(année)) - Debut) / (30,5 * Duree) * Montant Else
Amortissement = (Montant * 12 / Duree)

End If
End If
End If
End If
End If
End Function

Avec
Montant : Montant de l'amortissement
Debut : Date du début de l'amortissement
Duree : La durée de l'amortissement
Annee : Année à laquelle on veut connaître l'amortissement.

Avec 30.5 pour moyenne jours par mois. J'ai surligner en rouge mes problèmes de concatenation lorsque je veux juste l'année de début par exemple.

Me conseillez-vous de procéder autrement ? Pourriez-vous m'aider à codifier en partie ou me corriger ?

Merci d'avance.

Amicalement

Alexis

[kesimon63]

Utilise le & pour concatener sous vba !
ex: "31/12/" & annee

[AlexisSz]

Très bien, merci. Et la fonction =Année(...) sous VBA se traduit comment ?

[kesimon63]

year(date)

[AlexisSz]

Voici mon nouveau code mais ça ne marche toujours pas. Ai-je bien fait d'ajouter "As Double" en type d'argument ? Es-ce comme cela qu'il faut faire ? Dois je aussi donner le type de Fonction ?

Pouvez-vous m'aider à corriger mon code si vous avez un peu de temps, je vous remercie.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Function Amortissement(Montant, Debut, Duree, Annee) As Double
If Year(Debut) > Annee Then
Amortissement = 0
Else
If Debut(Annee) = Annee Then
Amortissement = "31/12/" & Annee - Debut / (30.5 * Duree) * Montant
Else
If (Year(Debut) + Duree * 30.5) < Annee Then
Amortissement = 0
Else
If (Year(Debut) + Duree * 30.5) = Annee Then
Amortissement = Montant * (12 / Duree) - "31/12/" & Year(Debut) - Debut / (30.5 * Duree) * Montant
Else
Amortissement = (Montant * 12 / Duree)
 
End If
End If
End If
End If
End If
End Function