Bonjour,
Une idée.
Une étiquette liée à une zone de texte… qui a pour nom le contenu de l’étiquette.
![](http://claudeleloup.developpez.com/&99/L2886.jpg )
Si on associe un événement « Sur clic » à la zone de texte, il se déclenche aussi si on clique sur l’étiquette.
L’astuce : la zone de texte a une largeur de 0, ça ne mange pas de pain !
Dans mon exemple, je l’ai fait pour Nom2 et Nom3, ça donne ceci :
![](http://claudeleloup.developpez.com/&99/L2887.jpg )
Et si on clique sur l’étiquette « Nom2 » on a
![](http://claudeleloup.developpez.com/&99/L2888.jpg )
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| Option Compare Database
Option Explicit
Private Sub QuiAppelle()
MsgBox Me.ActiveControl.Name
End Sub
Private Sub Nom1_Click()
Call QuiAppelle
End Sub
Private Sub Nom2_Click()
Call QuiAppelle
End Sub
Private Sub Nom3_Click()
Call QuiAppelle
End Sub |
-------
P.-S.
S’il s’agissait d’associer une macro (et non une procédure), la méthode proposée par ilank irait bien, à la ligne 10
Ctrl.OnClick="""NomDeLaMacro"""
Par contre, je ne suis pas arrivé à faire fonctionner le code qu’il propose avec une procédure.
Partager