Microsoft Excel est un tableur très polyvalent. Il permet d'effectuer des tâches tellement variées que vous ne pouvez même pas l'imaginer. Vous pouvez même calculer la distance entre deux adresses dans Excel. Si vous avez une liste d'adresses et que vous voulez trouver la différence entre elles, vous pouvez bien sûr utiliser MS Excel. Vous pouvez également calculer la distance manuellement, mais cela prendrait trop de temps. Comme vous avezAinsi, dans cet article, je vous montrerai comment calculer la distance en voiture entre deux adresses dans Excel.

Télécharger le cahier d'exercices

Vous pouvez télécharger le fichier Excel à partir du lien suivant et vous entraîner avec lui.

2 façons efficaces de calculer la distance en voiture entre deux adresses dans Excel

1. utilisation des fonctions trigonométriques pour calculer la distance parcourue en voiture

Ici, je vais vous montrer comment combiner différents fonctions trigonométriques pour calculer la distance en voiture entre deux adresses dans Excel.

Pour vous donner un exemple, j'ai pris deux adresses. La première adresse est MacArthur Park, Camden NSW, Australie Sa latitude et sa longitude sont 34.06312149 et -118.2783975 La deuxième adresse est Jersey City, New Jersey, États-Unis Sa latitude et sa longitude sont 40.71799929 et -74.04276812 respectivement.

Maintenant, je vais combiner les ACOS , COS , SIN , & ; RADIENS pour créer une formule qui calculera effectivement la distance en kilomètres entre deux adresses.

Pour ça,

❶ Sélectionnez la cellule D8 d'abord.

❷ Puis insérez la formule suivante dans la cellule.

❸ Après cela, appuyez sur la touche ENTER bouton.

Maintenant, vous verrez que la formule a calculé la distance à parcourir entre les points suivants MacArthur Park, Camden NSW, Australie, et Jersey City, New Jersey, États-Unis en miles. Ainsi, vous verrez le résultat dans la cellule D8 qui est 2445.270922 miles.

Répartition des formules

• COS(RADIANS(90-C6)) *COS(RADIANS(90-C5)) - le RADIENS convertissent les valeurs en radians et les fonctions COS fournit le cosinus des valeurs, les cosinus pour la latitude sont alors multipliés. Sortie - 0.365377540842758
• COS(RADIANS(D6-D5)) - fournit la valeur du cosinus pour la différence de longitude entre les deux adresses. Sortie - 0.716476936499882

• SIN(RADIANS(90-C6)) *SIN(RADIANS(90-C5)) - calcule la déviation des longitudes à partir de 90 radians et multiplie les valeurs du sinus. Sortie - 0.627884682513118

• SIN(RADIANS(90-C6)) *SIN(RADIANS(90-C5)) *COS(RADIANS(D6-D5)) - devient 0,627884682513118 * 0,716476936499882. Sortie - 0.449864893802199

• COS(RADIANS(90-C6)) *COS(RADIANS(90-C5)) +SIN(RADIANS(90-C6)) *SIN(RADIANS(90-C5)) *COS(RADIANS(D6-D5)) - devient 0,365377540842758 * 0,449864893802199. Sortie - 0.815242434644958

• Ensuite, le ACOS la fonction arccosine la valeur. Sortie - 0.617648629071256

• Enfin, en multipliant la valeur par 3959 - 0.617648629071256 *3959 fournit le résultat en miles. Sortie - 2445.270922

Lire la suite : Comment calculer les kilomètres entre deux adresses dans Excel (2 méthodes)

2. calculer la distance en voiture entre deux adresses en utilisant le code VBA

Dans cette section, je vais utiliser un VBA pour créer une fonction définie par l'utilisateur, puis j'utiliserai cette fonction pour calculer la distance en voiture entre deux adresses dans Excel.

Ici, j'utilise deux adresses. La première adresse est MacArthur Park, Camden NSW, Australie Sa latitude et sa longitude sont 34.06312149 et -118.2783975 La deuxième adresse est Jersey City, New Jersey, États-Unis Sa latitude et sa longitude sont 40.71799929 et -74.04276812 respectivement.

Au je vais générer des coordonnées pour chacune des adresses. Une coordonnée est une combinaison de latitude et de longitude. Pour générer une coordonnée,

• Tapez d'abord la latitude d'une adresse.
• Puis insérez une virgule.
• Ensuite, tapez la longitude de la même adresse.

