Fonction personnalisée VBA Excel

Bonjour,

Le code de ma fonction pour Calculer le montant des intérêts ne fonctionne pas.

Code:

---

1 2 3

Function CalculerInteretSimple(ByVal Capital As Integer, ByVal Taux As Double, ByVal Duree As Integer) As Currency CalculerInteretSimple = Format((Capital * Taux / 100 * Duree), "Currency") End Function

---

Le problème vient peut être des types des variables.

Quelqu'un peut il m'aider svp ?

Bonjour,

essayes en déclarant le montant en "Long"

Code:

---

Function CalculerInteretSimple(ByVal Capital As Long, ByVal Taux As Double, ByVal Duree As Integer) As Currency

---

Merci beaucoup mais cela ne fonctionne toujours pas :(

#VALEUR! s'affiche

est-ce que ton capital est un nombre décimal ? parce que chez moi, sans décimale au capital ça fonctionne

Merci encore

Je débute en VBA peux être que je m'y suis mal prise...

Pouvez vous m'envoyer le code que vous avez utilisé ?

Voici mon code
Capital 10000
Intérêt 3
Durée 1

Code:

---

1 2 3

Function CalculerInteretSimple(ByVal Capital As Long, ByVal Taux As Double, ByVal Duree As Integer) As Currency CalculerInteretSimple = Format((Capital * Taux / 100 * Duree), "Currency") End Function

---

vois le fichier

Merci beaucoup pour le fichier, j'ai assayé sur excel 2007 sur un PC cela a fonctionné. Le probleme venait de Excel sur le Mac.

Est ce quelqu'un pourrait vérifier mes fonctions ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Function HT(Montant, TauxTva) HT= (Montant / (100 + TauxTva) * 100) End Function     Function TTC(HorsTaxe, TauxTva) TTC = (HorsTaxe + (HorsTaxe * TauxTva) / 100) End Function     Function RentabilitéGlobale(Résultat_net, Valeur_Ajoutée) RentabilitéGlobale = Résultat_net / Valeur_Ajoutée End Function

---

Merci pour votre aide