Attribute VB_Name = "Module5" ' connexion leadframe et PAD Public Function chargement(PAD As Long) End Function Public Function connexion(PAD As Long) End Function Private Sub Polaire(ByVal X As Single, ByVal Y As Single) ' trouver l'angle que fait un point (x,y) avec l'axe des x, et sa distance � l'origine. ' En clair, on inverse les relations : ' X = R * Cos(angle) ' Y = R * Sin(angle) ' convertir les radians en degres ' angle = 180 * angle / Pi R = Sqr(X ^ 2 + Y ^ 2) If R = 0 Then Exit Sub If X = 0 Then angle = Sgn(Y) * Pi / 2 Else angle = Atn(Y / X) If X < 0 Then angle = Pi + angle End If If angle < 0 Then angle = angle + 2 * Pi End If End Sub