Un userform,
une série de labels dont chaque Caption correspond à autant de champs de saisie.
Souhaitant utiliser l'événement MouseDown sur l'ensemble des labels pour afficher un message identique, (masqué par MouseUp) j'ai pensé les grouper et réaliser une procédure unique.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Label Label Label ... Champ Champ Champ ...
Les grouper, l'éditeur vba le permet.
Le controlTipText du groupe fonctionne.
Par contre, impossible de nommer le groupe (comme avec les CheckBox ou OptionButton)
- la propriété GroupeName n'existe pas pour le groupe
- la propriété Name pour le groupe non plus
Les collections :
J'ai testé en créant une collection des différents labels concernés, et un module de classe pour intercepter les événements subis par les labels.
Malheureusement, si les événements DblClick et change sont bien interceptés, il n'en est pas de même des événements MouseDown et MouseUp.
Existerait-t-il une solution "simple", avec des label (sans utiliser des textbox) qui puisse résoudre ce problème :
Par avance, merci de votre réponse.MouseDown sur l'un quelconque de plusieurs labels conduisant à un message unique par une procédure unique.
(MouseUp devant masquer le message)
Partager