[Catégorie modifiée VB6 -- VBA] Comment utiliser une propriété du Label qu'on aRésolu

Question

Bonjour,
J'ai nommé les nombreux Labels de ma UserForm : Plot1, Plot2, Plot3,...
En cliquant sur un de ces Labels je voudrais affecter le nombre associé à "Plot" de son nom à une cellule :

Private Sub Plot1_Click()
Range("A1").Value =  1
End Sub

Private Sub Plot2_Click()
Range("A1").Value = 2
End Sub

Existe-t-il une fonction du type ActiveLabel (sur le principe de ActiveCell) qui permettrait d'écrire :

Private Sub Plot1_Click()
a = Right( ActiveLabel.Name , 1)
Range("A1").Value  = a
End Sub

Private Sub Plot2_Click()
a =  Right( ActiveLabel.Name , 1)
Range("A1").Value  = a
End Sub

Merci à tous !

cs_Jack · Accepted Answer

Salut

Et non.
ActiveControl ne fonctionne que sur les composants ayant un Focus, ce qui n'est pas le cas d'un Label.
Tu peux remplacer ton Label par une TextBox que tu verrouilleras (Locked), mais une TextBox n'a pas d'évènement _Click.
Reste le CommandButton

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

coolbehappy · Answer

Salut Jack !
C'est super !! Tu m'apportes une solution et en plus j'ai appris des choses grâce à ta réponse. 
Heureusement j'ai peu de Label à remplacer par des CommandButton.
Merci beaucoup pour ton aide.
++

[Catégorie modifiée VB6 --> VBA] Comment utiliser une propriété du Label qu'on a

2 réponses

Votre réponse

Discussions similaires