Créer une liste déroulante avec les dates des 40 derniers jours.

siocnarf · 11 Mai 2011

Bonjour,

J'essaie de faire un formulaire avec une liste déroulante. Dans cette liste déroulante, je veux retrouver toutes les dates des 40 derniers jours.

Si clique sur ma liste déroulante, tout ce que je vois est la date d'aujourd'hui...

Code:

For i = Date To DateAdd("d", -Day(Date - 40) + 1, Date) Step -1
    'Format(i, "yyyy-mm-dd")
    cboDateFin.AddItem Format(i, "yyyy-mm-dd")
    cboDateDebut.AddItem Format(i, "yyyy-mm-dd")
Next

Un petit coup de pouce serait apprécié.

Merci,

François

Pierrot93 · 11 Mai 2011

Re : Créer une liste déroulante avec les dates des 40 derniers jours.

Bonjour,

regarde peut être ceci :

Code:

Dim d As Date
For d = Date To Date - 40 Step -1
    ComboBox1.AddItem d
Next d

bon après midi
@+

john · 11 Mai 2011

Re : Créer une liste déroulante avec les dates des 40 derniers jours.

Salut,

Tu peux faire comme ceci :
Dim i as integer
For i = 1 To 40
nouvdate = Date - i
cboDateFin.AddItem Format(nouvdate, "yyyy-mm-dd") 'ou Format(nouvdate, "dd-mm-yyyy")
cboDateDebut.AddItem Format(nouvdate, "yyyy-mm-dd") 'ou Format(nouvdate, "dd-mm-yyyy")
Next

Ou pour éviter des variables intermédiaires

For i = 1 To 40
cboDateFin.AddItem Format(Date - i, "yyyy-mm-dd")
cboDateDebut.AddItem Format(Date - i, "yyyy-mm-dd")
Next

Bonne journée.

John

Créer une liste déroulante avec les dates des 40 derniers jours.

siocnarf

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

john

XLDnaute Impliqué

Discussions similaires

Créer une liste déroulante avec les dates des 40 derniers jours.

siocnarf

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

john

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency