Discussion :

[lucie18]

bonsoir
je cherche à griser un bouton si toutes les cases à cochés de ma liste sont décochés
et si cache à coché = coché oui alors dégriser le bouton

voici le code que j'ai mis mais ça ne fonctionne pas

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_Load()
Me.Requery
Me.Refresh
 
If Me.selection = yes Then Me.btn01.Enabled = False
If Me.selection = no Then Me.btn01.Enabled = True
 
End Sub

Je voudrais que :
Si case à coché = coché Alors
btn01 = activé
Sinon si case à coché = tous décoché Alors
btn01 = désactivé

ET que ça s'actualise au clic aussi

Pouvez vous m'aider svp ?

[JeanYves70]

Bonjour,

Déja tu n'exécutes pas ta procèdure sur le bon évenement "Private Sub Form_Load()" : ne fonctionne que sur le chargement du formulaire.

Ensuite tu parles de plusieurs cases à cocher, donc tu dois les tester toutes individuellement :

Code :

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

1
2
3
4
5
If me.coche0 = true and me.coche1 = true and me.coche2 = true then
  me.Btn01.enabled = true
else
  me.btn01.enabled = false
end if

et tu dois mettre le code sur l'évenement aprés mise à jour des différentes coches à tester.

[lucie18]

Merci JeanYves70
J'ai mis le code apresmaj sur les cases à cocher et sur le formulaire à l'ouverture et ça marche Nikel
Merci de m'avoir aidé
Bonne soirée