Dépassement de capacité [VBA]
Bonjour,
A la suite un bout de code VBA pour lequel j'ai le droit à une erreur d'exécution de type 6 (dépassement de capacité).
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
| Sub mur_13()
Dim esup, einf, hvoile, beta, omega, phiremblais, gamma, alpha, kar As Double
esup = Range("epaisseur_voile_haut")
einf = Range("epaisseur_voile_bas")
hvoile = Range("hauteur_voile")
beta = Atn((einf - esup) / hvoile)
omega = WorksheetFunction.Radians(Range("angle_talus"))
phiremblais = WorksheetFunction.Radians(Range("phi_remblais"))
gamma = WorksheetFunction.Asin(Sin(omega) / Sin(phiremblais))
alpha = Atn(Sin(phiremblais) * Sin(gamma - omega + 2 * beta) / (1 - Sin(phiremblais) * Cos(gamma - omega + 2 * beta)))
kar = 1 / Cos(alpha) * Cos(omega - beta) * Sin(gamma) / Sin(gamma + omega) * (1 - Sin(phiremblais) * Cos(gamma - omega + 2 * beta))
Range("Rankine") = kar
End Sub |
La ligne qui semble lui poser problème est la ligne en orange.
A noter que j'ai tenté les calculs de cette même ligne séparément et qu'il n'y a pas de problème.
Si quelqu'un a l'amabilité de m'expliquer ce qui cloche, mes capacités en VBA étant facilement... dépassées :p
Merci d'avance.
