Microsoft 365 Remplir Combobox pas les 12 mois

[iliess]

Bonjour
SVP je souhaite remplir un combobox1 pas les 12 mois au demarage du Userform1
merci
J'ai essayer avec ce code mais ca marche pas

Private Sub UserForm_Initialize()
Me.ComboBox1.List = Array(jan, fev, mars, avr, mai, juin, juil, aout, sept, Oct, nov, dec)
Me.ComboBox1.DropDown
End Sub

 

[soan]

Bonjour iliess,

ton fichier en retour ; clique sur le bouton OK.

---

code VBA de UserForm1 (11 lignes) :

Private Sub cmdVld_Click()
  With ComboBox1
    If .ListIndex > -1 Then MsgBox .Value
  End With
  Unload Me: ActiveCell.Select
End Sub

Private Sub UserForm_Initialize()
  ComboBox1.List = Array("jan", "fév", "mars", "avr", "mai", _
    "juin", "juil", "août", "sept", "oct", "nov", "déc")
End Sub

soan

 

[iliess]

Mille Merci Mr soan
C'est un très jolie et très bon travail.

 

[soan]

merci pour ton retour !

soan