Bonjour,
J'ai une fonction dans laquelle je n'arrive pas à diviser un résultat.
Dans le code suivant...
MsgBox me renvoie la valeur A. Donc la division ne s'est pas faite. Je comprend pas pourquoi.
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
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?
Partager