vdate

[Evelynetfrancois]

bonsoir tout le monde
j ai dans une boucle for next une plage de dates definie par :
Vdate = 40544 To 40915 pour alimenter 3 combobox
n 'y a til pas plus simple ou du moins pus claire pour definir une année donnée?

For Vdate = 40544 To 40915 'pour alimenter mes combo du 1/1 au 31/12 /2011
For CBo = 3 To 5
Me.Controls("Combobox" & CBo).AddItem Format(Vdate, "dd/mm/yyyy")
Next
Next
ComboBox3.ListIndex = Date - DateSerial(Year(Date), 1, 1)'pour etre à la date du jour

merci d avance pour votre aide et le temps consacré
EetF

 

[Etienne2323]

Re : vdate

Salut EetF,
vous pourriez essayer quelque chose comme ceci :

Private Sub UserForm_Initialize()

Dim Date_Depart As Date, Date_Fin As Date, Ma_Date As Date

Date_Depart = DateSerial(2011, 1, 1) 'Inscrire la date de départ désirée
Ma_Date = Date_Depart - 1
Date_Fin = DateSerial(2011, 12, 31)  'Inscrire la date de fin désirée

While Ma_Date < Date_Fin
    Ma_Date = Ma_Date + 1
    Me.ComboBox3.AddItem Format(Ma_Date, "dd/mm/yyyy")
    Me.ComboBox4.AddItem Format(Ma_Date, "dd/mm/yyyy")
    Me.ComboBox5.AddItem Format(Ma_Date, "dd/mm/yyyy")
Wend

End Sub

Cordialement,

Étienne

 

[klin89]

Re : vdate

Bonsoir Evelynetfrancois,
Bonsoir à tous,

Dim DebDate As Date, FinDate As Date, VDate As Date
DebDate = DateSerial(2011, 1, 1)  
FinDate = DateSerial(2011, 12, 31)

For VDate = DebDate To FinDate
.../...
Next VDate

Je ne sais pas ce que tu entends par plus clair 😕

Klin89

 

[Evelynetfrancois]

Re : vdate

bonsoir etienne2323 klin89 merci beaucoup !!!
c est carrement genial, c est bien ce que j esperais : une date clair en jours mois années
maintenant et t il possible d aller chercher le 2011 sur une feuille
style
DateSerial(2011, 1, 1) en DateSerial(sheets("feuille").range ("a1").value, 1, 1)
ce qui me permettrais de changer l année sans ouvrir vba
merci pour tout
EetF

oups oui ca marche
j ai pose cette question trop vite désole
Date_Depart = DateSerial(Sheets("materiel").Range("j23").Value, 1, 1)
merci beaucoup a vous