ComboBox dans Userform

[Lynk Zel]

Bonjour le forum,

voila je n'arrive pas à coder mes 2 combobox qui sont dans un Userform (un qui s'appelle "ComboMois" et l'autre "ComboAnnee" pour avoir les mois de l'année dans le premier et les année dans le deuxième).
et je voudrais ensuite les afficher lorsque le clique sur un bouton "OK" dans les cellule A1 et B1 pour la première utilisation et ensuite A2 et B2 pour la deuxième et ainsi de suite.....

merci pour votre aide.
😉

 

[BERRACHED said]

Re : ComboBox dans Userform

salut,Lynk Zel

dans userform_Initialize tu met :

Combomois.list= array("Janvier","Fevrier","mars","avril" ect....)
Comboanné.List= array("2009","2010","2011","2012" ect......)

Cordialement

 

[excalibur]

Re : ComboBox dans Userform

bonjour Lynk Zel said le forum un ex:

 

[Lynk Zel]

Re : ComboBox dans Userform

nickel les 2 marche,
je vous remercie

 

[Docken]

Re : ComboBox dans Userform

merci bien pour le fichier
mais je souhaiterais savoir ce que signifie ce code que jai souligné dans ton exemple.
merci pour ton aide 🙂

Private Sub UserForm_initialize()
With Sheets(1): c1.List = Range(.[a1], .[i65536].End(xlUp)).Value: End With
c1.List = Array("Janvier", "Fevrier", "mars", "avril", "mai", "juin", "juillet", "aout", "septembre", "octobre", "novembre", "decembre")
c2.List = Array("2009", "2010", "2011", "2012")
End Sub

 

[excalibur]

Re : ComboBox dans Userform

bonjour le fi le forum pour Docken
With Sheets(1): c1.List = Range(.[a1], .[i65536].End(xlUp)).Value: End With
With Sheets(1) selection de la premiere feuille on aurait ecrire comme cela
With Sheets("feuil1") mais si tu renomes la feuille ca marche plus
je selectionne de la cellule a1 a la derniere cell non vide de la colonne a puis je charge la combobox qui ce nomme c1 c est vrai j aurai du l ecrire comme cela
With Sheets(1): c1.List = Range(.[a1], .[a65536].End(xlUp)).Value: End With
c etait suffisant j avais pris un autre ex: qui envoit les donnees dans des textboxs la plage allait de a1:i68836 .End(xlUp)).Value si tu veux des exemples hesite pas il y a une dizaine de facon de remplir les combobox & listbox avec ses avantages & invonvenients a+

 

[excalibur]

Re : ComboBox dans Userform

re le fil des exemples du grand maitre THIERRY que je salue
j en profite aussi pour saluer SAID pour ces mille posts bravo a+