XL 2021 Recherche de communes dans un rayon de x km

[stefb1968]

Bonjour,

je recherche une solution pour effectuer une recherche dans un rayon de 15km de toutes les communes à partir d"un code postal ou d'une autre commune.
Je mets mon fichier en exemple en pièce jointe : recherche des communes dans un rayon de 15km autour de la commune en colonne E (code postal en colonne D).
Merci d'avance pour votre aide!

 

[JHA]

Bonjour à tous,

Cela ne répond pas à la demande sur fichier mais pour trouver les villes voisines, tu as ce lien qui te permet de compléter le fichier .

Villes Voisines | Trouver les villes voisines à une commune ou un code postal

Donnez un code postal ou une ville, puis un rayon, et obtenez la liste des villages/villes aux alentours.

www.villes-voisines.fr

JHA

 

[stefb1968]

Bonjour à tous,

Cela ne répond pas à la demande sur fichier mais pour trouver les villes voisines, tu as ce lien qui te permet de compléter le fichier .

Villes Voisines | Trouver les villes voisines à une commune ou un code postal

Donnez un code postal ou une ville, puis un rayon, et obtenez la liste des villages/villes aux alentours.

www.villes-voisines.fr

JHA

Merci mais malheureusement, j'ai un fichier de 4000 lignes... d'où la nécessité de trouver une formule.

 

[jurassic pork]

Hello,
le souci c'est que si tu ne mets pas de filtre (comme le nombre d'habitants par exemple) , il va y avoir beaucoup de réponses. Par exemple pour Valbonne , il y a 80 résultats :

Sinon sur le site proposé par JHA , on peut utiliser gratuitement une API qui renvoie une réponse en format json.

Ami calmant, J.P

 

[JHA]

Bonjour à tous,

Tu peux mettre un lien hypertexte.

JHA

 

[jurassic pork]

Hello,
voici un code pour utiliser l'API du site proposé par JHA :

Sub NearByWithvVoisines(cp, rayon)
    Dim http As Object, objDom As Object, res As Object
    Dim params, Url, commune
    Const BaseURL = "https://www.villes-voisines.fr/getcp.php?"
    Set http = CreateObject("MSXML2.XMLHTTP")
    Set objDom = CreateObject("MSXML2.DOMDocument.6.0")
    params = "cp=" & cp & "&rayon=" & rayon
    Url = BaseURL & params
   ' Debug.Print Url
   ' On Error Resume Next
    With http
        .Open "GET", Url, False
        .Send
        Set res = JsonConverter.ParseJson(.responseText)
        End With
    Set http = Nothing
    For Each commune In res.Keys()
      Debug.Print CStr(res(commune)("nom_commune")) & "|" & _
                  CStr(res(commune)("code_postal")) & "|" & _
                  CStr(res(commune)("distance"))
    Next
End Sub

Sub TestNearBy()
 NearByWithvVoisines "06560", 15
End Sub

Il utilise le module jsonConverter
Voici le résultat :

Commune	Code Postal	Distance
Valbonne	06560	9.492813510857774e-5
Mougins	06250	4,69919599353007
Opio	06650	4.856108623954558
Le rouret	06650	4.856108623954558
Roquefort les pins	06330	5.744404779056924
Biot	06410	5.924266310106852
Vallauris	06220	6,45596877927858
Le cannet	06110	6.562513983234666
Chateauneuf grasse	06740	6.897513849066485
Mouans sartoux	06370	7.290381643557568
Cannes	06150	8.805685817152243
Cannes	06400	8.805685817152243
Villeneuve loubet	06270	8.880079883108825
Antibes	06600	9.523575801484654
Antibes	06160	9.523575801484654
La colle sur loup	06480	10.016213073457823
La roquette sur siagne	06550	10.030150828986018
Grasse	06520	11.295856794119059
Grasse	06130	11.295856794119059
St paul de vence	06570	12.643528026336128
Pegomas	06580	12.776209168639623
Auribeau sur siagne	06810	13.210857536501074
Vence	06140	14.211425292391368
Coursegoules	06140	14.211425292391368
Tourrettes sur loup	06140	14.211425292391368
Cagnes sur mer	06800	14.47960831286022

