Discussion :

[riadinho]

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

[BlueMonkey]

Bonsoir,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

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

[riadinho]

Merci beaucoup, J'accepte ta conseil avec plaisir.

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

[BlueMonkey]

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