Combobox Format Date

[Didier972]

Bonjour

Voilà, j'ai une combobox qui lorsqu'elle s'initialise prend bien le format Date, mais a partir du moment ou je change le mois elle perd son format, comment faire pour qu'elle le garde.

et idem pour Lab Mois, qui lui affiche le mois en nombre.

Merci

Alors ceci pour l'initialisation de la Combo

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

 

[CHALET53]

Re : Combobox Format Date

Bonjour,

Pour Lab_Mois : mets le format "mmmm"

Pour le changement de mois, il te faut une procédure qui s'exécute à la suite de ton changement dans la combobox

Private Sub Combo_Mois_Change()
Mettre ici le code nécessaire aux modifications que tu souhaites
End Sub

a+

 

[Pierrot93]

Re : Combobox Format Date

Bonjour,

voir aussi ici :
[XL-2010] Combobox Format Date - Forum des professionnels en informatique

bonne journée
@+