Erreur 5
Bonjour,
je viens de regarder les cours de vba du site, et j'essaie de créer une macro
de calcul. Mais j'ai le message erreur 5 qui s'affiche.
Voici le texte
Sub calcul_coefint()
'deffinition des variables
Dim M As Double
Dim Mvc As Double
Dim visc As Double
Dim T1 As Double
Dim T2 As Double
Dim L As Double
Dim Dc As Double
Dim rot As Double
Dim ® As Double
Dim np As Double
Dim ¢ As Double
Dim ð As Double
Dim Cm As Double
Dim hi As Double
'attribution de valeurs
M = Range("B8")
Mvc = Range("B9")
visc = Range("B10")
T1 = Range("B11")
T2 = Range("B12")
Cm = Range("B13")
ð = Range("B14")
L = Range("B29")
'reacteur
Dc = Range("B26")
¢ = Range("B28")
'agitateur
rot = Range("B32")
np = Range("B33")
® = Range("B35")
'calcul de hi
hi = (0.51 * (Mvc * Dc * Dc * rot / visc) ^ (0.667) * (Cm * visc / ð) ^ (0.333) * 1 * (0.000001 / L) ^ (0.15) * np ^ (0.15) * Sin(®) ^ (0.15)) * ¢ / Dc
Range("F20") = hi
End Sub
merci de votre aide
re,
au cas ou....l'erreur est sur la ligne du calcul
merci
Bonjour,
Mets en tout début de ton code avant le sub
Option ExplicitEt lances ta macro. Quel est le résultat?
Dans tous les cas un fichier est souhaité pour recevoir de l'aide du forum
Cdlt
Bonjour,
Tu peux regarder du coté de ton calcul de hi.
Pour faciliter la recherche, tu peux fractionner l’expression
T1 = 0.51 * (Mvc * Dc * Dc * rot / visc) ^ 0.667
T2 = (Cm * visc / ð) ^ 0.333
T3 = (0.000001 / L) ^ 0.15
T4 = np ^ 0.15
T5 = Sin(®) ^ 0.15)
T6 = ¢ / Dc
hi =T1*T2*1*T3*T4*T5*T6Tu verras ainsi sur quel terme se situe l’erreur
A+
merciii!!
ça marche en mettant option explicit!!!
OK la prochaine fois je mets mon fichier
merci encore à bientôt!