Survol des photos

Bonjour

Voila un formulaire ou je visualise des photos et lorsque je passe dessus ces photos j'ai un deuxième formulaire qui s'ouvre avec les détails et la photo, jusqu'ici tout fonctionne très bien. J'aimerai que mon deuxième formulaire se ferme lorsque je ne suis pas dessus une photo?

Mon code ci-dessous

Public WithEvents Trombi As MSForms.Image
Public WithEvents LblNam As MSForms.Label
Const Chemin$ = "J:\covers small\"

Private Sub Trombi_Click()
   crd = CInt(Trombi.Tag)
   Call AfficherUSF
 AfficherUSF Val(Trombi.Tag)
End Sub

Private Sub LblNam_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
   crd = CInt(LblNam.Tag)

        For i = 1 To 13
            UserForm3.Controls("TextBox" & i) = Sheets("Données").Cells(crd + 1, i)
            On Error Resume Next    '(en cas de photos manquantes)
            UserForm3.Controls("Image1").Picture = LoadPicture(Chemin & Arr(crd, 1) & ".jpg")
            On Error GoTo 0
        Next i

   UserForm3.Show

End Sub

Je vous remercie d'avance

Cordialement

Max

Re

Personne a une idée?

Merci

Bonjour valmax

A tester

En récupérant la position de la souris sur l'ecran et en bidouillant un peu les valeurs, tu dois pouvoir en faire quelque chose

Salut Bob

Je te remercie je vais essayer de me dépatouiller.

Bonne soirée et merci encore

Max