case à cocher

[lemak]

Bonjour à toutes et à tous
Comment décocher automatiquement une case à cocher après une date prédéfinie.
Exemple : si aujourdhui >30/09/2007, décocher la case à cocher, si non la case reste cocher
Merci d’avance

 

[dg62]

Bonjour lemak

Private Sub UserForm_Initialize()
If Date > '23/04/2006' Then
CheckBox1.Value = False
End If

End Sub

Message édité par: dg62, à: 23/04/2006 12:28

 

[lemak]

Ré bonjour
Merci pour votre aide, j’ai essayé le code mais la case reste toujours cocher après cette date

 

[Dull]

Salut Lemak, DG62, le Forum,

Ou se trouve ta case à cocher: sur la feuille? sur un Userform? est-ce une CheckBox ou une case à Cocher. Si c'est sur un Userform Le code de Didier devrait marcher impec.

Envoi un bout de ton fichier sans données confidentielles

 

[dg62]

re

la checkbox est initialisée à true dans ses propriétés.

dans le code la date est au 22/04

a l'affichage du userform le checkbox est bien à false. [file name=checkbox_20060423133447.zip size=10133]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/checkbox_20060423133447.zip[/file]

 

[lemak]

Ré bonjour
Ma case à cocher se trouve sur la feuille crée à partir de la barre d'outil formulaire et n'est pas un userform
Merci

 

[Dull]

Re le Fil,

Essaye ce fichier

Utilise autant que possible les CheckBox plutot que le Cases à Cocher (Gout Personnel) [file name=lemak.zip size=9268]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/lemak.zip[/file]