pompaero
XLDnaute Impliqué
Bonjour le forum
Dans mon projet ci joint, j'ai besoin de case à cocher en lien avec des textbox, chose que j'ai mis en place avec pour chaque checkbox (24 en tout) ce code
Cela permet si checkbox est vrai de mettre son texte en rouge et rendre visible le textbox, sinon son texte en noir et textbox non visible.
J'aimerai améliorer ces codes en passant par un module de classe que je ne maîtrise pas, j'ai tout de même tenté de créer un code dans le module de classe1.
Pourriez-vous m'aider la dessus ?
Merci
Cdlt
pompaero
Dans mon projet ci joint, j'ai besoin de case à cocher en lien avec des textbox, chose que j'ai mis en place avec pour chaque checkbox (24 en tout) ce code
VB:
Private Sub CheckBox1_Click()
CheckBox1.ForeColor = IIf(CheckBox1.ForeColor = 255, 0, 255)
If CheckBox1.Value = False Then
TextBox1.Visible = False
Else
TextBox1.Visible = True
End If
End Sub
J'aimerai améliorer ces codes en passant par un module de classe que je ne maîtrise pas, j'ai tout de même tenté de créer un code dans le module de classe1.
Pourriez-vous m'aider la dessus ?
Merci
Cdlt
pompaero