Fonction AddItem d'un ComboBox

[nico]

Bonjour à tous!

Voilà le problème : j'ai une combobox dans un Userform et que j'aimerai, à l'initialisation du UserForm, remplir par le contenu des cellules d'une colonne de la feuille associée.
Exemple:
Alain
Nicolas
Luc
Isabelle
...

Voici ce qui pourrai être dans la colonne B de la feuille, je voudrai que ces valeur soient inscrites dans la combobox à l'initialisation du Userform...
Je pense que la syntaxe pourrait utiliser la fonction "AddItem" mais à voir...

Merci à tous...
;-))))))

 

[Eric_C]

Bonjour le forum
Bonjour nico

La méthode la plus simple :

Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "Alain"
.AddItem "Nicolas"
.AddItem "Luc"
.AddItem "Isabelle"
End With
End Sub

@ + Eric C

 

[Pascal76]

Bonjour

Private Sub UserForm_Initialize()

dim x as integer

for x = 2 to sheets("TaFeuille").range("B65536").end(xlup).row
ComboBox1.AddItem sheets("TaFeuille").range("B" & x)
next

End Sub

Pascal

 

[Jeannot45]

Salut le Forum,

Si la liste est figée dans la feuille on peut aussi la nommer (sélectionner puis insetion/Nom/Définir/Saisir un nom évocateur sans espace
Dans le Userform, dans la fenetre des propriétés de la ComboBox, Propriété : RowSource, indiquer le nom de la liste à récupérer

A+

Jeannot

 

[nico]

Merci pascal!!!

ta fonction fonctionne à priori nikel chrome!!!
Je te remercie beaucoup parce que je n'aurai pas trouvé ça tout seul!!!

@+++++

;-))))))))))))))

 

[cvs]

salut moi j'ai fais comme ça

Private Sub UserForm_Initialize()

Dim Commune As String, z As Integer

z = Range("B101") 'mon compteur sur ma feuille de calcul sachant que je n'aurais jamais + de 100 communes

i = 0
While i < z
i = i + 1
Commune = Sheets("feuil1").Range("A" & i)
ComboBox1.AddItem Commune
Wend


End Sub