cher jean marie
Le fichier est joint pour votre information.
-------------------------------------------------- ----------
Je souhaite importer les noms de mois dans la combobox2 sous forme de noms plutôt que de nombres
Pas comme 1,2,3, comme janvier février mars donc
Avez vous au moins ouvert le fichier que j'ai envoyé ?
Le Combobox2 est déjà rempli.
VB:
Private Sub UserForm_Initialize()
For Ay = 1 To 12
Me.ComboBox2.AddItem Format("1/" & Ay & "/2020", "mmmm")
Next Ay
End Sub
En cadeau, avec des valeurs affichées par défaut :
VB:
Private Sub UserForm_Initialize()
' Years
For Ay = 2020 To 2030
Me.ComboBox1.AddItem Ay
Next Ay
' Months
For Ay = 1 To 12
Me.ComboBox2.AddItem Format("1/" & Ay & "/2020", "mmmm")
Next Ay
' Default value
ComboBox1.ListIndex = 0
ComboBox2.ListIndex = 0
End Sub
Au cas où vous ne connaîtriez pas la méthode List :
VB:
Sub Düðme1_Týkla()
[A1:A12] = "=ROW()"
[B1:B12] = "=PROPER(TEXT(""1/""&RC[-1],""mmmm""))"
With UserForm2
.ComboBox1.List = [A1:A12].Value
.ComboBox2.List = [B1:B12].Value
.Show
End With
End Sub