XL 2013 Complément d'aide sur mon projet

[creolia]

bonsoir à tous Lolote83 ma créer un module de classe qui me permet en passant la sourie sur le label de voir des informations peut t'on avoir la même chose mais cette fois en double cliquant sur le label s'il vous plait merci

https://www.excel-downloads.com/threads/appliquer-une-macro-sous-condition.20027932/#post-20210542

 

[Lolote83]

Salut CREOLIA,
A priori, sans test je remplacerai le code existant du module de classe par celui-ci

'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]

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