Bonsoir le fil
Sinon une solution peut-être toute bête
Quand l'utilisateur clique sur le bouton, "frmACList" s'affiche
Pour sélectionner une des lignes de cet USF, il doit descendre sa souris (logiquement)
Donc la borne haute Y de l'USF est 17, alors en déclarant en entête de l'SUF
Dim FlgExit As Boolean
ce genre de code pourrait peut-être fonctionner (à voir)
Private Sub lvwAC_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As stdole.OLE_XPOS_PIXELS, ByVal y As stdole.OLE_YPOS_PIXELS)
' Si souris passe sur les côté ou en bas
If x = 0 Or x = 570 Or y = 469 Then Unload Me
' si souris passe par le haut, 1ère fois ok
If y = 17 Then
If FlgExit = False Then
FlgExit = True
Else ' Seconde fois on sort
Unload Me
End If
End If
End Sub
A+