XL 2016 Affichage villes proches à partir coordonnées GPS

Softmama à dit:

Bonjour,

tu peux déjà te passer de la colonne G en mettant en F21 et suivantes :

Code:

=INDEX(A$2:A$12;EQUIV(PETITE.VALEUR($F$2:$F$12;E21);$F$2:$F$12;0))

Cliquez pour agrandir...

Dranreb à dit:

Bonsoir.
Combien aurez vous de villes au maxi déjà ?
Parce que le nombre de distances différentes possible c'est N * (N - 3) \ 2 + N
Pour 1000 c'est 499500. C'est un peu un ordre de grandeur du maximum possible… Enfin on pourrait peut être allez jusqu'à 1415 (1000405 distances)
J'envisage de les calculer toutes en VBA, de les indexer par ordre croissant, puis d'en remplir 3 maxi aux villes concernées, (les 1ers trouvés par ordre croissant)…

Cliquez pour agrandir...

Dranreb à dit:

Toutes les communes de France, ça va faire beaucoup trop à mon avis.
Il va falloir quadriller. Genre ne prendre en compte que les villes situé dans un carré de 3 × 3 pour trouver les villes les plus proches de celles du carré central seulement…

Cliquez pour agrandir...

Dranreb à dit:

De toute façon le noyau sera le même. Si on pouvait toujours se limiter à 500 villes ce serait bien. Ça fait quand même déjà 124750 distances à examiner.
Je ne peux pas vous dire comment faire. Il faut que j'y réfléchisse et que je l'écrive. Ça me parait à priori trop compliqué pour beaucoup d'autres que moi, vu que ça l'est déjà pour moi…

Cliquez pour agrandir...

bobland974 à dit:

Bonjour à tous,

Voilà, cela va bientôt faire deux jours que je tourne le problème dans tous les sens et je n'arrive pas à trouver la solution, je me permets donc de venir vers vous afin de solliciter votre aide.

Je dispose d'un fichier excel avec en
- colonne (A) : nom de la ville
- colonne (F) : coordonnée GPS latitude
- colonne (G) : coordonnée GPS longitude
- colonne H, I, J : nom des 3 villes les plus proches que je désire faire ressortir du tableau
> cf. fichier ville_plus_proche.xls

Je suis parti du fichier de base pour essayer d'en découdre avecu ne formule mais rien n'y fait
(copie de ville_proche.xlsx)

Par quel moyen puis-je réussir à y arriver sans créé autrement autant de colonne (distance) qu'il y a de ligne afin de pouvoir faire ressortir une liste de choix des villes les plus proches. A terme le fichier devrait contenir plusieurs milliers de colonnes.

Y a t il pas une solution plus simple à mettre en oeuvre car vu la quantité de ville dont j'ai à ma disposition cela est compliqué ?

Merci par avance pour votre aide,

Cliquez pour agrandir...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Ref_Lat As Double, Ref_Lon As Double, X_lat As Double, X_lon As Double, D As Double
Dim Max_Lat As Double, min_Lat As Double, Max_Lon As Double, min_Lon As Double
Dim message As String, cell As Range
If Target.Column <> 1 Then Exit Sub
Ref_Lat = Target.Offset(0, 5): Ref_Lon = Target.Offset(0, 6)
Max_Lat = Ref_Lat + 0.1: Max_Lon = Ref_Lon + 0.1
min_Lat = Ref_Lat - 0.1: min_Lon = Ref_Lon - 0.1
For Each cell In Range("villes")
If cell.Offset(0, 5) < Max_Lat And cell.Offset(0, 5) > min_Lat And cell.Offset(0, 6) < Max_Lon And cell.Offset(0, 6) > min_Lon Then
D = 111 * ((Ref_Lat - cell.Offset(0, 5)) ^ 2 + (Ref_Lon - cell.Offset(0, 6)) ^ 2) ^ 0.5
message = message & cell & "  " & Format(D, "0.000") & "km" & Chr(10)
End If
Next
MsgBox message
Cancel=True
End Sub