Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionSub Calcul_distance() Dim i As Integer Dim j As Integer For i = 1 To 10 For j = 1 To 4 Range("E" & i) = Sqr((Range("C" & j) - Range("A" & i)) ^ 2 + (Range("D" & j) - Range("B" & i)) ^ 2) Next j Next i End Sub
Sub Calcul_distance() Dim i As Integer Dim j As Integer Dim distance As Object Set distance = Worksheets("Plan1").Range("F1:F80") For i = 1 To 2 For j = 1 To 80 distance = (Sqr((Range("C" & i) - Range("A" & j)) ^ 2 + (Range("D" & i) - Range("B" & j)) ^ 2)) Next j Range("G" & i) = Application.WorksheetFunction.Min(distance) / 1000 Next i End Sub
Sub Calcul_distance() Dim i As Integer Dim j As Integer dim distance as double dim ou as long ou = 1 For i = 1 To 2 For j = 1 To 80 distance = (Sqr((Range("C" & i) - Range("A" & j)) ^ 2 + (Range("D" & i) - Range("B" & j)) ^ 2)) range("F" & ou).value = distance ou = ou + 1 Next j Next i End Sub