XL 2013 Complément d'aide sur mon projet

Lolote83

XLDnaute Accro
Salut CREOLIA,
A priori, sans test je remplacerai le code existant du module de classe par celui-ci
Code:
'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
@+ Lolote83
 

creolia

XLDnaute Impliqué
Bonjour Lolote83 et une fois de plus merci pour ton aide précieuse sa fonctionne parfaitement à très bientôt et encore meilleur voeux
 

Discussions similaires


Haut Bas