Comment convertir les radians en grades dans le programme d'Excel ?

Bonjour,
Je suis un étudiant de la topographie et géodésie, on apprend dans cette formation l'Astronomie, calculs topométrie, photogrammétrie et routes .. etc

J'ai besoin d'une méthode ou d'un macro VBA pour transformer les nombres en Excel de radians aux grades pour faciliter les travaux de la trigonométrie, car j'utilise souvent les sinus, les cosinus, et les tangentes .. etc, et donc j'ai besoin de créer des fonctions pour calculer les formules directement.

Merci beaucoup d'avance à tous les membres et les développeurs de notre forums

Cordialement

Bonsoir,

Depuis l'éditeur VBA (<ALT> + <F11> sous Excel) place le code ci-dessous dans un module.

Code:

---

1 2 3 4 5 6 7

Public Function RadianToGrad(value As Double) As Double RadianToGrad = value * 200 / WorksheetFunction.Pi() End Function   Public Function GradToRadian(value As Double) As Double GradToRadian = value * WorksheetFunction.Pi() / 200 End Function

---

Ensuite sous Excel tu pourras utiliser ces fonctions comme une fonction existante d'Excel.
exemple :
en A1 tape : =GradToRadian(A2)Puis en A2 tape la valeur à convertir de Grad en Radian.

:fleche:Un conseil : utilise un police et un alignement standard dans tes posts.
Tu auras plus de chance d'avoir des réponses.

Merci beaucoup, J'accepte ta conseil avec plaisir.

Merci beaucoup monsieur, J'ai réussi grâce à ton macro

Content que ça fonctionne. :ccool:
Il ne reste plus qu'à passer le sujet en :resolu:
A+