[Resolu] : Depassement de capacité

job75

XLDnaute Barbatruc

• 4 Mars 2011

• #2

Re : Depassement de capacité

Bonjour bonite,

bonite à dit:

avez-vous déjà rencontré ce problème ?

Cliquez pour agrandir...

Oui, et c'est très classique...

En général, cela se produit quand on a déclaré une variable numérique :

- As Byte et que le calcul veut lui donner une valeur > 255 ou < 0

- As Integer et que le calcul veut lui donner une valeur > 32767 ou < -32768

- aussi avec As Long, As Single, voir l'aide VBA.

A+

 

Dernière édition: 4 Mars 2011

Vote positif 0 Vote négatif

B

bonite

Guest

• 4 Mars 2011

• #3

Re,

mais oui, tu as raison que n'y ai-je pensé plutôt .... je vais transformé tous mes Integer en Long

Milles merci

 

Dernière modification par un modérateur: 4 Mars 2011

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Mars 2011

• #4

Re : Depassement de capacité

Re,

Vous aurez aussi le même bug avec cette macro :

Code:

Sub test1()
Dim x As Long
x = 65 * 1000
End Sub

Il faut alors écrire :

Code:

Sub test2()
Dim x As Long
x = CLng(65) * 1000
End Sub

ou :

Code:

Sub test3()
Dim x As Long
x = 65& * 1000
End Sub

A+

 

Vote positif 0 Vote négatif

B

bonite

Guest

• 4 Mars 2011

• #5

Re : [Resolu] : Depassement de capacité

Re,

Merci à Job75

 

Vote positif 0 Vote négatif