Ami calmant, J.P

 

[Dranreb]

Bonjour.
J'ai ce vieux classeur

 

[stefb1968]

Merci à tous, je pense pouvoir trouver mon bonheur avec vos multiples réponses!

 

[stefb1968]

Hello,
voici un code pour utiliser l'API du site proposé par JHA :

Sub NearByWithvVoisines(cp, rayon)
    Dim http As Object, objDom As Object, res As Object
    Dim params, Url, commune
    Const BaseURL = "https://www.villes-voisines.fr/getcp.php?"
    Set http = CreateObject("MSXML2.XMLHTTP")
    Set objDom = CreateObject("MSXML2.DOMDocument.6.0")
    params = "cp=" & cp & "&rayon=" & rayon
    Url = BaseURL & params
   ' Debug.Print Url
   ' On Error Resume Next
    With http
        .Open "GET", Url, False
        .Send
        Set res = JsonConverter.ParseJson(.responseText)
        End With
    Set http = Nothing
    For Each commune In res.Keys()
      Debug.Print CStr(res(commune)("nom_commune")) & "|" & _
                  CStr(res(commune)("code_postal")) & "|" & _
                  CStr(res(commune)("distance"))
    Next
End Sub

Sub TestNearBy()
 NearByWithvVoisines "06560", 15
End Sub

Il utilise le module jsonConverter
Voici le résultat :

Commune	Code Postal	Distance
Valbonne	06560	9.492813510857774e-5
Mougins	06250	4,69919599353007
Opio	06650	4.856108623954558
Le rouret	06650	4.856108623954558
Roquefort les pins	06330	5.744404779056924
Biot	06410	5.924266310106852
Vallauris	06220	6,45596877927858
Le cannet	06110	6.562513983234666
Chateauneuf grasse	06740	6.897513849066485
Mouans sartoux	06370	7.290381643557568
Cannes	06150	8.805685817152243
Cannes	06400	8.805685817152243
Villeneuve loubet	06270	8.880079883108825
Antibes	06600	9.523575801484654
Antibes	06160	9.523575801484654
La colle sur loup	06480	10.016213073457823
La roquette sur siagne	06550	10.030150828986018
Grasse	06520	11.295856794119059
Grasse	06130	11.295856794119059
St paul de vence	06570	12.643528026336128
Pegomas	06580	12.776209168639623
Auribeau sur siagne	06810	13.210857536501074
Vence	06140	14.211425292391368
Coursegoules	06140	14.211425292391368
Tourrettes sur loup	06140	14.211425292391368
Cagnes sur mer	06800	14.47960831286022

Ami calmant, J.P

Bonjour, merci beaucoup. J'ai cependant une question : dans le fichier que vous m'avez transmis en cliquant sur les liens des communes, j’obtiens des réponses à 10km et non à 15km comme votre résultat. Où est le problème?

 

[jurassic pork]

Bonjour, merci beaucoup. J'ai cependant une question : dans le fichier que vous m'avez transmis en cliquant sur les liens des communes, j’obtiens des réponses à 10km et non à 15km comme votre résultat. Où est le problème?

Le souci c'est que sur le site il n' y a pas de choix pour 15 kms ( 10 puis 20). En utilisant l'API on peut régler le rayon de 0 à 50 kms par tranche de 1 km. Et il y a aussi d'autres problèmes :
1 - On a quelque fois plusieurs fois la même commune avec un code postal différent.
2 - On a pas toutes les communes. Par exemple pour Valbonne, il n' y a pas Plascassier (là où est décédée Edith Piaf).
Il y a aussi le site freemaptools , où on peut faire un filtre sur le nombre d'habitants et le rayon. Mais le filtre sur nombre d'habitants n'est pas fiable car il y a beaucoup de communes dont le nombre d'habitants n'est pas connu.

 

