Bonjour,

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

Dans le code suivant...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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?