OptionButton et date

Dull · 16 Octobre 2005

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 · 16 Octobre 2005

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 · 16 Octobre 2005

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 · 16 Octobre 2005

re,

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

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

@+

OptionButton et date

Dull

XLDnaute Barbatruc

Pièces jointes

FabriceLeManuzien

Guest

Dull

XLDnaute Barbatruc

FabriceLeManuzien

Guest

Discussions similaires

OptionButton et date

Dull

XLDnaute Barbatruc

Pièces jointes

FabriceLeManuzien

Guest

Dull

XLDnaute Barbatruc

FabriceLeManuzien

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency