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

[siocnarf]

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...

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]

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

Bonjour,

regarde peut être ceci :

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

bon après midi
@+

 

[john]

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