Discussion :

[Didpa]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[MarcelG]

Bonjour Didier, Bonjour le Forum,

Au préalable, 2 remarques
- Déclarer la même valeur CDate(Date)pour 4 variables est redondant.
- Quand bien même, il ne sert à rien de convertir une date en date.

Je ne vois pas ce que tu changes dans ton formulaire et le résultat attendu.
Peux-tu préciser la nature et le nom de tes contrôles.

Une première approche en simplifiant ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub UserForm_Initialize()
 
Combo_Mois = Format(Date, "mmmm")
TB_Annee = Format(Date, "yyyy")
Lab_Mois = Format(Date, "mmmm")
 
'------------------Remplit 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")
        Combo_Mois.AddItem Mois(i)
Next i
 
End Sub

Bonne journée.