Ce site est optimisé pour être consulté depuis un navigateur moderne dans lequel JavaScript est activé.

Pourquoi cells(1,1) = 500 * 100 provoque un dépassement mais pas 50000*100 ?

ayi

Je viens de créer un simple sous-programme et il génère une erreur de dépassement. Cependant, je ne vois rien de mal dans le code, et c'est vraiment étrange car <code>50000100</code> est bien plus grand que <code>500100</code>.
<pre><code class="lang-auto">sub add()
'This will cause an overflow error
cells(1,1) = 500 * 100
'But this won't
cells(2,2) = 50000 * 100
end sub

</code></pre>

ayi_2

Considérez :
<pre><code class="lang-auto">Sub add()
'This works:
Cells(1, 1) = CLng(500) * 100
'as does this:
Cells(2, 2) = 50000 * 100
End Sub

</code></pre>
VBA choisissait apparemment un type par défaut <code>Integer</code> pour la première expression car ce type est suffisamment grand pour contenir les littéraux du côté droit. 50000 est trop grand pour un <code>Integer</code>, donc il l'interprète comme un <code>Long</code>. <code>CLng</code> déclenche explicitement une promotion vers <code>Long</code>.