Autres distance entre deux GPS peu espacés, surface plane

[roger44]

Bonjour
par exemple entre A2: 47.2451598226 ,-1.522547716 et B2 : 47.26,-1.58066

Je cherche une formule magique qui m'évite de créer 4 colonnes avec le souci qu'on n'a pas toujours le même nb de chiffres. Et la valeur -ve de Y à Nantes est une vraie peste.

Office 2000
merci

 

[Dranreb]

Bonkour.
Essayez cette fonction perso :

Function DistGPS(ByVal GPS1 As String, ByVal GPS2 As String) As Double
   Dim TSpl1() As String, TSpl2 As String
   TSpl1 = Split(GPS1, ",")
   TSpl2 = Split(GPS2, ",")
   DistGPS = DistGéo(Val(TSpl1(0)), Val(TSpl1(1)), Val(TSpl2(0)), Val(TSpl2(1)))
   End Function
Function DistGéo(ByVal Lat1#, ByVal Lon1#, ByVal Lat2#, ByVal Lon2#) As Double
   Const RayTerre = 6371, Pi = 245850922 / 78256779
   Lat1 = Lat1 * Pi / 180: Lon1 = Lon1 * Pi / 180: Lat2 = Lat2 * Pi / 180: Lon2 = Lon2 * Pi / 180
   DistGéo = RayTerre * (Pi / 2 - ASin(Sin(Lat2) * Sin(Lat1) + Cos(Lon2 - Lon1)) * Cos(Lat2) * Cos(Lat1))
   End Function

=DistGPS($A2;$B2)

 

[roger44]

Dranreb, merci mais inutilement compliqué. J'ai juste besoin de savoir à peu près combien de centaine de m voir un km ou 2 entre deux événements pour savoir si ç'est suffisamment proche pour que ça puisse éventuellement être le même événement capturé par des appareils dont la précision est faible.

 

[Dranreb]

Qui peut le plus peut le moins. À quoi bon calculer des coefficients approximatifs, la distance du degré de latitude et celui de longitude en France, en vue d'appliquer le théorème de Phytagore ?

 

[Dranreb]

Le problème serait différent si vous souhaitiez projeter sur un plan des villes en ne connaissant que leurs coordonnées GPS.
Il y a ça, en projection stéréographique, dans la feuille "Étude quadrillage" du classeur joint.

 

[roger44]

Si vous pouvez trouver une formule pour la colonne C, je bute sur les complications suivantes que je ne sais traiter que si je rajoute plusieurs colonnes ...... et encore, mais je sais que tout ce n'est un jeu d'enfant pour vous:
-nb de caractères n'est pas constant
-virgule, parfois espace + virgule
-Y toujours -ve

 

[Dranreb]

Voila.
Le code que je vous avais indiqué n'était pas bien bon.

 

[p56]

Bonjour à tous,
Par formule, ici avec latitude et longitude du point A en H6 et I6 et latitude et longitude du point B en H7 et I7, la distance en km est de :
=ACOS(SIN(RADIANS(H6))*SIN(RADIANS(H7))+COS(RADIANS(H6))*COS(RADIANS(H7))*COS(RADIANS(I6-I7)))*6371
Nb avec cette formule les valeurs (de longitude notamment) peuvent être négatives
Source : http://www.movable-type.co.uk/scripts/latlong.html
P