PB dans la programmation d'une FONCTION EXEL - VB/VBA/VBS - Programmation
MarshPosté le 30-10-2006 à 14:04:30
Bonjour à tous,
Dans le cadre de converion de coordonées géographiques, j'essaie désespérément de trouver une fonction pour passer des nombres décimaux à un affichage DMS. Le principe est d'appliquer la fonction à un nombre (N) et de voir affiché dans la case un truc comme ça (DMS(N)): a° b' c"
Voici le truc que j'ai essayé de coder avec mes vieilles bases de TP (ne vous marrez pas, j'ai appris ça ya longtemps)
ça marche quand j'en fais une macro, mais ça m'intéresse pas une macro puisque relative ou absolue ça fait référence à une case bien précise et moi j'ai besoin d'une fonction que je peux balancer dans n'importe quelle case.
Donc après une heure à me prendre la tête sur un truc qui n'est absolument pas mon métier mais qui titille ma curiosité, je vous demande votre aide le plus humblement du monde.
Marsh Posté le 30-10-2006 à 14:04:30
Bonjour à tous,
Dans le cadre de converion de coordonées géographiques, j'essaie désespérément de trouver une fonction pour passer des nombres décimaux à un affichage DMS. Le principe est d'appliquer la fonction à un nombre (N) et de voir affiché dans la case un truc comme ça (DMS(N)): a° b' c"
Voici le truc que j'ai essayé de coder avec mes vieilles bases de TP (ne vous marrez pas, j'ai appris ça ya longtemps)
Function DMS(N)
DMS = CONCATENATE(Int(N), "° ", Int((N - Int(N)) * 60), "' ", Int((((N - Int(N)) * 60) - Int((N - Int(N)) * 60)) * 60), "''" )
End Function
ça marche quand j'en fais une macro, mais ça m'intéresse pas une macro puisque relative ou absolue ça fait référence à une case bien précise et moi j'ai besoin d'une fonction que je peux balancer dans n'importe quelle case.
Donc après une heure à me prendre la tête sur un truc qui n'est absolument pas mon métier mais qui titille ma curiosité, je vous demande votre aide le plus humblement du monde.
Merci à tous!