Distance avec SAS
Résolu
MomoAbou
Messages postés
18
Date d'inscription
Statut
Membre
Dernière intervention
-
MomoAbou Messages postés 18 Date d'inscription Statut Membre Dernière intervention -
MomoAbou Messages postés 18 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
je dispose de cette base: https://www.cjoint.com/c/HCwm77Ww0gE
et souhaiterai calculer sous SAS la distance entre les deux points sur la colonne F:
Quelqu'un pourrait m'aider svp?
Merci par avance.
Cdt
je dispose de cette base: https://www.cjoint.com/c/HCwm77Ww0gE
et souhaiterai calculer sous SAS la distance entre les deux points sur la colonne F:
Quelqu'un pourrait m'aider svp?
Merci par avance.
Cdt
A voir également:
- Distance.eu avis
- Allumer pc à distance - Guide
- Camille organise une discussion à distance avec ses 5 cousins qui ont des smartphones mais pas d’ordinateur. - Accueil - Guide téléphones
- Free sas c'est quoi - Forum Virus
- Déclencher appareil photo android à distance - Guide
- Camille ✓ - Forum Cinéma / Télé
2 réponses
Et c'est quoi, ce SAS ? Ce terme n'existe pas dans Excel ...
MomoAbou
Messages postés
18
Date d'inscription
Statut
Membre
Dernière intervention
:) j'en rêve de la retraite mais hélas en suis bien loin. Merci.
Bonjour,
avec une fonction personnalisée :
https://www.cjoint.com/c/HCwrfVeNbQW
eric
PS : Chatenay-malabry est en Suisse maintenant ? :-)
avec une fonction personnalisée :
https://www.cjoint.com/c/HCwrfVeNbQW
eric
PS : Chatenay-malabry est en Suisse maintenant ? :-)
Bonjour,
Alt+F11 puis double-clic sur le Module 1 du projet du classeur (à gauche)
eric
Alt+F11 puis double-clic sur le Module 1 du projet du classeur (à gauche)
Option Explicit
Public Const PI As Double = 3.14159265358979
Function deg2rad(degre As Double) As Double
'Conversion de Radians en Degrés
deg2rad = Application.WorksheetFunction.radians(degre)
End Function
Function ACos(radians As Double) As Double
ACos = Application.WorksheetFunction.ACos(radians)
End Function
Function ASin(radians As Double) As Double
ASin = Application.WorksheetFunction.ASin(radians)
End Function
'distance en 2 points GPS exprimés en ° décimaux
Function distance(latitude1 As Double, longitude1 As Double, latitude2 As Double, longitude2 As Double) As Double
distance = ACos(Sin(deg2rad(latitude1)) * Sin(deg2rad(latitude2)) + Cos(deg2rad(latitude1)) * Cos(deg2rad(latitude2)) * Cos(deg2rad(longitude1 - longitude2))) * 6371
End Function
eric