Calculer le sinus ou cosinus en VBA

[Andre]

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é

[Jacky]

Bonjour,

> Maintenant, j'aimerais faire la même chose en VBA !

Essaie ceci
[a1] = [COS(RADIANS(45))]
MsgBox [COS(RADIANS(45))]

--
Salutations
JJ

"Andre" <Andre_...@newsguy.com> a écrit dans le message de news: icin5...@drn.newsguy.com...

[michel ou sam]

Bonjour, j'ai testé ces 2 solutions

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" <Andre_...@newsguy.com> a écrit dans le message de news:
icin5...@drn.newsguy.com...

[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)