Sub subCalcul(xPoint As Double, yPoint As Double, xPyl1 As Double, yPyl1 As Double, xPyl2 As Double, yPyl2 As Double)
Dim coefDirAxe As Double, coefDirPerpAxe As Double, droiteAxe As Double, droitePerpAxe As Double
'Coef dir axe
coefDirAxe = (yPyl2 - yPyl1) / (xPyl2 - xPyl1)
MsgBox coefDirAxe
'Coef dir perp axe
coefDirPerpAxe = -((xPyl2 - xPyl1) / (yPyl2 - yPyl1))
MsgBox coefDirPerpAxe
'Droite de l'axe
droiteAxe = yPyl1 - (coefDirAxe * xPyl1)
MsgBox droiteAxe
'Droite perp de l'axe
droitePerpAxe = yPoint - (coefDirPerpAxe * xPoint)
MsgBox droitePerpAxe
End Sub
Sub test()
Call subCalcul(789429.949, 1901391.89786, 789454.56494, 1901402.7416, 789234.81975, 1901429.92468)
End Sub