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