Discussion :

[Maze0]

Bonjour,

Je cherche une façon de retrouver le contrôle qui à déclenché un événement pour le passer en paramètre dans un sub. Un peu comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Private Sub btnTest_Click()
    Dim cb As MSForms.CommandButton
    'assigner le bouton qui à appeler btnTest_Click() à cb
    MonSub (cb)
End Sub
 
Private Sub MonSub(cb As MSForms.CommandButton)
    'Code du sub
End Sub

Merci

[tedo01]

Bonjour,
Le contrôle qui a déclenché l'évènement donne son nom à la procédure. Dans ce cas, il faut juste écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub btnTest_Click()
    MonSub btnTest
End Sub

[Maze0]

Dans les fait, j'ai plusieurs contrôles qui vont appeler la même procédure. Je veux pouvoir retrouver le contrôle qui à appeler l'évènement sans nécessairement connaître le nom du contrôle et de l'évènement.

Example:

*= n'importe quel caractère chiffre ou lettre.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Private Sub btn****_Click()
    Dim cb As MSForms.CommandButton
    'assigner le bouton qui à appeler btn****_Click() à cb
    MonSub (cb)
End Sub
 
Private Sub btn****_Click()
    Dim cb As MSForms.CommandButton
    'assigner le bouton qui à appeler btn****_Click() à cb
    MonSub (cb)
End Sub
 
 
Private Sub MonSub(cb As MSForms.CommandButton)
    'Code du sub
End Sub

[BlueMonkey]

Bonsoir,

Dans une UserForm :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub CommandButton1_Click()
    Dim cb As MSForms.CommandButton
    Set cb = Me.ActiveControl
    MonSub (cb)
End Sub

[Maze0]

Merci votre solution marche bien avec les CommandButton. Cependant, j'ai besoin de boutons qui peuvent être complètement transparents et quand même clickables. J'utilise donc des labels.

Le problème c'est que lorsque qu'il entre dans l'évènement click du label il ne semble pas l'assigner à Me.ActiveControl. Le Me.ActiveControl reste à Nothing.

[BlueMonkey]

Re.

Pour que la méthode Me.ActiveControl fonctionne, il faut que le composant ait le focus au moment où on lit la propriété.
Les contrôles du type Label ne prennent pas le focus.

Est-ce qu'il est possible d'utiliser des TextBox en passant la propriété Locked à true ?
Pour l'aspect, en retouchant la propriété SpecialEffect et BackColor on doit avoir un aspect assez proche.