Divide or not divide

Bonjour,

J'ai une fonction dans laquelle je n'arrive pas à diviser un résultat.

Dans le code suivant...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub Essai2()   Application.Volatile   Dim A As Long Dim B As Long Dim Total As Double   A = 13456 B = 0.86   Total = A / B   MsgBox "Total = " & Total     End Sub

---

MsgBox me renvoie la valeur A. Donc la division ne s'est pas faite. Je comprend pas pourquoi.

Total est bien un Double, les deux autres sont des Long.

Je ne comprend pas comment résoudre ce problème car ce code me paraît bon.

Quelqu'un pourrait éclairer ma lanterne?

C'est bon, j'ai trouvé d'où provenait le problème!! Il fallait tout simplement dimensionner TOUTES les variables en Double puisque certaines valeurs numériques comportaient des virgules.