'A placer dans un module de classe nommé "Classe1"
'Option Explicit
Public WithEvents MesLbl As MSForms.Label
'-----------------------------------------------------------------------------------------------------------
' LES LABEL
'-----------------------------------------------------------------------------------------------------------
'Private Sub MesLbl_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
' On Error Resume Next
' xNom = MesLbl.Name
' MesLbl.ControlTipText = "ZONE : " & xNom
'End Sub
Private Sub MesLbl_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
xNom = MesLbl.Name
MesLbl.ControlTipText = "ZONE : " & xNom
End Sub