Discussion :

[loucasse]

Bonjour à tous,

Je vous soumet ce bout de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Cocher1_Click()
'Si la case est cochée :
If Cocher1.Value = True Then
'on rend la zone de texte accessible
ut_fr1.Enabled = True
'sinon :
Else
'on enlève le texte contenu dans la zone
ut_fr1.Text = ""
'on rend la zone inaccessible
ut_fr1.Enabled = False
End If
End Sub

Celui ne fonctionne pas. Avez-vous une idée d'où cela vient?
Merci de votre attention

[6ril25]

Salut,

Celui ne fonctionne pas.

comment ça?

[loucasse]

J'ai créé un formulaire dans lequel j'ai mis une case à cocher (Cocher1) et une zone de texte (ut_fr1).
D'après le code, la zone de texte n'est censée être accessible que lorsque la case à cocher est "cochée". Ceci n'est pas le cas.

[6ril25]

oki, donne moi voir le contenu de

Code :

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

msgbox Cocher1.Value

juste à l'entrée de la Sub:

Code :

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

Private Sub Cocher1_Click()

[loucasse]

En fait, c'est le seul et unique code dont je dispose; je n'ai rien d'autre...

[6ril25]

Code :

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

1
2
3
4
 
Private Sub Cocher1_Click()
msgbox Cocher1.Value
End Sub

commente tout le reste du code et va cliquer sur ta checkbox...

[Invité]

Bonjour

Remplaces

Code :

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

ut_fr1.Text = ""

par

Code :

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

ut_fr1.Value = ""

La propriété Text n'est valable que lorsque le contrôle à le focus, hors lorsque tu cliques sur la case à cocher, il n'a plus le focus.

Starec