Discussion :

[canary]

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 :

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

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 !

[Didier Gonard]

Bonjour,

vois du genre :

Code :

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

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

[canary]

Bonjour,

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

[Didier Gonard]

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

[canary]

Bonjour,

Merci pour ces réponses !

Alors...après avoir un peu réfléchi 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 :

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

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 !

[Didier Gonard]

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