XL 2016 VBA - Dépassement de capacité ?

Dudu2

XLDnaute Barbatruc

• 9 Mars 2021

• #2

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

 

Vote positif 0 Vote négatif

Solution

Dranreb

XLDnaute Barbatruc

• 9 Mars 2021

• #3

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Mars 2021

• #4

Bonsoir Dudu2

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

VB:

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

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 9 Mars 2021

• #5

Bonjour @Dudu2 , le forum

Bizarre en effet :

VB:

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Mars 2021

• #6

Bonsoir Phil

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Mars 2021

• #7

Re

Et donc comme ceci aussi

VB:

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

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 9 Mars 2021

• #8

Bonsoir Dranreb, Staple1600

Un bug de plus de Bilou !

@Phil69970

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 9 Mars 2021

• #9

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.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 9 Mars 2021

• #10

bonsoir

VB:

Sub ab()
Dim v As Long

v = CDec(1000) * 100

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Mars 2021

• #11

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.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 9 Mars 2021

• #12

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 9 Mars 2021

• #13

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.

 

Vote positif 0 Vote négatif