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

0/5 (15 avis)

Vue 25 214 fois - Téléchargée 4 322 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
ca ne marche pas
Cpcdos Messages postés 425 Date d'inscription samedi 11 juillet 2009 Statut Membre Dernière intervention 28 octobre 2016 1
3 mai 2011 à 22:53
Merciii
Cpcdos Messages postés 425 Date d'inscription samedi 11 juillet 2009 Statut Membre Dernière intervention 28 octobre 2016 1
3 mai 2011 à 22:52
ok
cs_Jack Messages postés 14007 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 77
3 mai 2011 à 22:52
Par contre, il te manquera la base de données répertoriant les noms de ville, les codes postaux et les coordonnées géographiques - impossible de les lister là.
Cpcdos Messages postés 425 Date d'inscription samedi 11 juillet 2009 Statut Membre Dernière intervention 28 octobre 2016 1
3 mai 2011 à 22:49
oO merciii :P
Afficher les 15 commentaires

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.