Attribute VB_Name = "types" Public Type Connexion Parent As Long Etat As Long PosX As Double PosY As Double End Type Public Type Point_A X As Double Y As Double End Type Public Type Point_B X As Double Y As Double End Type Public Type Point_C X As Double Y As Double End Type Public Type Point_D X As Double Y As Double End Type Public Objet_PAD() As PAD Public Objet_BROCHE() As BROCHE Public NB_PAD As Long Public NB_BROCHE As Long Public Objet_pad_actif As Long Public Objet_broche_actif As Long Public pad_selection As Long '''' Public Const hauteurStd = 200 Public Const largeurStd = 400 Public Const taillepin = 150 Public Const taillepuce = 50 Public Action As String Public MouseX As Integer Public MouseY As Integer Public DifX As Integer Public DifY As Integer Public PinNumSelectionnee As Long Public PinPorteSelectionnee As Long Public PinTypeSelectionnee As String