Run-time error '6' Overflow
Bonjour,
J'obtiens une erreur avec mon code ci-dessous au niveau de la ligne surlignée:
"Run-time error '6'
Overflow"
J'ai pourtant identifié 'coef' as Long... Pouvez vous m'aider, svp ? J'imagine que ca ne doit pas être comppliqué mais c'est la 1ere fois que je rencontre ce probleme.
Dim coef As Long
With Sheets("etoile_LT")
derligne = Range("A3:A1000").End(xlDown).Row
End With
Cells(derligne, 14) = 1
Cells(derligne, 16).Formula = Exp(1 * Range("O4"))
For Z = 1 To derligne - 3
ZZ = derligne - Z
If IsEmpty(Sheets("etoile_LT").Cells(ZZ, 14)) = True Then
Cells(ZZ, 14) = Cells(ZZ + 1, 14) - Cells(5, 15)
coef = Exp(Cells(ZZ + 1, 16) * Cells(4, 15))
Cells(ZZ, 16) = coef
End If
Next
MsgBox "done!"
Merci pour vos réponses.
Cdlt,
Vincent
Bonjour Vincent,
c'est difficile de vérifier un calcul sans avoir les données servant au calcul,
pourriez-vous joindre la feuille "etoile_LT" ?
Bonsoir,
Exp renvoie une valeur de type Double...
Elle sera en principe réduite à sa partie entière puisque tu affectes le résultat à une variable Long.
Mais si erreur 6, c'est que ton résultat dépasse la capacité du type Long...
Cordialement.
Bonjour,
La formule de mon calcul contenait une ereur... Corrigé et cela fonctionne desormais.
Merci pour vos reponses.
Vincent