[vba excel] calculer la distance entre deux coordonnées géographiques
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.
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
- [vba excel] calculer la distance entre deux coordonnées géographiques
- Comment calculer la distance entre deux points - Forum Visual Basic 6
- Excel vba doevents - Conseils pratiques -Visual Basic / VB.NET
- Google map distance entre deux points - Forum PHP
- Ephéméride calcul entre deux dates ✓ - Forum Delphi / Pascal
- Ephéméride entre deux dates ✓ - Forum PHP
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.