Bonjour tout le monde,
Je bloque sur la création d'une macro.
Je m'explique: j'ai un point d'origine et 10 points de livraison. Les 11 points ont des coordonnées x et y.
J'aimerai déterminer via une macro la distance entre tous ces points et l'afficher dans un tableau (nom des colonnes => point d'origine jusqu'au 10e point de livraison et nom des lignes => point d'origine jusqu'au 10e point de livraison). Exemple: on pourrait donc lire dans ce tableau la distance de 1 à 2, de 4 à 2, de 1 à 10, de 0 à 9, etc.
La distance entre deux points se calcule comme cela: racine((x1-x2)²+(y1-y2)²).
Ci-joint la trame excel, les coordonnées des points sont sur l'onglet "Coordonnees" et on essaye de remplir l'onglet "Distance".
J'ai déjà déclaré x et y:
Est-ce que quelqu'un a une idée ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Sub Coordonnees() Dim i As Integer Dim x As Integer Dim y As Integer For i = 2 To 12 x = Worksheets("Coordonnees").Cells(2, i).Value y = Worksheets("Coordonnees").Cells(3, i).Value Next i End Sub
Merci d'avance.
Partager