Microsoft 365 Remplir Combobox pas les 12 mois

  • Initiateur de la discussion Initiateur de la discussion iliess
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

iliess

XLDnaute Occasionnel
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
VB:
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
 

Pièces jointes

Solution
Bonjour iliess,

ton fichier en retour ; clique sur le bouton OK. 🙂



code VBA de UserForm1 (11 lignes) :

VB:
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
Bonjour iliess,

ton fichier en retour ; clique sur le bouton OK. 🙂



code VBA de UserForm1 (11 lignes) :

VB:
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
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Réponses
9
Affichages
657
Réponses
3
Affichages
665
Réponses
13
Affichages
2 K
Réponses
1
Affichages
984
Réponses
0
Affichages
2 K
Réponses
5
Affichages
1 K
Retour