CheckBox / Case à cocher

Résolu
cs_kouki69 Messages postés 95 Date d'inscription lundi 27 mars 2006 Statut Membre Dernière intervention 28 août 2015 - 1 juin 2006 à 15:51
cs_franckydeluka Messages postés 228 Date d'inscription mardi 5 avril 2005 Statut Membre Dernière intervention 4 janvier 2008 - 1 juin 2006 à 16:01
Bonjour,
Voila, je souhaite ajouter une valeur dans une textebox lorsque je coche ma case à cocher. De plus, la valeur entrée doit être protégée/
La ligne de commande que j'utilise et qui fonctionne est la suivante :

Private Sub CheckBox1_Click()
If CheckBox1.Enabled = True Then
TextBox1.Value = "TEST"
TextBox1.Locked = True
Else
TextBox1.Value = ""


End If

Mon problème : Si je décide de décocher ma case à cocher, la valeur entrée, ici "TEST" , est conservée alors que je souhaiteria qu'elle disparaisse !
Avez-vous une idée
Merci

2 réponses

Alboure Messages postés 42 Date d'inscription vendredi 10 octobre 2003 Statut Membre Dernière intervention 21 juin 2006
1 juin 2006 à 15:57
Bonjour, remplace enabled par value.
3
cs_franckydeluka Messages postés 228 Date d'inscription mardi 5 avril 2005 Statut Membre Dernière intervention 4 janvier 2008 1
1 juin 2006 à 16:01
Salut

Voici ton code :

If CheckBox1.Value = 1 Then
    TextBox1.Text = "TEST"
    TextBox1.Locked = True
Else
    TextBox1.Text = ""
    TextBox1.Locked = False
End If




Bonne prog







Deluka.
0
Rejoignez-nous