Discussion :

[mosar3]

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 !

[Transitoire]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mosar3]

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.

[Philippe Tulliez]

Bonjour,

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 ?

[mosar3]

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.

[Philippe Tulliez]

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

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mosar3]

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!

[jurassic pork]

Hello,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mosar3]

C'est top merci beaucoup !

[Philippe Tulliez]

Bonjour,

ç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