J'ai besoin d'aide sur une fonction qui est plus ou moins du ressort de VB.
J'aimerais savoir comment ramener la valeur d'un cosinus qui est sous forme
-0.61566 soit le cosinus de 128 pour l'afficher comme 128. Pour être plus
concis je calcul la valeur du cosinus, et j'obtien -.061556. Quel est la
formule qui me permettra de convertir cette valeur en angle soit 128.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Trirème
Bonsoir Papou, Dans une feuille, en utilisant la fonction ArcCosinus() ¬OS(A1)*180/PI() avec en A1 ta valeur -0.61566
En VBA, l'aide d'Excel recommande d'utiliser les fonctions dérivées : Arccos(X) = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1) Donc, en faisant le tri, quelque chose comme cela :
Sub CosArcCos() Angle = 128 ' en degrés cosinus = Cos(Angle / 180 * 3.1415926) MsgBox "Le cosinus de " & Angle & "° est " & Cos(128 / 180 * 3.1415926) _ & Chr(10) & "L'angle dont le cosinus est " & cosinus & " est " & _ (Atn(-(cosinus) / Sqr(-(cosinus) * (cosinus) + 1)) + 2 * Atn(1)) / 3.1415926 * 180 & "°" End Sub
Cordialment, Trirème
Bonsoir a tous et toutes.
J'ai besoin d'aide sur une fonction qui est plus ou moins du ressort de VB. J'aimerais savoir comment ramener la valeur d'un cosinus qui est sous forme -0.61566 soit le cosinus de 128 pour l'afficher comme 128. Pour être plus concis je calcul la valeur du cosinus, et j'obtien -.061556. Quel est la formule qui me permettra de convertir cette valeur en angle soit 128.
Merci pour votre compréhension
Bonsoir Papou,
Dans une feuille, en utilisant la fonction ArcCosinus()
¬OS(A1)*180/PI() avec en A1 ta valeur -0.61566
En VBA, l'aide d'Excel recommande d'utiliser les fonctions dérivées :
Arccos(X) = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
Donc, en faisant le tri, quelque chose comme cela :
Sub CosArcCos()
Angle = 128 ' en degrés
cosinus = Cos(Angle / 180 * 3.1415926)
MsgBox "Le cosinus de " & Angle & "° est " & Cos(128 / 180 * 3.1415926) _
& Chr(10) & "L'angle dont le cosinus est " & cosinus & " est " & _
(Atn(-(cosinus) / Sqr(-(cosinus) * (cosinus) + 1)) + 2 * Atn(1)) /
3.1415926 * 180 & "°"
End Sub
Cordialment,
Trirème
Bonsoir a tous et toutes.
J'ai besoin d'aide sur une fonction qui est plus ou moins du ressort de VB.
J'aimerais savoir comment ramener la valeur d'un cosinus qui est sous forme
-0.61566 soit le cosinus de 128 pour l'afficher comme 128. Pour être plus
concis je calcul la valeur du cosinus, et j'obtien -.061556. Quel est la
formule qui me permettra de convertir cette valeur en angle soit 128.
Bonsoir Papou, Dans une feuille, en utilisant la fonction ArcCosinus() ¬OS(A1)*180/PI() avec en A1 ta valeur -0.61566
En VBA, l'aide d'Excel recommande d'utiliser les fonctions dérivées : Arccos(X) = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1) Donc, en faisant le tri, quelque chose comme cela :
Sub CosArcCos() Angle = 128 ' en degrés cosinus = Cos(Angle / 180 * 3.1415926) MsgBox "Le cosinus de " & Angle & "° est " & Cos(128 / 180 * 3.1415926) _ & Chr(10) & "L'angle dont le cosinus est " & cosinus & " est " & _ (Atn(-(cosinus) / Sqr(-(cosinus) * (cosinus) + 1)) + 2 * Atn(1)) / 3.1415926 * 180 & "°" End Sub
Cordialment, Trirème
Bonsoir a tous et toutes.
J'ai besoin d'aide sur une fonction qui est plus ou moins du ressort de VB. J'aimerais savoir comment ramener la valeur d'un cosinus qui est sous forme -0.61566 soit le cosinus de 128 pour l'afficher comme 128. Pour être plus concis je calcul la valeur du cosinus, et j'obtien -.061556. Quel est la formule qui me permettra de convertir cette valeur en angle soit 128.
