Remplir une Listbox

Version imprimable

20/09/2013, 18h00
Sylvie BASTIEN

Remplir une Listbox

Bonjour,

Sur une feuille "Catégorie Produits", j'ai 3 intitulés de colonnes (en A1, B1 et C1)

Je cherche à remplir une listbox avec le contenu de ces trois cellules.

Mais, comme d'autres cellules peuvent venir se remplir (D1, E1, ...), j'aimerais que VBA détermine le nombre de cellules concernées.

Merci d'avance pour toutes vos suggestions,

Sylvie
20/09/2013, 18h24
casefayere

Bonsoir,

tout ce que tu écris demande quelques précisions.

Citation:

Je cherche à remplir une listbox avec le contenu de ces trois cellules.

C'est une Listbox contenue dans un USF ?

Citation:

...j'ai 3 intitulés de colonnes (en A1, B1 et C1)

Donc j'imagine que les données sont en A2, A3,A4..., B2, B3, B4... et C2, C3, C4... ?

Citation:

Mais, comme d'autres cellules peuvent venir se remplir (D1, E1, ...), j'aimerais que VBA détermine le nombre de cellules concernées.

Là, je ne comprends pas ton problème

Bonne soirée
20/09/2013, 19h15
Sylvie BASTIEN

Bonjour,

Sur une feuille excel, j'ai des catégories de produits situées sur la première ligne de la feuille.

J'ai également des produits situés les uns au dessus des autres sous les catégories.

Dans un userform, j'ai deux listbox. Le premier doit afficher les catégories de produits. Le second listbox affiche les produits correspondants à la catégorie sélectionnée dans le premier listbox.

Il existe de nombreux exemples pour remplir un listbox avec des données situées les unes au dessus des autres et je m'en suis inspirée.

Mais je ne trouve rien pour charger un listbox avec des données situées les unes à coté des autres.

J'espère avoir été plus précise. Merci d'avance,

Sylvie
20/09/2013, 19h47
grisan29

bonsoir Sylvie Bastien, Casefayere et le forum

voici un exemple de remplissage de listbox que je viens de trouver et qui peu t'aider

Pascal
20/09/2013, 20h01
Sylvie BASTIEN

Merci de ta réponse,

Je vais en avoir besoin bientôt.

J'avais déjà posté une demande il y a quelques heures. Le code proposé correspond exactement à ce que je cherchais.

Merci pour ton aide,

Sylvie

bonjour,
sinon pour un début tu peut essayer ça

Code:

1
2
3
4
With Sheets("feuil1")
'pour la listbox des entetes de la premiere a la derniere colonne de la premiere ligne
Me.ListBox1.List = Application.Transpose(.Range(.Cells(1, 1), .Cells(1, .Cells(1, 1).End(xlToRight).Column)).Value)
End With

cordialement