Récupération du nom d'un Label

youky(BJ)

XLDnaute Barbatruc

• 10 Novembre 2014

• #2

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Novembre 2014

• #3

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 :

Code:

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+

 

Dernière édition: 10 Novembre 2014

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 10 Novembre 2014

• #4

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Novembre 2014

• #5

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 :

Code:

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+

 

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 10 Novembre 2014

• #6

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Novembre 2014

• #7

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

Re,

Temjeh à dit:

Le prob est que j'en ai 25!

Cliquez pour agrandir...

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

A+

 

Vote positif 0 Vote négatif