Discussion :

[dcompan]

Bonjour,

J'ai un fichier Excel qui un 400 lignes et un formulaire pour une association.



Voici le code:

Code :

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

1
2
3
4
5
6
7
Private Sub cboformation_Change()
  ' Active le Tbx si la formation est OUI
  Me.txtdateformation.Enabled = Me.cboformation.Value = "Oui"
End Sub
 
 
End Sub

Le code marche bien mais par contre je voudrai que lorsque la formation NON la date est grisé.

Pour ouvrir le formulaire il faut 2 clics sur le nom de la personne.

Merci de votre aide.

1-Exemple.xlsm

[BENNASR]

bonjour
juste suprimer " ' " devant Me.txtdateformation.Locked = Me.cboformation.Value = "Non" ce qui donne

Code :

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

1
2
3
4
5
Private Sub cboformation_Change()
' Active le Tbx si la formation est OUI
  Me.txtdateformation.Enabled = Me.cboformation.Value = "Oui"
 Me.txtdateformation.Locked = Me.cboformation.Value = "Non"
End Sub

tu peux aussi cacher le textbox avec

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 cboformation_Change()
' Active le Tbx si la formation est OUI
  Me.txtdateformation.Enabled = Me.cboformation.Value = "Oui"
 Me.txtdateformation.Locked = Me.cboformation.Value = "Non"
 If Me.cboformation.Value = "Non" Then
 txtdateformation.Visible = False
 lbldateformation.Visible = False
 Else
 txtdateformation.Visible = True
 lbldateformation.Visible = True
 End If
 
End Sub

[Niagala]

tu peux aussi cacher le textbox avec

On peut aussi griser comme il a demandé au lieu de masquer.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub cboformation_Change()
' Active le Tbx si la formation est OUI
  Me.txtdateformation.Enabled = Me.cboformation.Value = "Oui"
 Me.txtdateformation.Locked = Me.cboformation.Value = "Non"
 
 If Me.cboformation.Value = "Non" Then
 Me.txtdateformation.BackColor = RGB(128, 128, 128)
 
 Else
 Me.txtdateformation.BackColor = RGB(255, 255, 255)
 End If
 
End Sub

[dcompan]

Merci à BENNASR ET à Niagala

C'est tout à fait ce que vouler.

Merci pour tout et la réponse ratide.