combobox

[david]

Bonjour,

et encore bravo pour votre site

Je voudrais s'avoir comment alimenter un combobox avec des données
qui se trouvent sur une feuil excel,mais pas en liste verticale mais
horizontale

Merci d'avance pour votre réponse

David

 

[kiorys]

Salut david et le forum

Dim c As Object
For Each c In Range("A1😀1") 'mettre ton range ici
combobox1.additem c.Value
Next

 

[@+Thierry]

Salut David, Kiorys, le Forum

En complément, pour avoir une plage dynamique de "X" colonnes dans la ComboBox :

Private Sub UserForm_Initialize()
Dim c As Range
For Each c In Range("A1", Range("A1").End(xlToRight))
ComboBox1.AddItem c.Value
Next
End Sub


Bon Aprèm
@+Thierry

PS On notera que C as Range est suffisant, inutile dans ce cas de le déclarer as Object, bien plus gourmant en ressource.

 

[david]

Salut,
Merci et milles merci pour les infos

Juste une derniere chose à vous demander:

par rapport a la précédente demande ,si je veux que la même donnée soit afficher selon un clic dans un listbox
ex: si c"Chaussure" est selectioné dans la listbox alors le combobox affiche (toujours en horizontal)les données correspondante.

Merci par avance

A+
David

 

[@+Thierry]

Re Salut David,


Humm Humm, je ne sais pas si tu as remarqué... Mais Excel te permet donc de travailler :

Sur 65536 LIGNES
pour 256 COLONNES

A ton avis, il n'est pas plus aisé de travailler en Longueur plutot qu'en Largeur ?

Car ce que j'ai fais ici :
Lien supprimé est déjà prise de tête sur des tableaux en Longueur, mais le refaire sur un tableau en largeur, c'est carrément ouf !

Mais regarde ce fichier USF_Intelligent_Combo_Reactiv-V01.02 tu devrais déjà voir ce que l'on peut faire en long !!!

Bonne Fin de Journée
@+Thierry