VBA - Calculer avec précision décimale

Bonsoir,

Je ne parviens pas à afficher le résultat d'un calcul avec une précision à 2 décimales. Le résultat affiche un nombre rond. Comment puis-je procéder?

Le code que j'utilise :

Code:

---

1 2 3 4 5 6 7 8 9

Function TotAchat(Q, P As Integer) 'Prix total de l'achat de part(s) Dim R As Integer quantity = Q price = P result = R result = quantity * price TotAchat = result End Function

---

Dans une feuille Excel, la cellule contient la formule dont le format est "Nombre, 2 décimales"

=TotAchat(C11;D11)

Le résultat affiche (par ex) : 100,00 au lieu de 100,25 (valeur réelle)

Merci de m'aider
A+:roll:

Bonjour

Tu déclares P comme Integer (donc un entier), ce qui te donne donc un résultat Entier.

Il faut que tu le déclares en double ou en simple, de plus une fonction doit renvoyer un type.

Mais le mieux pour des prix est le type Currency

De plus, je ne vois pas l'intérêt de créer une fonction qui est une simple multiplication, de plus il y a plein de choses inutiles à l'intérieur.

Si tu tiens à garder une fonction, il faudrait quelque chose comme cela :

Code:

---

1 2 3

Public Function TotAchat(Q As Long, P As Currency) As Currency TotAchat = Q * P End Function

---

Mais personnellement je n'en vois pas l'intérêt.

Philippe

Bonjour et bonne année 2010,

Merci d’avoir répondu et d’avoir consacré un peu de ton temps sur ce problème. Je voudrais juste préciser qu’il n’y a pas de questions sans intérêts même si l’exemple que j’ai formulé est très simpliste et n’a que peu d’intérêt dans une feuille de calcul.
Actuellement j’attaque le chapitre des procédures « Function » et la procédure que tu m’as gracieusement corrigée m’est très utile afin de pouvoir construire des fonctions personnalisées plus complexes à l’avenir.
Ta correction en dit long pour un débutant dans le domaine des fonctions. De la documentation sur ce chapitre est-elle disponible sur le site?

A+ :ccool:

Bonjour

Au niveau cours pour débutant, tu as pas mal de choses sur les tutos Excel, Access et Word, tout les liens sont en haut de cette page.

Philippe