XL 2016 VBA - Problème de calcul, dépassement de capacité

[danielco]

Bonjour,

C'est sans doute simple, mais je ne vois pas... Le code suivant fonctionne :

R = Int(100000 / 65536)

Mais pas :

R = Int(100000 / (255 * 255))

Erreur 6 dépassement de capacité. R est défini sans indication de type.

merci par avance.

Daniel

 

[JHA]

Bonjour à tous,

A tout hasard, essayez

=ENT(100000 / PUISSANCE(255;2))

JHA

 

[danielco]

Bonjour @JHA
Merci. Effectivement,

R = Int(100000 / Application.Power(255, 2))

Fonctionne, mais j'aurais voulu comprendre mon erreur.

 

[fanch55]

Bonjour,
En fait quand on fait la multiplication d'un entier explicite par un entier explicite,
le compilateur évalue les chiffres explicites fournis.
255 est un entier, le résultat devrait être un entier, donc limité à 32768 .
En l’occurrence, l'évaluation peut être effectuée jusqu'à 255*128 , en fait toute multiplication d'un entier explicite par un autre qui ne produirait pas plus de 32768... 🤔

C'est bestial mais c'est comme ça .... 😡

Pour "contrer" ce processus, rajouter # à la fin d'un des chiffres pour indiquer au compilateur que c'est un chiffre "double" et donc que le résultat devra également être "double" 🥳

r = Int(100000 / (255# * 255))​

Vous auriez pu également indiquer

r = Int(100000 / (255 ^ 2)) <-- ce n'est pas une multiplication​

i=255: r = Int(100000 / (i * i)) <-- ce n'est pas explicite​

i=255: r = Int(100000 / (255 * i)) <-- ce n'est pas explicite​

Mais rassurez-vous, le piège surprend tout le monde, même les plus aguerris ... 😎

 

[danielco]

Bonjour @fanch55
Et merci. Comme tu dis, c'est comme ça...
Daniel

 

[Phil69970]

Bonjour à tous

C'est la même problématique qu'ici....avec explication.

XL 2016 - VBA - Dépassement de capacité ?

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...

www.excel-downloads.com

@Phil69970

 

[danielco]

Bonjour à tous

C'est la même problématique qu'ici....avec explication.

XL 2016 - VBA - Dépassement de capacité ?

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...

www.excel-downloads.com

@Phil69970

OK, merci.