XL 2019 Besoin d'aide calcul distance excel vba

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Décembre 2022

• #2

Bonjour Mmaiga, et bienvenu(e) sur XLD,
Un petit fichier test représentatif serait le bienvenu, cela éviterait des réponses évasives, ou non applicable à votre fichier.

 

Vote positif 0 Vote négatif

M

mmaiga

XLDnaute Nouveau

• 24 Décembre 2022

• #3

Merci @sylvanu pour ce retour rapide.

Vous trouverez ci-joint le fichier Excel.

L'idée est de trouver un doublon de PCI avec des cellules différentes dans un rayon de 15 km ou 20 km. La colonne B correspond à des cellules et la colonne D correspond aux valeurs de PCI suivi des coordonnées GPS . J'aimerais bien afficher dans la colonne E le doublon de PCI.

Si vous avez besoin de plus de précision je serais à votre disposition. J'espère que ma question a été claire..

Dans l'attente de votre retour...


A noter que j'ai enlevé quelques lignes car le fichier était trop volumineux.

 

Pièces jointes

• PCI_doublon.xlsx

  153.9 KB · Affichages: 7

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 25 Décembre 2022

• #4

Bonjour mmaiga,
Rien compris. Désolé.
1- Dans votre fichier vous avez déjà beaucoup de doublons avec même latitude, même longitude.
Par ex lignes 5 et 6 : 35299_001-61 et 35299_001-81, ou encore ligne 7 et 8 : 49373_001-61 et 49373_001-81
Ils seront fatalement doublons.
2- De ce que j'ai compris, pour chaque point définit par Lat et Long de chaque ligne, on recherche les autres points distants de moins de 20km ?
Si c'est ça, ça va être très très long en temps de calcul.
Et que faire si on trouve plusieurs points distant de moins de 20km ?
3- Si c'est bien ça, il faut recourir au VBA, mais acceptez vous des macros VBA ?


NB: pour trouver une distance entre deux points définis par leur lat et long, il suffit de faire par ex dans votre fichier en I2:

VB:

=ACOS(SIN(RADIANS(F2))*SIN(RADIANS(F3))+COS(RADIANS(F2))*COS(RADIANS(F3))*COS(RADIANS(G2-G3)))*6371

qui donnera la distance entre 35299_001-51 et 50416_001-51, soit 117.774 km.

 

Vote positif 0 Vote négatif

M

mmaiga

XLDnaute Nouveau

• 25 Décembre 2022

• #5

sylvanu à dit:

Bonjour mmaiga,
Rien compris. Désolé.
1- Dans votre fichier vous avez déjà beaucoup de doublons avec même latitude, même longitude.
Par ex lignes 5 et 6 : 35299_001-61 et 35299_001-81, ou encore ligne 7 et 8 : 49373_001-61 et 49373_001-81
Ils seront fatalement doublons.
2- De ce que j'ai compris, pour chaque point définit par Lat et Long de chaque ligne, on recherche les autres points distants de moins de 20km ?
Si c'est ça, ça va être très très long en temps de calcul.
Et que faire si on trouve plusieurs points distant de moins de 20km ?
3- Si c'est bien ça, il faut recourir au VBA, mais acceptez vous des macros VBA ?


NB: pour trouver une distance entre deux points définis par leur lat et long, il suffit de faire par ex dans votre fichier en I2:

VB:

=ACOS(SIN(RADIANS(F2))*SIN(RADIANS(F3))+COS(RADIANS(F2))*COS(RADIANS(F3))*COS(RADIANS(G2-G3)))*6371

qui donnera la distance entre 35299_001-51 et 50416_001-51, soit 117.774 km.

Cliquez pour agrandir...

Bonjour Sylvanu,

Je vais éclaircir d'avantage. Pour les cellules 61 et 81 que vous venez de citer ils sont les même PCI dans ce cas en terme de stratégie (pas de doublon) idem pour le 62/82 et 63/83 de la même cellule. Ce que je cherche approximativement c'est d'avoir le même PCI avec des cellules différentes dans un rayon de 15 à 20 KM.

2. A propos de de ta question, oui ce que je cherche.
3. Un code VBA est la bienvenue.


J'aimerais avoir cette approche via ce fichier ci-joint. Si j'arrive à afficher les sites tels que les villes sont affiché ça sera parfait pour moi. Le reste je peux me débrouiller.

J'ai essayé de l'adapter avec mon cas, mais je n'arrive pas car il m'affiche des erreurs dans les calcules

 

Pièces jointes

• Distances entre communes.xlsm

  86.8 KB · Affichages: 10

Vote positif 0 Vote négatif

M

mmaiga

XLDnaute Nouveau

• 25 Décembre 2022

• #6

Voici le résultat. Les calculs ne sont pas correctes. Cette fois-ci je pris par site pour éviter d'avoir le doublon cette fois ci

 

Vote positif 0 Vote négatif

M

mmaiga

XLDnaute Nouveau

• 25 Décembre 2022

• #7

Ci-joint mon fichier.

 

Pièces jointes

• PCI_CONFLIT_macro.xlsm

  583.5 KB · Affichages: 5

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 25 Décembre 2022

• #8

Un essai en PJ avec Worksheet_Change dans la feuille Coordonnées, avec ce que j'ai compris.
La macro est automatique si on modifie La ville de référence en G10 ou la distance max en P1.

 

Pièces jointes

• Distances entre communes.xlsm

  94.6 KB · Affichages: 12

Vote positif 0 Vote négatif

M

mmaiga

XLDnaute Nouveau

• 25 Décembre 2022

• #9

J'ai pas compris, tu peux l'adapter avec le mien SVP

 

Vote positif 0 Vote négatif

M

mmaiga

XLDnaute Nouveau

• 25 Décembre 2022

• #10

Je suis nocive en VBA et j'aurais besoin de votre aide. es que les calculs de la distance sont OK

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 25 Décembre 2022

• #11

C'est le 3eme fichier différent. Donc trois fois le travail.
Pourquoi ne pas mettre le bon fichier et les bonnes explications dès le premier post ?
Je n'avais pas envie de repartir de 0, donc je suis reparti de mon fichier. Voir PJ.
Le temps d'exécution est autour de 5s sur mon PC.
J'ai rajouté dans le statusbar l'évolution des calculs, ainsi que le temps de calcul en G12.

 

Pièces jointes

• Distances entre communes V2.xlsm

  515.7 KB · Affichages: 13

Vote positif 0 Vote négatif

M

mmaiga

XLDnaute Nouveau

• 25 Décembre 2022

• #12

Parfait, possible de mettre les distance sur un deuxieme onglet comme ce modèle ci-joint

 

Pièces jointes

• Capture.PNG

  146.7 KB · Affichages: 36

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 25 Décembre 2022

• #13

Alors à quoi ça sert d'avoir une liste déroulante pour choisir la ville?
Repartez de ma PJ et de mon code, et adaptez le.

 

Vote positif 0 Vote négatif

M

mmaiga

XLDnaute Nouveau

• 25 Décembre 2022

• #14

sylvanu à dit:

Alors à quoi ça sert d'avoir une liste déroulante pour choisir la ville?
Repartez de ma PJ et de mon code, et adaptez le.

Cliquez pour agrandir...

Merci infiniment. Je vais l'adapter. C'est parfait ce que vous avez fait. Vous m'avez vraiment soulager aujourd'hui. Je vais bien respirer

 

Vote positif 0 Vote négatif

M

mmaiga

XLDnaute Nouveau

• 25 Décembre 2022

• #15

Je reviens vers vous dès que j'aurais besoin de sollicitation...

 

Vote positif 0 Vote négatif