Discussion :

[naty76]

Bonjour,

J'ai besoin de changer la couleur de fond de tous mes labels. Ils commencent tous par Lbl. Je sais qu'il y a un manière faire pour leur assigner une autre couleur de fond juste en précisant les premiers caractères sans avoir autant de ligne de commandes que de label.
Cà fait longtemps que je n'ai pas fait çà et du coup, je ne me rappelle plus comment on fait.
Pouvez-vous me rafraichir la mémoire ?

Merci pour votre aide


NATY

[allergique]

Bonjour Naty,

Tu peux essayer ce code si ça te convient

a+

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
 
Dim ctrl As Control
 
For Each ctrl In Me.Controls
 
    If ctrl.Name Like "Lbl*" Then
        ctrl.BackColor = &HFF00&
    End If
 
Next
 
End Sub

[laetitia]

bonsoir naty allergique le forum une autre methode en utilisant TypeOf
change la couleur des labels quelque soit leur nom

Option Explicit

Code :

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

1
2
3
4
5
6
Private Sub CommandButton1_Click()
Dim c As Control
For Each c In UserForm1.Controls
If TypeOf c Is MSForms.Label Then c.BackColor = &HFF&
Next
End Sub

salutations

[naty76]

Merci beaucoup à vous deux, c'est ce qu'il me fallait

Je vais tester les deux !

Bonne soirée

NATY

[allergique]

Re,

Je ne connaissais pas la méthode TypeOf... Merci pour cet exemple

Bonne soirée