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.
Merci pour votre aide.
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
Salutations
Partager