Cette adresse GPS doit probablement être une erreur sur mon fichier.Et je parlais du point x =73,17217491 y = 435,2779566 visible sur mon graphique, correspondant à latitude 50,7853731° longitude 2,6651476°. Si c'est votre bureau, il me semble bien loin des endroits que vous visitez !
Mais ce n'est pas ça n'est ce pas, c'est "50.733042,3.0763899". Si ça vous intéresse quand même toujours je pourrais vous écrire un Function ProjStBureau qui calculerait les distances x et y en km par rapport à votre bureau …
Je le répète en utilisant les 1ères décimales de la latitude et de la longitude ce ne sont pas dans des carrés (donc de même fréquence horizontalement et verticalement) que vous discriminez les points, mais dans des rectangles pas loin d'être deux fois plus hauts que larges. Une discrimination basée sur les x et y de ma projection (que j'appelle le code quadrillage) n'ont pas ce défaut.
Le poste #9 est celui indiqué en haut à droite du message qui précédait le votre auquel je répondais.
Je parlais de remplacez les valeurs des cellules de la feuille "Communes", les villes par vos noms de sociétés ou leurs adresses, ainsi que leurs coordonnées GPS. Après Alt+F11 pour ouvrir Visual Basic Editor, double cliquez sur le nom Module1 et dans la fenêtre de code diminuez la valeurs de la constante DQuad. Revenu dans la feuille cliquez sur le bouton "Trouver villes proches".
Je ne sais pas interroger le site fr.distance.to en VBA mais ça devrait pouvoir se faire car j'ai déjà interrogé d'autres sites comme ça. Cela dit je dirais qu'un itinéraire optimal à vol d'oiseau pour visiter 10 endroits aurait me semble-t-il d'assez bonnes chances d'être aussi le meilleur itinéraire par la route.
Je travaille sur une petite zone géographique.Dois-je en conclue qu'une Function ProjStBureau qui calculerait en plus les coordonnées kilométriques x et y par rapport à votre bureau ne vous intéresse pas ? (Le code quadrillage suivrait naturellement, avec une unité de coté de votre choix).