Donc la coordonnée de la première adresse est 34.0631214903094,-118.27839753751 Et la coordonnée de la seconde adresse est 40.7179992930381,-74.0427681204225 .

Le site VBA Le code exige un API d'une carte pour calculer la distance en voiture. Le API signifie "interface de programmation d'applications". Vous pouvez utiliser une interface de programmation d'applications (API). API pour connecter soit le Google Map ou le Carte Bing selon votre préférence.

Mais la création de la API Google Map est payante. Au contraire, vous pouvez créer une API de la Bing MAP gratuitement.

Ainsi, j'utilise le API Bing MAP ici.

• Pour créer un API Bing MAP , cliquez ici .

J'ai créé un API . je joins le API ci-dessous :

Maintenant, il est temps d'écrire le VBA code. Pour ça,

• Appuyez sur ALT + F11 pour ouvrir le Éditeur VBA .
• Maintenant, allez à Insérer ➤ Module pour ouvrir un nouveau module.

Après avoir ouvert le Éditeur VBA insérer le texte suivant VBA dans le module ouvert.

 Option Explicit Public Function Driving_Distance(startlocation As String, destination As String, keyvalue As String) Dim First_Value As String, Second_Value As String, Last_Value As String, mitHTTP As Object, mitUrl As String First_Value = "//dev.virtualearth.net/REST/v1/Routes/DistanceMatrix?origins=" Second_Value = "&destinations=" Last_Value = "&travelMode=driving&o=xml&key="& ; keyvalue & ; "&distanceUnit=mi" Set mitHTTP = CreateObject("MSXML2.ServerXMLHTTP") mitUrl = First_Value & ; startlocation & ; Second_Value & ; destination & ; Last_Value mitHTTP.Open "GET", mitUrl, False mitHTTP.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible ; MSIE 6.0 ; Windows NT 5.0)" mitHTTP.Send ("") Driving_Distance =Round(Round(WorksheetFunction.FilterXML(mitHTTP.ResponseText, "//TravelDistance"), 3), 0) End Function 

Découpage du code

• Ici, j'ai créé une fonction définie par l'utilisateur appelée Driving_Distance.
• Ensuite, j'ai utilisé 3 paramètres : lieu de départ , destination et valeur de la clé. Il s'agit de la position des deux adresses et de l'adresse de l'entreprise. API respectivement.
• J'ai ensuite utilisé plusieurs variables telles que Première_Valeur , Deuxième_Valeur , Dernière_valeur , mitHTTP , & ; mitUrl. Ces variables sont utilisées pour stocker différentes valeurs.
• Ensuite, on combine les valeurs (stockées dans mitUrl ) et a utilisé plusieurs méthodes objet ( Ouvrir , SetRequestHeader , Envoyer ). C'est ainsi que j'ai réussi à calculer la distance à parcourir par le biais de la API .

Ce site VBA Le code génère une fonction définie par l'utilisateur appelée Distance à parcourir .

La fonction Distance à parcourir nécessite 3 arguments au total.

Voici la syntaxe générique de la fonction Distance à parcourir fonction.

Maintenant, il est temps d'appliquer la fonction définie par l'utilisateur. Pour cela,

• Sélectionner la cellule E10 .
• Insérez ensuite la formule suivante :

• Maintenant, appuyez sur ENTER .

Répartition des formules

• E5 est le Coordonnées de l'emplacement de départ (Start_Location_Coordinate) .
• E6 est le Coordonnée_de_l'emplacement_final .
• C8 est le API de la Bing MAP .

Cette fonction calcule la distance en kilomètres entre deux adresses. Consultez la cellule E10 Il verra le numéro, 2790 .

Donc la distance à parcourir entre MacArthur Park, Camden NSW, Australie, et Jersey City, New Jersey, États-Unis est 2790 miles.

Lire la suite : Comment calculer la distance entre deux adresses dans Excel (3 façons)

Section pratique

Vous obtiendrez une feuille Excel comme la capture d'écran suivante, à la fin du fichier Excel fourni, où vous pourrez mettre en pratique toutes les méthodes abordées dans cet article.

Conclusion

En résumé, j'ai abordé 2 façons de calculer la distance en voiture entre deux adresses dans Excel. N'hésitez pas à poser vos questions dans la section des commentaires ci-dessous. Nous nous efforcerons de répondre à toutes les demandes pertinentes dès que possible. Et n'hésitez pas à visiter notre site web Exceldemy pour en savoir plus.