XL 2016 VBA - Dépassement de capacité ?

[Dudu2]

Bonjour,

Je me demande ce qui se passe:

Sub a()
    Dim v As Long

    v = 1000 * 100
End Sub

J'avoue en perdre mon latin. Enfin mon VBA.

Sub a()
    Dim v As Long

    v = CLng(1000) * CLng(100)
End Sub

Pourquoi dois-je convertir en Long les valeurs pour que VBA daigne faire le calcul en Long, type de la variable résultat ? Le compilo fatigue ?

 

[Dudu2]

Bon c'est pas grave je vais faire ça: v = CLng(1000) * 100

 

[Dranreb]

Bonsoir.
= 1000& * 100 aurait été plus correct mais = 100000 plus simple

 

[Staple1600]

Bonsoir Dudu2

Même bug chez moi
Mais comme ceci c'est OK 😉

Sub aa()
Dim v As Long
v = 10 ^ 3 * 10 ^ 2
MsgBox Format(v, "# ##0")
End Sub

 

[Phil69970]

Bonjour @Dudu2 , le forum

Bizarre en effet :

Sub Test()
    Dim v As Long, z As Long, x As Long, a As Long, b As Long
    a = 100000
    b = 10000
    v = (327 * 100) + 67  'ok      ==> 32767
   ' v = 1000 * 100     'non ok
   ' v = 327 * 100 + 68 'non ok  ==> 32768
    x = 32768 * 1000 'ok
    z = a * b           'ok
End Sub

@Phil69970

 

[Staple1600]

Bonsoir Phil

Je ne sais pas pourquoi mais avec les puissances, ca passe
(voir mon message précédent)

 

[Staple1600]

Re

Et donc comme ceci aussi

Sub ab()
Dim v As Long
With Application
v = .Power(10, 3) * .Power(10, 2)
End With
MsgBox Format(v, "# ##0")
End Sub

 

[Phil69970]

Bonsoir Dranreb, Staple1600

Un bug de plus de Bilou ! 😉

@Phil69970

 

[Dranreb]

Ce n'est pas vraiment un bogue mais une règle contestable: une multiplication de deux Integer est effectuée en Integer et plante donc si elle dépasse 32767. Par ailleurs une constante spécifiée sans caractère suffixe de type est assumée du plus court type pouvant la valoir.

 

[patricktoulon]

bonsoir

Sub ab()
Dim v As Long

v = CDec(1000) * 100

MsgBox Format(v, "# ##0")
End Sub

 

[Staple1600]

Bonsoir patricktoulon

Les endives ne servent à rien dans ton code
(T'as pas nettoyé ton CTRL+C avant de faire ton CTRL+V)
😉

EDITION: C'est de la triche
Tu as édité pendant que j'écrivais.

 

[patricktoulon]

re
bonsoir Staple1600 oui j'ai vu après, je me suis juste intéressé a l’opération

avec cdec je vais jusqu'a x billiard si je me trompe pas
la limite est relativement haute
v = CDec(2147483) * 1000

 

[Dudu2]

Oui bien sûr c'est le compilo qui choisit de fabriquer le résultat sur un entier (VBA) en basant son choix sur le fait que les 2 constantes sont des entiers. Donc on se cogne au plafond des 32767. Mais Mr Compilo ne fait pas le bon choix madame.

C'est facile de contourner l'affaire avec vos multiples propositions.