Tilois
Messages postés721Date d'inscriptiondimanche 10 juin 2001StatutMembreDernière intervention27 mars 20117 24 févr. 2004 à 13:15
Tiens, faut faire gaffe si la line est horizontal vertical ou rien du tout
On aurait pu faire pythagore a tous les coups mais jtrouve pas ca élégant !! ;)
Dim Longueur As Long
If Line1.Y1 = Line1.Y2 Then
Longueur = Abs(Line1.X1 - Line1.X2)
Else
If Line1.X1 = Line1.X2 Then
Longueur = Abs(Line1.Y1 - Line1.Y2)
Else
Longueur = ((Abs(Line1.Y1 - Line1.Y2) ^ 2) + (Abs(Line1.X1 - Line1.X2) ^ 2)) ^ 0.5
End If
End If