OptionButton et date

[Dull]

Bonjour le forum

j'ai un petit souci avec mes OptionButton et les dates
Voilà

j'ai 5 OptionButton nommés Eté, Pâques, Pentecôte, Hiver et Toussaint et selon une date donnée comment faire pour que l'OptionButton 'Eté' soit coché a l'ouverture du dossier si la date en A1 est Inférieur à la date en G3 sinon c'est l'OptionButton 'Pâques' qui est coché et ainsi de suite etc...

Bien sûr je joint le Fichier [file name=Saison.zip size=15010]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Saison.zip[/file] pour plus de compréhention

Merci pour votre aide

 

[FabriceLeManuzien]

Bonjour à tous,

Une solution :

Private Sub Workbook_Open()

Sheets('feuil1').Select

Range('H3').Value = False
Range('H5').Value = False
Range('H7').Value = False
Range('H9').Value = False
Range('H11').Value = False

If [A1] < [G11] Then Range('H11').Value = True
If [A1] < [G9] Then Range('H9').Value = True
If [A1] < [G7] Then Range('H7').Value = True
If [A1] < [G5] Then Range('H5').Value = True
If [A1] < [G3] Then Range('H3').Value = True


End Sub

 

[Dull]

Salut FabriceLeManuzien

Merci pour ta réponse ca marche impec

mais si la date en A1 est une formule type =aujourdhui() les réponses ne sont pas celles attendues

Pas grave je vais essayer de cogiter un peu plus

@+ et Merci

 

[FabriceLeManuzien]

re,

Avec une formule en A1, ça fonctionne chez moi.

A noter, rien n'est prévu si A1 > G11

@+