désactiver un textbox

Bonjour à tous,

C'est un sujet très facile... mais mon code ne marche pas :(

Voila ce que je veux faire avec mon formulaire :
- J'ai 2 optionbutton : OptionButton_YES et OptionButton_NO, et un textbox : TextBox_TEXTE
- Quand l'utilisateur clique sur YES, je souhaite activer la textbox, sinon, la textbox doit être désactivée.
J'entends par "désactivée" : grisée et non modifiable.

Voici mon code :

Code:

---

1 2 3

Private Sub OptionButton_NO_Click() TextBox_TEXTE.Enabled = OptionButton_NO.Value End Sub

---

Malheureusement, rien ne se passe, la Textbox ne se désactive pas du tout.
Qu'ai-je fait de travers à votre avis ?

Merci par avance !

Bonjour,

vois du genre :

Code:

---

1 2 3

Private Sub OptionButton1_Click() If OptionButton1.Value = False Then Txtbox1.Enabled = False End Sub

---

N'aurais-tu pas intérêt à mettre un CheckBox à la place des tes 2 OptionButton ?

cordialement,

Didier

Bonjour,

C'est mon bouton qui s'appelle "OptionButton_NO" ;)

Bonjour,

tiens, d'ailleurs, un bon truc qui compense les désavantages du VBA en anglais , c'est de mettre les nommages proches des mots clefs en Français, genre OptionButton_Non - OptionButton_Oui, du coup c'est très explicite et il n'y a aucun risque de confusion avec des mots clefs ;)

cordialement,

Didier

Bonjour,

Merci pour ces réponses !

Alors...après avoir un peu réfléchi :oops: je me rends compte que j'ai fais une confusion : j'étais convaincue que le fait de désactiver une TextBox voulait explicitement dire que sa couleur de fond devait passer au gris.. en fait non !
Et deuxième chose : j'ai remplacé mes OptionButton par des CheckBox qui, en effet, simplifie les choses.

Voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub CheckBox1_Click()   'Désactiver TextBox si CheckBox décochée If Me.CheckBox1 = False Then Me.TextBox1.Enabled = False 'Désactiver Me.TextBox1.Value = "" 'Vider la Textbox Me.TextBox1.BackColor = RGB(211, 211, 211) 'Fond gris clair Else Me.TextBox1.Enabled = True 'Activer Me.TextBox1.BackColor = RGB(255, 255, 255) 'Fond blanc End If End Sub

---

Encore merci pour votre aide !

bonjour,

tu as raison pour Enabled et l'estompage, mais c'est faux pour un textbox, ce que tu peux faire aussi , c'est carrément de jouer sur se propriété visible, ce qui fait que l'utilisateur ne s’excite pas sur une textbox bloquée ;)

cordialement,

Didier