Liste de la combobox qui s'enrichit des nouvelles entrées

Cekankonvaou · 23 Mai 2013

Bonjour à tous,

J'ai un Userform qui contient une combobox que j'initialise en allant chercher une liste :

Code:

Private Sub UserForm_Initialize()


Me.ComboBox1.List = Sheets(1).Range("A1", "A" & Range("A1000000").End(xlUp).Row).Value

 End Sub


Private Sub CommandButton1_Click()
MsgBox ComboBox1.Value

End Sub

.

Je souhaiterai pouvoir ajouter à ma liste les valeurs que je rentre manuellement dans mon combobox :
1-ma liste contient TOTO & TATA
2-Dans ma combobox, je rentre TUTU (qui va être utilisé par ailleurs dans une macro)
3-ma liste s'enrichit et contient TOTO, TATA & TUTU

Existe t'il un moyen simple d'enrichir ma liste??

Merci d'avance.

Bertrand

pierrejean · 23 Mai 2013

Re : Liste de la combobox qui s'enrichit des nouvelles entrées

Bonjour cekankonvaou (cebientot)

Vois si cela te convient

laetitia90 · 23 Mai 2013

Re : Liste de la combobox qui s'enrichit des nouvelles entrées

bonjour

c'est bien aussi d'exploiter .ListCount

Code:

Feuil1.Cells(ComboBox1.ListCount + 1, 1) = ComboBox1.Value: UserForm_Initialize

bisous Pierre jean

Cekankonvaou · 23 Mai 2013

Re : Liste de la combobox qui s'enrichit des nouvelles entrées

Bonjour PierreJean,

Merci beaucoup, c'est tout à fait ça. J'ai pu adpater sans problème à mon cas et ça fonctionne nickel.

Petite question, histoire que je comprenne un peu ce que je fais :

Code:

If Me.ComboBox9.ListIndex = -1

ça pourrait se traduire par : si l'info rentrée dans la combobox n'est pas dans la liste d'initialisation de la combo???
C'est bien cela??

Bertrand

pierrejean · 23 Mai 2013

Re : Liste de la combobox qui s'enrichit des nouvelles entrées

Re

@ Cekankonvaou
Oui c'est bien ça

@ laetitia
tout a fait OK Bises

Cekankonvaou · 23 Mai 2013

Re : Liste de la combobox qui s'enrichit des nouvelles entrées

Ok,

Merci à vous deux pour vos réponses.

Bertrand

Liste de la combobox qui s'enrichit des nouvelles entrées

Cekankonvaou

XLDnaute Junior

Pièces jointes

pierrejean

XLDnaute Barbatruc

Pièces jointes

laetitia90

XLDnaute Barbatruc

Cekankonvaou

XLDnaute Junior

pierrejean

XLDnaute Barbatruc

Cekankonvaou

XLDnaute Junior

Discussions similaires