gérer un combobox dans un userform

[glm]

Bonsoir le forum,
je vous sollicite encore une fois
je cherche à afficher une liste de nom dans un combobox(dans un userfom)
La liste est dans une plage
ex:A1:A10
Et suivant le nom affiché dans ce combobox, j'affiche un résultat dans un textbox(dans le même userform)
C'est 1ère fois que je veux utiliser un combobox et j'y arrive pas...
Merci pour votre aide
A+

 

[Eric C]

Bonsoir le forum
Bonsoir glm

Places ce code dans ton UserForm :

Private Sub ComboBox1_Change()
TextBox1 = ComboBox1
End Sub


Private Sub UserForm_Initialize()
ComboBox1.RowSource = 'A1:A10'
End Sub

Bonne soirée à toutes & à tous

 

[porcinet82]

Salut glm, salut Eric C,

Comme j'etais en train de préparer un petit exemple, je te le joint.
Pour remplir la combo, soit tu utilises la solution d'Eric, soit tu vas dans les propriétés de la combo, puis dans RowSource, et tu mets Feuil1!A1:A10

[file name=glm.zip size=9706]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/glm.zip[/file]

@+

 

[glm]

Merci à tous les deux,
c'est parfait
A+
j'aurais surement d'autres questions...
Salut

 

[Robert]

Bonsoir glm, Éric, Porcinet, bonsoir le forum,

Je te propose en pièce jointe une autre méthode pour gérer une ComboBox. La méthode AddItem. Dans l'exemple elle rend la ComboBox dynamique car elle va s'actualiser automatiquement si tu rajoutes ou supprime des Données. [file name=glm_20060218213205.zip size=11788]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/glm_20060218213205.zip[/file]

 

[Hervé]

Bonsoir tout le monde

Comme il ne manquait plus que la méthode list pour que le chapitre soit complet, la voici :

Private Sub UserForm_Initialize()
ComboBox1.List = Range('a1:a' & Range('a65536').End(xlUp).Row).Value
End Sub

salut

 

[Robert]

Bonsoir glm, Eric, Porcinet, Hervé, Bonsoir le forum,

Argh ! Comment n'y ai-je pas pensé avant... Pourtant c'est déjà au moins la troisième fois qu'Hervé me la ressort celle-ci. Elle est tellement simple que le l'oublie à chaque fois. C'est dire si j'en tiens une couche...

Merci Hervé, c'est promis je l'adopte définitivement.