Discussion :

[denisc15]

Bonjour,

J'ai un grand nombre de controle (label) dans un formulaire dont j'aimerais modifier automatiquement la couleur de fond.

J'ai fait une boucle, pas d'erreur, mais rien ne se passe. J'ai beau chercher, je ne comprends pas ...

Voici mon code (dans une fonction)

Code :

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

1
2
3
4
5
6
7
8
9
Dim Mon_Ctl As control
For Each Mon_Ctl In Me.Form
    If TypeOf ctl Is Label Then
        With Mon_Ctl
            .Enabled = False
            .BackColor = -2147483633
        End With
    End If
Next

Je suis vraiment curieux de comprendre ce qui ne marche pas.

Merci d'avance à ceux qui pourront m'aider.

[User]

Salut,

ton code est sur quel évènement ?

[Invité]

Bonjour

Plusieurs choses font que ton code ne fonctionnera pas

1
Dans cette partie

Code :

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

If TypeOf ctl Is Label Then

se serait plutôt

Code :

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

If TypeOf Mon_Ctl Is Label Then

2
La propriété Enabled n'existe pas dans une étiquette (label).

3
De plus pour que l'étiquette est une couleur de fond, il faut que ton style soit opaque (propriété BackStyle)

Tu devrais avoir un code de ce style.

Code :

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

1
2
3
4
5
6
7
8
9
Dim Mon_Ctl As Control
For Each Mon_Ctl In Me.Form
    If TypeOf Mon_Ctl Is Label Then
        With Mon_Ctl
            .BackStyle = 1
            .BackColor = RGB(200, 200, 255)
        End With
    End If
Next

De plus, tu dis qu'il ne bug pas, cela signifie qu'il ne s'exécute pas, car sinon tu aurait une erreur.
Comme le dit User où est ton code ?

Essaye sur l'évènement Load de ton formulaire.

Starec

[denisc15]

Merci, j'avais effectivement détecté ces erreurs par la suite ; je crois que j'avais juste besoin de dormir un peu pour y voir plus clair !!!

Voilà le code qui marche :

Code :

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

1
2
3
4
5
6
7
8
For Each Mon_Ctl In Me.Form '!Parcours
    If Mon_Ctl.ControlType = acTextBox Then
        If Left(Mon_Ctl.Name, 5) = "CpRT1" Then
            Mon_Ctl.Enabled = False
            Mon_Ctl.BackColor = -2147483633
        End If
    End If
Next