Quel code VBA pour cette fonction.

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

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

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:

---

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.

Merci pour votre réponse rapide.

Dans ma fonction qui est :

Code:

---

=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:

---

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

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

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

year(date)

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:

---

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

---