Identifier label puis lien avec textbox

Bonjour,

J'ai un userform avec plein de textbox, chacune son label au dessus, et je cherche un code ou une routine pour que dès qu'on clique sur un label, le format (backcolor) du textbox correspondant change. A noter que pour le textbox "TextboxLambda" son label sera "LabelLambda".

J'ai essayé avec un code utilisant ActiveControl mais j'ai l'impression qu'un label ne peut pas être un contrôle actif...
En creusant on dirant qu'une solution serait les modules de classe mais je ne sans pas du tout utiliser cela...

Merci de votre aide !

Bonjour,
Dans le UserForm, vous double clicquez sur le Label Nom par exemple et vous entrez la nouvelle couleur du TextBox qui lui est "dédié".

Code:

---

1 2 3 4

Private Sub LblNom_Click() 'Mon label s'appelle LblNom et le TextBox rattaché est TxtNom. Il vous faut remplacer par les noms que vous avez choisi TxtNom.BackColor = &H93FFFF End Sub

---

Pièce jointe 626067Pièce jointe 626068

Bonjour et merci pour ta réponse, je me suis mal exprimé, ce que je cherche c'est une routine ou un boucle pour ne pas avoir à écrire ce code pour mes 50 textboxes.
Pour que dès que je clique sur "labelX" alors "textboxX" change de format.

Bonjour,

Citation:

---

J'ai essayé avec un code utilisant ActiveControl mais j'ai l'impression qu'un label ne peut pas être un contrôle actif...

---

Un Label n'est en effet pas un ActiveControl. Pourquoi ne voulez-vous pas simplement changer la couleur du TextBox dès que celui-ci a le focus ?

L'idée est de pouvoir marquer les textboxes que l'on voudra recharger la fois suivante, et ne pas en afficher certaines. Pour cela je change la couleur du textbox, qui changera la couleur de la cellule excel concernée, et lors du chargement du résumé, il n'affichera que les cellules qui sont en couleur.

Bonjour,
Je ne vois pas d'autres solutions que de traiter cela avec un module de classe.
Je voir si j'ai un exemple dans mes cartons

Bonjour,

Pour l'exemple un UserForm nommé UserForm1 avec deux TextBox nommés txtName et txtFirstName et deux Label nommés lblName et lblFirstName
Lorsque l'on clique sur un Label, le TextBox ayant le même suffixe prend la couleur jaune ou blanche (Toggle)

Code du module de classe nommé clsLabel

Code:

---

1 2 3 4 5 6 7 8

Option Explicit Public WithEvents clsLbl As MSForms.Label   Private Sub clsLbl_Click() With clsLbl.Parent.Controls("txt" & Mid(clsLbl.Name, 4)) .BackColor = IIf(.BackColor = vbYellow, vbWhite, vbYellow) End With End Sub

---

Code du UserForm

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Option Explicit Dim Coll As Collection   Private Sub UserForm_Initialize() SetClass End Sub   Private Sub SetClass() Dim myClass As clsLabel Set Coll = New Collection Dim ctrl As Control For Each ctrl In Me.Controls If TypeName(ctrl) = "Label" Then Set myClass = New clsLabel: Set myClass.clsLbl = ctrl Coll.Add myClass Set myClass = Nothing End If Next End Sub

---

Personnellement, je créerais mes TextBox et Label à l'aide d'un module de classe

Pièce jointe 626106

Wahou ça marche bien et effectivement ça demande peu de code, ça a l'air sympa ces modules de classes, je vais essayer de regarder des tutos!

Par contre dans mon cas un bug intervient si on clique sur un label qui n'est pas associé à un textbox. Comment peut on dire de ne rien faire s'il n'y a pas de textbox correspondant au label ?

Merci beaucoup!

Hello,

Citation:

---

Envoyé par mosar3

Par contre dans mon cas un bug intervient si on clique sur un label qui n'est pas associé à un textbox. Comment peut on dire de ne rien faire s'il n'y a pas de textbox correspondant au label ?

---

Dans la classe, il faut tester si le contrôle TextBox associé au label existe. Exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

'Nom des labels : LabelXX - Nom des textbox : TextBoxXX Option Explicit Public WithEvents clsLbl As MSForms.Label Private Sub clsLbl_Click() If Not WidgetExists("TextBox" & Mid(clsLbl.Name, 6)) Then Exit Sub With clsLbl.Parent.Controls("TextBox" & Mid(clsLbl.Name, 6)) .BackColor = IIf(.BackColor = vbYellow, vbWhite, vbYellow) End With End Sub     Private Function WidgetExists(ByVal Name As String) As Boolean On Error Resume Next WidgetExists = Not clsLbl.Parent.Controls(Name) Is Nothing On Error GoTo 0 End Function

---

Ami calmant, J.P

C'est top merci beaucoup !

Bonjour,

Citation:

---

ça a l'air sympa ces modules de classes, je vais essayer de regarder des tutos!

---

Quelques liens sur le sujet (FAQ, Tutoriels, Exemples)

1. FAQ Les modules de classe
2. Access : Modules de classes
3. Création et utilisation de classes personnalisées en VB 6.0 et VBA (partie 1)
4. Office et les modules de classes