Distance entre 2 cellules

Bonjour,

Je débute sur VBA et je dois effectuer un programme qui me parait complexe. A partir d'une carte (ci dessous) avec plusieurs points, je dois calculer la distance entre chaque point en faisant un tableau. J'ai vraiment aucune idée pour effectuer cela. Pourriez - vous m'aider ?

J'ai un programme que j'ai trouvé qui m'affiche le tableau mais il ne me calcule pas les distances entres les numéros.

Sub Bouton2_Cliquer()

Dim TCarte(), L As Long, C As Long, TY(1 To 12) As Long, _

TX(1 To 12) As Long, N As Long, TDist(0 To 12, 0 To 12)

TCarte = ActiveSheet.[L1:T10].Value

For L = 1 To UBound(TCarte, 1)

For C = 1 To UBound(TCarte, 2)

N = TCarte(L, C): If N > 0 Then TX(N) = C: TY(N) = L

Next C, L

For L = 1 To 12: TDist(L, 0) = L: TDist(0, L) = L: Next L

For L = 2 To 12: For C = 1 To L - 1

TDist(L, C) = Sqr((TX(C) - TX(L)) ^ 2 + (TY(C) - TY(L)) ^ 2)

TDist(C, L) = TDist(L, C)

Next C, L

ActiveSheet.[K1].Resize(13, 13).Value = TDist

End Sub

Merci

Salut Roro,

à tester

Sub Bouton2_Cliquer()
Dim Rng1 As Range, Rng2 As Range
Dim i As Integer, j As Integer

For i = 1 To 12
    Cells(1, 11 + i).Value = i
    Cells(1 + i, 11).Value = i
Next i

For i = 2 To 13
    For j = 12 To 23
      If Cells(1, j) = Cells(i, 11) Then
        Cells(i, j) = ""
        Else
        Set Rng1 = Range("A1:I10").Find(Cells(1, j))
        Set Rng2 = Range("A1:I10").Find(Cells(i, 11))
        Cells(i, j) = Sqr((Rng1.Row - Rng2.Row) ^ 2 + (Rng1.Column - Rng2.Column) ^ 2)
      End If
    Next j
Next i
End Sub

Bonne journée

Merci beaucoup et sauriez-vous trouver une formule indiquant les distances entre des villes consécutives aléatoires pour que le total des distances soit le minimum. Il s'agit du problème du PVC

Exemple (Le chemin le plus court est 1-2-3-4-5-6-7-8-9-10-11-12) et son total est de 42,7 (image ci dessous)

Mais cela aurait très bien pu être (1-6-2-9-10-12-5-8-3-7-4-11) mais le résultat est plus grand

je comprend pas?? la macro ne fonctionne pas?