Discussion :

[PM2801]

Bonjour,

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

Code :

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

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 ?

[casefayere]

Bonjour,

essayes en déclarant le montant en "Long"

Code :

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

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

[PM2801]

Merci beaucoup mais cela ne fonctionne toujours pas

#VALEUR! s'affiche

[casefayere]

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

[PM2801]

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 :

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

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

[casefayere]

vois le fichier

[PM2801]

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 :

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

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