Copier liste des choix d'une combobox dans une colonne

[william68]

Bonjour,

J'aurais juste une petite question de syntaxe.

Je souhaite copier la liste des choix disponibles dans une combobox pour les coller dans une colonne d'une feuille excel.

J'ai essaye des trucs du genre :

Combobox1.List.Value = Sheets("BD").Cells(1,1).Value

mais sans grand succes.

Quelqu'un a une idee de la syntaxe exacte?

Merci d'avance.

 

[Ubot303]

Re : Copier liste des choix d'une combobox dans une colonne

Bonjour à toi,

Il faut une petite boucle.
Listcount te permet d'avoir le nombre d'éléments de ta combo.

Je te poste cela dans qq minutes : urgence la

 

[mutzik]

Re : Copier liste des choix d'une combobox dans une colonne

Bonjour à tous,

sauf qu'en principe, c'est l'inverse qu'on fait, à savoir qu'on alimente une combobox ou listbox ... à partir de cellules d'une feuille

 

[Ubot303]

Re : Copier liste des choix d'une combobox dans une colonne

Désolé... C'est résolu

For Ligne = 1 To ComboBox1.ListCount
Cells(Ligne, 1).Value = ComboBox1.List(Ligne - 1)
Next

Attention : dans cet exemple je n'ai qu'un index (Ligne) donc cela ne marchera que si les deux Index (à savoir le numéro dans la liste de 0 à x, et le numéro de la colonne de 1 à x+1) ont un décalage de 1...

Pas très clair mais bon...

 

[william68]

Re : Copier liste des choix d'une combobox dans une colonne

Merci beaucoup j'etais pas parti comme ca.

Oui dans la logique c'est l'inverse que l'on veut faire mais dans le processus de mon userform je n'arrivais pas a recuperer la bonne liste alors que la ca va directement a la source et je suis sur d'avoir l'info qu'il me faut.

Merci beaucoup.

 

[Ubot303]

Re : Copier liste des choix d'une combobox dans une colonne

L'avantage de la boucle avec Listcount c'est qu'elle s'adapte à n'importe quelle taille de combo...

 

[william68]

Re : Copier liste des choix d'une combobox dans une colonne

Oui voila,

sans ta boucle j'avais des valeurs en trop

 

[job75]

Re : Copier liste des choix d'une combobox dans une colonne

Bonjour,

Une solution sans boucle :

Sheets("BD").Cells(1, 1).Resize(ComboBox1.ListCount) = ComboBox1.List

A+

 

[william68]

Re : Copier liste des choix d'une combobox dans une colonne

Les deux fonctionnent tres bien.

Merci beaucoup