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