[vba excel] calculer la distance entre deux coordonnées géographiques

Soyez le premier à donner votre avis sur cette source.

Vue 22 078 fois - Téléchargée 4 013 fois

Description

Vous sélectionnez les codes postaux de vos villes de départ et d'arrivée, et vous obtiendrez la distance à vol d'oiseau approximative entre ces deux villes.

Le classeur renferme la liste de plus de 35000 communes de France avec leur codes postaaux et leurs coordonnées géographiques (latitude et longitude).
Ces données, que j'avais collectées il y a de nombreuses années, ne sont surement pas à jour et comportent surement des lacunes.

Points intéressant de ce code :
- Création de DropDownList (non OCX) dynamiquement et affectation évènement à une procédure VBA
- Manipulation de Range
- Calcul de distance approximative, car la terre n'est pas ronde.

Source / Exemple :


Créée sous Excel 2003, mais testé sans encombre sous Office 2007 et 2010.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Utilisateur anonyme -
Bonjour jack,
Je n'ai pas eu de chance surement ;)
Lorsque je tape mon code postal (32000) , rien ne se passe puis la cellule d'arrivée est sélectionnée automatiquement. Je tape donc 31000 (toulouse) et la feuille semble partir en boucle infinie.
Sinon avec d'autres codes postaux ca fonctionne bien.
A bientôt.
cs_Jack
Messages postés
14010
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
59 -
Voilà, j'ai remis à jour la liste des villes qui semblaient manquer.
Boucle infinie : c'est bizarre. Cependant, j'ai eu un problème de stabilité de VBA durant la dev (plus moyen d'afficher l'éditeur). Peut-être dû à la quantité de données.
Utilisateur anonyme -
Je viens de tester à nouveau et cette fois-ci ça marche parfaitement et la distance est correcte.
Je me demande si la courbure de la terre à beaucoup d'influence sur une distance de 1000 km
Merci pour la mise à jour.
mdegremo
Messages postés
17
Date d'inscription
jeudi 21 août 2008
Statut
Membre
Dernière intervention
10 septembre 2011
-
Bonsoir,
J'essaye de me creer un petit programme en Visual pour mon job et j'aurai besoin d'intégrer un outil de calcul de distance gps par les coordonnées Lat/long. Si vous pouvez me donner un coup de main, ce serait vraiment top.
Merci d'avance
cs_Jack
Messages postés
14010
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
59 -
lol, tu n'as qu'à lire et comprendre le code de cette source : tu auras la solution.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.