OVH Cloud OVH Cloud

fonction sin

8 réponses
Avatar
pierre
bonsoir à tous et toutes
dans excel la fonction sinus demande des radians je voudrai faire une
fonctio perso sinus en degré(°),j'ai fais cela mais cela ne fonctionne pas
Function SIN°(degré As Range)
FormulaLocal = Sin((degré * Pi()) / 180)
End Function
quelqu'un aurit il une idée ?
merci beaucoup

8 réponses

Avatar
garnote
Salut Pierre,

Essaie celle-ci :

Function sinus(angle As Range) As Double
p = WorksheetFunction.Pi
sinus = sin(angle * p / 180)
End Function

Serge


"pierre" <xx~pierre52~ a écrit dans le message de news:

bonsoir à tous et toutes
dans excel la fonction sinus demande des radians je voudrai faire une
fonctio perso sinus en degré(°),j'ai fais cela mais cela ne fonctionne pas
Function SIN°(degré As Range)
FormulaLocal = Sin((degré * Pi()) / 180)
End Function
quelqu'un aurit il une idée ?
merci beaucoup


Avatar
pierre

Salut Pierre,

Essaie celle-ci :

Function sinus(angle As Range) As Double
p = WorksheetFunction.Pi
sinus = sin(angle * p / 180)
End Function

Serge


"pierre" <xx~pierre52~ a écrit dans le message de news:


bonsoir à tous et toutes
dans excel la fonction sinus demande des radians je voudrai faire une
fonctio perso sinus en degré(°),j'ai fais cela mais cela ne fonctionne pas
Function SIN°(degré As Range)
FormulaLocal = Sin((degré * Pi()) / 180)
End Function
quelqu'un aurit il une idée ?
merci beaucoup




merci garnote

je pense que cela est applicable aux autres fonctions trigonométriques,
non?


Avatar
pierre

Salut Pierre,

Essaie celle-ci :

Function sinus(angle As Range) As Double
p = WorksheetFunction.Pi
sinus = sin(angle * p / 180)
End Function

Serge


"pierre" <xx~pierre52~ a écrit dans le message de news:


bonsoir à tous et toutes
dans excel la fonction sinus demande des radians je voudrai faire une
fonctio perso sinus en degré(°),j'ai fais cela mais cela ne fonctionne pas
Function SIN°(degré As Range)
FormulaLocal = Sin((degré * Pi()) / 180)
End Function
quelqu'un aurit il une idée ?
merci beaucoup




merci garnote

je pense que cela est applicable aux autres fonctions trigonométriques,
non?


Avatar
garnote
Mais c'est bien sourd ;-)

Serge

merci garnote
je pense que cela est applicable aux autres fonctions trigonométriques,
non?


Avatar
ChrisV
Bonjour Pierre,

Convertir les degrés en radians...

=SIN(RADIANS(angle))


ChrisV


"pierre" <xx~pierre52~ a écrit dans le message de
news:
bonsoir à tous et toutes
dans excel la fonction sinus demande des radians je voudrai faire une
fonctio perso sinus en degré(°),j'ai fais cela mais cela ne fonctionne pas
Function SIN°(degré As Range)
FormulaLocal = Sin((degré * Pi()) / 180)
End Function
quelqu'un aurit il une idée ?
merci beaucoup


Avatar
pierre

Bonjour Pierre,

Convertir les degrés en radians...

=SIN(RADIANS(angle))



salut Chris V
et en fonction perso ça donne quoi?
merci


ChrisV


"pierre" <xx~pierre52~ a écrit dans le message de
news:

bonsoir à tous et toutes
dans excel la fonction sinus demande des radians je voudrai faire une
fonctio perso sinus en degré(°),j'ai fais cela mais cela ne fonctionne pas
Function SIN°(degré As Range)
FormulaLocal = Sin((degré * Pi()) / 180)
End Function
quelqu'un aurit il une idée ?
merci beaucoup







Avatar
ChrisV
Re,

En supposant que la cellule A1 contienne 30 (degrés)

Function SINdeg(cellule) As Double
SINdeg = Evaluate(SIN(Application.Radians(cellule)))
End Function

=SINdeg(A1)


ChrisV


"pierre" <xx~pierre52~ a écrit dans le message de
news:%

Bonjour Pierre,

Convertir les degrés en radians...

=SIN(RADIANS(angle))



salut Chris V
et en fonction perso ça donne quoi?
merci


ChrisV


"pierre" <xx~pierre52~ a écrit dans le message de
news:

bonsoir à tous et toutes
dans excel la fonction sinus demande des radians je voudrai faire une
fonctio perso sinus en degré(°),j'ai fais cela mais cela ne fonctionne
pas



Function SIN°(degré As Range)
FormulaLocal = Sin((degré * Pi()) / 180)
End Function
quelqu'un aurit il une idée ?
merci beaucoup









Avatar
pierre
Re,

En supposant que la cellule A1 contienne 30 (degrés)

Function SINdeg(cellule) As Double
SINdeg = Evaluate(SIN(Application.Radians(cellule)))
End Function

=SINdeg(A1)


ChrisV

merci beaucoup

à quoi sert le mot clé Evaluate
encore merci
pierre