Combobox Format Date

Didier972 · 13 Novembre 2012

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 · 14 Novembre 2012

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 · 14 Novembre 2012

Re : Combobox Format Date

Bonjour,

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

bonne journée
@+

Combobox Format Date

Didier972

XLDnaute Junior

CHALET53

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Discussions similaires