CONVERSION LAT/LONG EN COORDONNÉES UTM

Messages postés
1488
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
3 décembre 2007
- - Dernière réponse : Euskadia
Messages postés
1
Date d'inscription
mardi 27 juillet 2010
Statut
Membre
Dernière intervention
28 mars 2011
- 28 juil. 2010 à 15:23
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/36090-conversion-lat-long-en-coordonnees-utm

Afficher la suite 
ScSami
Messages postés
1488
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
3 décembre 2007
17 -
Arf, il aurait été bien de mettre un petit zip avec le code et sa fenêtre ainsi qu'un screen shoot mais bon, sinon c'est sympa de nous faire partager cette source :D
bbcluny
Messages postés
66
Date d'inscription
mardi 25 mars 2003
Statut
Membre
Dernière intervention
29 septembre 2008
-
Source interressante, domamge qu'il manque un zip.
CADRATURE
Messages postés
26
Date d'inscription
mercredi 26 novembre 2003
Statut
Membre
Dernière intervention
13 juin 2009
-
Un grand merci pour ce code.


Dans la ligne suivante
Dim b, f, e, deg_RAD, longrad, latgrad, latgrade_J6, one_e2 As Double
Seule la variable one_e2 est de type Double

Dans d'autres circonstances (et pas dans ce code) cela peut être gênant et produire des erreurs. Voir exemple ci-dessous.

Il vaut mieux séparer les déclarations
Dim b as Double
Dim f as Double
Dim e as Double
etc...
ou bien
Dim b as Double, f as Double, e as Double etc...

========================================
Exemple:
======

Dim A, E, G, B As Double
Dim C As Double
B = 2.07
A = B
E = 3
C = test(B)
'C = test(A) << argument type mismatch

Debug.Print VarType(A) ' = 5 vbDouble
Debug.Print VarType(B) ' = 5 vbDouble
Debug.Print VarType(E) ' = 2 vbInteger
Debug.Print VarType(G) ' = 0 vbEmpty (uninitialized)



Public Function test(paramB As Double) As Double
Dim dResult As Double
dResult = 10 * paramB
test = dResult
End Function
cs_Mauricet
Messages postés
89
Date d'inscription
lundi 3 mars 2003
Statut
Membre
Dernière intervention
28 juillet 2008
-
Bonjour
Merci pour le code qui fonctionne mais je n'ai pas vérifier son exactitude
Il est inutile de redéclarer les variables dans la form mais il est utile dans le module de les déclarer as Integer
A bientôt
Maurice
cs_Mauricet
Messages postés
89
Date d'inscription
lundi 3 mars 2003
Statut
Membre
Dernière intervention
28 juillet 2008
-
Bonjour
Vérification WGS84 fuseau 31
IGN 681136,676368 5614137,94606
VB6 681196,802972 5614141,28008
Le type des variable devrait être double autant que possible
Revoir les types de variables pour une meilleure précision
A bientôt
Maurice