Discussion :

[jmde]

Bonsoir,

Sur mon formulaire j’ai une case à cocher et je voudrais changer la couleur de l’étiquette mais je ni arrive pas avec ce code.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Cocher0_Click()
Dim ctl As Control
Set ctl = ActiveControl
 
If TypeOf ctl Is msforms.CheckBox Then
        If ctl.Value = -1 Then
            ctl.ForeColor = RGB(255,0,0)
        Else
            ctl.ForeColor = 6697728
        End If
    End If
End sub

Merci pour votre aide.

Salutations

[Bevan]

Bonsoir,
L'étiquette est un contrôle indépendant ... ce n'est donc pas sur le contrôle qu'il faut changer le forecolor mais sur le contrôle label qui lui est associé.

Je n'ai jamais trop su s'il était possible de retrouver le label associé à un contrôle (et puis des fois on perd le lien) donc pour ce genre de gâteries j'ai l'habitude de jouer sur des conventions de nommage :
contrôle : "toto" >> label "toto_étiquette"

du coup :

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
 
Const SufxLbl = "_étiquette"
Private Sub Cocher0_Click()
Dim ctl As Control
dim MonLabel as Control
 
Set ctl = ActiveControl
 
If TypeOf ctl Is msforms.CheckBox Then
        set MonLabel = me.controls(ctl.name & SufxLbl)     
        If ctl.Value = -1 Then
            MonLabel .ForeColor = RGB(255,0,0)
        Else
            MonLabel .ForeColor = 6697728
        End If
    End If
End sub

... à tester

[LE VIEUX]

bonsoir
si c'est vraiement la couleur de l'etiquette que tu veux changer tu ne dois pas faire référence au CheckBox mais a son étiquette qui doit s'appeler EtiquetteX. si le E est accentué change le nom si cela t'embettes.

ensuite est-ce la couleur du texte ou du fond -
exemple de code
Ton ChekBox = Cocher8
son Etiquette = etiquette9

Code :

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

1
2
3
4
5
6
7
 
If Cocher8.Value = True Then  'Nom de ton CheckBox
etiquette9.BackColor = RGB(255, 0, 0) ' ou .ForeColor.....
Else
 
etiquette9.BackColor = 6697728 ' ou.ForeColor.....
End If

à+

[jmde]

Bonsoir LE VIEUX,

Merci pour ta réponse, mais c'est la solution de Bevan que je voudrais tester.

Salutations

[jmde]

Bonsoir Bevan,

Merci pour ta réponse, mais le code passe directement à End if

Merci pour ton aide.

Salutations

[Bevan]

Enlève les espaces dans "MonLabel .ForeColor"

Code :

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

MonLabel.ForeColor

[jmde]

Re bonsoir Bevan,

Toutes mes excuses le code fonctionne, j’avais oublié de renommer l’étiquette (Cocher0_étiquette) et remplacer msforms.CheckBox par CheckBox.

Je ne ferme pas le post pour pouvoir poser d’autres questions sur le sujet

Salutations