Discussion :

[Sylvie BASTIEN]

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

[casefayere]

Bonsoir,

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

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

C'est une Listbox contenue dans un USF ?

...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... ?

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

[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

[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

[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

[spookyz]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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