1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

XL 2013 Complément d'aide sur mon projet

Discussion dans 'Forum Excel' démarrée par creolia, 8 Janvier 2019.

  1. creolia

    creolia XLDnaute Impliqué

    Inscrit depuis le :
    17 Janvier 2009
    Messages :
    868
    "J'aime" reçus :
    0
    Utilise:
    Excel 2003 (PC)
  2. Chargement...

    Discussions similaires - Complément d'aide sur Forum Date
    Formule qui ne veut pas se valider et demande d'aide sur un complément de formule Forum Excel 11 Juillet 2011
    Complement Excel qui se désactive à chaque lancement Forum Excel 13 Décembre 2018
    XL 2016 Suppression macro complémentaire dans la liste Forum Excel 7 Décembre 2018
    XL 2007 complement qui ne fonctionne pas Forum Excel 24 Juillet 2018
    VBa utilisant un complément - valider automatiquement Forum Excel 10 Octobre 2017

  3. Lolote83

    Lolote83 XLDnaute Accro

    Inscrit depuis le :
    6 Février 2010
    Messages :
    1108
    "J'aime" reçus :
    85
    Sexe :
    Masculin
    Habite à:
    Draguignan
    Utilise:
    Excel 2010 (PC)
    Salut CREOLIA,
    A priori, sans test je remplacerai le code existant du module de classe par celui-ci
    Code (Text):

    '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
     
  4. creolia

    creolia XLDnaute Impliqué

    Inscrit depuis le :
    17 Janvier 2009
    Messages :
    868
    "J'aime" reçus :
    0
    Utilise:
    Excel 2003 (PC)
    Bonjour Lolote83 et une fois de plus merci pour ton aide précieuse sa fonctionne parfaitement à très bientôt et encore meilleur voeux
     

Partager cette page