Long datatype act as an Integer

Question

Bonjour, 

J'ai un petit problème de dépassement de capacité (Erreur 6) avec les types de variable Long depuis quelque temps. (En fait depuis le dernier update de Windows 10 version 19041.685)

Dim nn as long

nn = 36 * 36 * 36
--- VBA me donne une erreur 6 Dépassement de capacité

Toutefois si je fais ça en 2 étapes, ça fonctionne:
nn = 36 * 36
nn = nn * 36
--- Pas d'erreur 6

Quelqu'un a une idée

franc38 · Answer

Bonjour
J'ai essayé et j'ai eu le même tour!!!!!
J'ai trouvé dans l'aide windows (mais j'ai pas compris)
https://docs.microsoft.com/fr-fr/office/vba/Language/Reference/User-Interface-Help/overflow-error-6
et en effet ça marche
  Dim nn As Long  nn = CLng(36) * CLng(36) * CLng(36)  MsgBox (nn)

A+ François

Patrice33740 · Answer

Bonjour,

Par défaut de précision, 36 est un Integer d'où le problème (sinon voir lignes 14, 15, 16, 17) :
Sub test()
Dim I As Integer, L As Long, S As Single, D As Double, C As Currency, V As Variant, T As String
Dim nn As Long

I = 36: L = 36: S = 36: D = 36: C = 36: V = 36: T = "36"
  
  ' Pas d'erreur
  nn = L * L * L
  nn = S * S * S
  nn = D * D * D
  nn = C * C * C
  nn = V * V * V
  nn = T * T * T
  nn = 36# * 36# * 36#
  nn = 36 * 36 * 36#
  nn = 36# * 36 * 36
  nn = 36& * 36 * 36
  nn = 36 * 36: nn = nn * 36
  nn = CLng(36) * CLng(36) * CLng(36)
  nn = CSng(36) * CSng(36) * CSng(36)
  nn = CDbl(36) * CDbl(36) * CDbl(36)
  nn = CCur(36) * CCur(36) * CCur(36)
  nn = CStr(36) * CStr(36) * CStr(36)
  
  ' Dépassements de capacité
  nn = 36 * 36 * 36
  nn = I * I * I
  nn = CInt(36) * CInt(36) * CInt(36)
  
End Sub

Long datatype act as an Integer

2 réponses

Discussions similaires

Newsletters