inséré le nom d'un label dans une textbox

tototiti2008

XLDnaute Barbatruc

• 16 Décembre 2010

• #2

Re : inséré le nom d'un label dans une textbox

Bonjour cpeens,

pas sûr que ce soit ça, mais bon...

Code:

Private Sub Label1_Click()
    TextBox1.Text = Label1.Name
End Sub

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 16 Décembre 2010

• #3

Re : inséré le nom d'un label dans une textbox

Bonjour,

regarde peut être ceci :

Code:

Private Sub Label1_Click()
TextBox1 = Label1.Name
End Sub

bon après midi
@+

 

Vote positif 0 Vote négatif

C

cpeens

XLDnaute Occasionnel

• 16 Décembre 2010

• #4

Re : inséré le nom d'un label dans une textbox

bonjour tototiti et pierrot merci pour votre code

en revanche je pensais plus dans la mesure du possible quelque chose de plus général

car j'ai à peu prés 200 label un truc qui dés je clique sur un label sont nom va dans la textbox peut importe le label je ne sais pas si cela est posible merci d'avance pour ce code que j'avais déja tester qui est bon pour une dixaine de label mais la sa fais beaucoup.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 16 Décembre 2010

• #5

Re : inséré le nom d'un label dans une textbox

Bonjour Pierrot,
Re,

il faut passer par un module de classe

un fil qui parle de modules de classe, et d'évènement pour le "groupe" des OptionButton
ça devrait être adaptable aux Label


Lien supprimé

 

Vote positif 0 Vote négatif

C

cpeens

XLDnaute Occasionnel

• 17 Décembre 2010

• #6

Re : inséré le nom d'un label dans une textbox

Bonjour tototiti j'ai bien vue ton fil sur les module de classe mais je n'y comprend rien peut tu m'aider si sa te dérangement de me modeler le module de classe stp.

je t'explique un peut si tu je bien m'aider

mes label nom pas tous le meme début de nom et je ne peut pas leur donnée ce même début de nom
donc peut importe le label quand la sourie passe sur celui ci que som nom s'affiche dans une textbox.

si tu veut bien m'aider pour ce passage délicat de mon projet autrement tanpis je te remercie tous de même pour tes pistes.

 

Pièces jointes

• Classeur1(1).xls

  35 KB · Affichages: 41
• Classeur1(1).xls

  35 KB · Affichages: 40
• Classeur1(1).xls

  35 KB · Affichages: 43

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 17 Décembre 2010

• #7

Re : inséré le nom d'un label dans une textbox

Bonjour, Salut tototiti2008

Est-ce-que le fichier joint correspond a ta demande ...?


A +

 

Pièces jointes

• TestLabelClass.xls

  39 KB · Affichages: 50
• TestLabelClass.xls

  39 KB · Affichages: 53
• TestLabelClass.xls

  39 KB · Affichages: 55

Vote positif 0 Vote négatif

C

cpeens

XLDnaute Occasionnel

• 17 Décembre 2010

• #8

Re : inséré le nom d'un label dans une textbox

Bonjour james007 et merci pour ton aide sa fonctionne parfaitement

j'ai juste fais quelque modification car au final c'etait plus partique en passant la sourie sur le label aussi comme je voulais sa s'affiche que dans une seul textbox j'ai modifier comme ceci

Code:

Public WithEvents LabelGroup As MSForms.Label



Private Sub LabelGroup_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim i As Integer
i = Right(LabelGroup.Name, 1)
UserForm1.Controls("TextBox1").Text = LabelGroup.Name
End Sub

donc rien à dire un grand merci à toi et à trés bientot

 

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 17 Décembre 2010

• #9

Re : inséré le nom d'un label dans une textbox

Bonjour cpeens,

Ravi que cela corresponde ...
Mais pour ne pas bugger dans ton appli, je te recommande cette petite modif :

Code:

i = CDbl(Replace(LabelGroup.Name, "TextBox", "", 1))

au lieu du code trop rapidement fait ...

Code:

i = Right(LabelGroup.Name, 1)

A +

A +

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Décembre 2010

• #10

Re : inséré le nom d'un label dans une textbox

Bonjour le fil,

James007 à dit:

Mais pour ne pas bugger dans ton appli, je te recommande cette petite modif :

Code:

i = CDbl(Replace(LabelGroup.Name, "TextBox", "", 1))

au lieu du code trop rapidement fait ...

Code:

i = Right(LabelGroup.Name, 1)

Cliquez pour agrandir...

James, ce ne serait pas plutôt :

Code:

i = CDbl(Replace(LabelGroup.Name, "Label", ""))

et A+

 

Vote positif 0 Vote négatif

C

cpeens

XLDnaute Occasionnel

• 17 Décembre 2010

• #11

Re : inséré le nom d'un label dans une textbox

bonjour et merci Job pour ta modification à trés bientot

 

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 17 Décembre 2010

• #12

Re : inséré le nom d'un label dans une textbox

Merci Job75 ...

faudrait que je me concentre un peu ...

A +

 

Vote positif 0 Vote négatif