1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Private Sub UserForm_Initialize()
TB_Jour = CDate(Date)
TB_Jour = Format(TB_Jour, "dd")
Combo_Mois = CDate(Date)
Combo_Mois = Format(Combo_Mois, "mmmm")
TB_Annee = CDate(Date)
TB_Annee = Format(TB_Annee, "yyyy")
Lab_Mois = CDate(Date)
Lab_Mois = Format(Lab_Mois, "mm")
'------------------Rempli la Combobox-------------------------
Dim Mois(1 To 12) As String
Dim i As Integer
' Création d'un tableau des noms de mois
For i = 1 To 12
Mois(i) = Format(DateSerial(1, i, 1), "mmmm")
Me.Combo_Mois.AddItem Mois(i)
Next i
end sub |
Partager