[mapomme]

Bonsoir à tous , @jurassic pork ,

On a pas toutes les communes. Par exemple pour Valbonne, il n' y a pas Plascassier (là où est décédée Edith Piaf).

Il ne semble pas, du moins dans les fichiers de l'INSEE, que Plascassier soit une commune. Ce hameau semble appartenir à la commune de Grasse.

Plusieurs codes postaux peuvent être rattachés à la même ville, ce qui explique peut-être pourquoi une ville peut ressortir plusieurs fois.

nota : bravo pour la sub NearByWithvVoisines .

 

[alexga78]

Bonsoir à tous,

et une solution Power query ?

Bonne soirée.

 

[jurassic pork]

Hello,

et une solution Power query ?

Bravo alexga78. On voit ici toute la puissance de Power Query quand on le maîtrise : on peut faire beaucoup de choses en quelques lignes.
Le souci avec le site www.villes-voisines.fr , c'est que les distances ne sont pas très précises car elles semblent basées sur le code postal et par exemple des villages qui ont le même code postal ont la même distance. En pièce jointe un csv généré sur le site de freemaptools pour Valbonne et un rayon de 15 kms. Il y a plus de communes qu'avec www.villes-voisines car il y a les hameaux, lieux-dits, etc ....
Début du fichier :

Valbonne,0.26km
Plascassier,2.29km
Opio,3.50km
Mouans-Sartoux,3.56km
Le Plan-de-Grasse,4.11km
Plan-de-Grasse,4.11km
Le Rouret,4.22km
Châteauneuf-Grasse,4.53km
Châteauneuf-le-Pre-du-Lac,4.53km
Le Château,4.66km
Mougins,4.72km

Opio est plus près que Mougins alors qu'avec villes voisines c'est l'inverse. Et si on regarde un itinéraire avec google maps cela donne encore un autre résultat car lui il passe par les routes.

Ami calmant, J.P

 

[alexga78]

Bonjour à tous,

Juste pour le fun.

En utilisant: la base de données des codes postaux issue de data.gouv.fr et la formule de calcul entre coordonnées GPS (https://www.girlswithpowertools.com/2014/05/distance/).
Plus de calculs...

Bon WE à tous.

 

[mapomme]

Bonsoir @alexga78 ,

Merci ! Le document que tu nous a signalé est très bien . Normal ! C'est le site des filles aux super pouvoirs .

Cependant, plus généralement, il faudrait abandonner le code postal pour identifier une commune. Il n'y a pas bijection entre les codes postaux et les communes. Certains codes postaux ont une ribambelle de communes rattachées et d'autre part des communes ont plusieurs CP rattachés. On ne sait donc pas ce qu'on calcule vraiment.

Le seul code qui me semble sans ambigüité serait le code insee de la commune. Mais il oblige à passer par le fichier insee des communes et à repérer la commune par son nom. Donc on tourne en rond. En plus avec les "nouvelles communes", c'est un bazar pas possible.

Je suggère donc qu'on supprime les codes postaux. On les remplace par le code insee de la commune. En 2024, ce n'est comme pas sorcier de faire les acheminements et le tri avec 36 000 codes insee, l'informatique de La Poste se chargeant après de faire le boulot pour le bon acheminement. On n'en est plus à l'informatique de grand-papa (et j'en suis).

On pourrait même imaginer de ne mettre que le département et la commune. Le logiciel de La Poste se chargeant avec la reconnaissance du département, de la commune (OCR) ainsi que de la rue d'encoder les lettres et les paquets avec le bon code d'acheminement. Mais c'est un doux rêve sans doute . Je ne pense pas qu'un organisme quelconque investisse dans le traitement du courrier qui en volume est en chute libre.