Sub Macro1() Conv = WorksheetFunction.Pi xd = Range("A3") xr = xd * Conv / 180 Range("b3") = xr y = Cos(xr) Range("C3") = y End Sub
Sub Macro2() 'on définit pi via l'arctan Pi = 4 * Atn(1) xd = Range("A4") xr = xd * Pi / 180 Range("b4") = xr y = Cos(xr) Range("C4") = y End Sub
Michel
"Andre" a écrit dans le message de news:
Bonjour à tous
J'essaie de calculer le Sin ou le Cos d'un angle en VBA.
si je mets la formule "=COS(RADIANS(45))"
La réponse est correcte.
Maintenant, j'aimerais faire la même chose en VBA !
Comment?
x = Cos(45) => la réponse est en radian et non en degré !
Quelqu'un a t'il une idée?
Merci d'avance André
Maude Este
Bonsour®
"Andre" a écrit
si je mets la formule "=COS(RADIANS(45))" La réponse est correcte. Maintenant, j'aimerais faire la même chose en VBA ! x = Cos(45) => la réponse est en radian et non en degré ! Quelqu'un a t'il une idée?
;o))) faire la même chose en VBA ! x = Cos(Radians(degrés))
soit en réalité : x = Cos(application.Radians(45)) ou bien x = Cos(45 * 3,14159/180)
Bonsour®
"Andre" a écrit
si je mets la formule "=COS(RADIANS(45))"
La réponse est correcte.
Maintenant, j'aimerais faire la même chose en VBA !
x = Cos(45) => la réponse est en radian et non en degré !
Quelqu'un a t'il une idée?
;o))) faire la même chose en VBA !
x = Cos(Radians(degrés))
soit en réalité :
x = Cos(application.Radians(45))
ou bien
x = Cos(45 * 3,14159/180)
si je mets la formule "=COS(RADIANS(45))" La réponse est correcte. Maintenant, j'aimerais faire la même chose en VBA ! x = Cos(45) => la réponse est en radian et non en degré ! Quelqu'un a t'il une idée?
;o))) faire la même chose en VBA ! x = Cos(Radians(degrés))
soit en réalité : x = Cos(application.Radians(45)) ou bien x = Cos(45 * 3,14159/180)