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

[loucasse]

Code :

Private Sub Cocher1_Click()
msgbox Cocher1.Value
End Sub

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

Résultat : si je coche alors valeur = -1

[loucasse]

Ok merci Starec,

j'ai modifié "Text" par "Value" et tout fonctionne normalement.

Merci!

[loucasse]

Maintenant, lorsque j'ouvre mon formulaire ma zone de texte est accessible alors que je souhaiterais qu'elle ne le soit pas (par défaut). Là il faut que je coche puis que je décoche la case à cocher pour que la zone de texte soit inaccessible.

[Invité]

Re

Sur l'évènement Form_Load de ton formulaire tu mets

Code :

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

1
2
3
4
5
6
Private Sub Form_Load()
    With Me
        .Cocher2.Value = ""
        .Texte0.Enabled = False
    End With
End Sub

En l'adaptant avec tes noms.

Starec

[loucasse]

Merci, ce coup-ci, c'est définitivement [Résolu]