Récupération du nom d'un Label

[Temjeh]

Bonjour et merci d'avance

Oui y a t-il un code pour récupérer le nom du label, pas le caption

Ex:
Private Sub Label24_Click()

Résultat: Label24

Du genre Me.Control.Label.name
Merci

Temjeh

 

[youky(BJ)]

Re : Récupération du nom d'un Label

Bonjour,

Si le label est sur un onglet
MsgBox Application.Caller

Si le label est en userform
MsgBox ActiveControl.Name

A+
Bruno

 

[job75]

Re : Récupération du nom d'un Label

Bonjour Temjeh,

Surtout s'il y a plusieurs Labels, on peut utiliser un Module de classe, nombreux exemples sur le forum.

Le code dans le Module de classe sera par exemple :

Public WithEvents LB As MSForms.Label

Private Sub LB_Click()
MsgBox LB.Name
End Sub

Edit : salut Bruno, oui c'est bien plus simple 🙂

A+

 

[Temjeh]

Re : Récupération du nom d'un Label

Merci de votre temps

Pour bruno, il ne me donne pas le nom du label que je clic, mais celui de mon TextBox1 (.setFocus à l'ouverture du UF)

Pour job75, pas possible de le mettre dans le UserForm?

Temjeh

 

[job75]

Re : Récupération du nom d'un Label

Re,

S'il y a un seul Label on peut toujours mettre dans le code de l'USF :

Private Sub Label1_Click()
Dim c As Control
For Each c In Controls
  If TypeName(c) = "Label" Then MsgBox c.Name
Next
End Sub

A+

 

[Temjeh]

Re : Récupération du nom d'un Label

Merci

Le prob est que j'en ai 25!

Pas si grave. C'était pour simplifier car je voulais y mettre une variable.

Je vais y mettre une variable en 1ère ligne qui est du nom de control

Merci

 

[job75]

Re : Récupération du nom d'un Label

Re,

Le prob est que j'en ai 25!

Dans ce cas un Module de classe s'impose, c'est fait pour ça (entre autre).

A+