additem pour listbox

Bonsoir à tous,

N'étant pas assez aguerri, j'aimerais savoir comment alimenter une listbox en fonction d'une autre listbox dont je choisis la ligne.

exemple :
en colonne "A" des catégories, en col "B" des produits faisant partie des catégories et en colonne "G" les prix de chaque produits.
La premire listbox est alimentée par toutes les catégories, je voudrais alimenter la deuxième avec les produits et leur prix en fonction des catégories choisies.
J'espère avoir été explicite et vous remercie d'avance de m'aider

Bonjour casefayere.

Le mieux je pense, est que tu nous montre directement ton classeur Excel afin de voir ce qu'on peut faire pour toi. (Pièce jointe) :king:

Citation:

---

Envoyé par hkpsyco

Bonjour casefayere.

Le mieux je pense, est que tu nous montre directement ton classeur Excel afin de voir ce qu'on peut faire pour toi. (Pièce jointe) :king:

---

bonjour
adapte ce code avec tes besoin
tu doit boucler sur tes informations dans ton fichiers excel puis les mettre dans la listbox avec additem

Code:

---

1 2 3 4 5 6 7

Private Sub UserForm_Initialize() Dim i As integer   For i = 1 To 5 ListBox1.AddItem "Ligne" & i Next i End Sub

---

sinon envoi nous ton fichiers excel
bon courage

tu peux essayer ce code, et l'adapter bien sur :) C'est un truc vite fait, juste pour te montrer le principe. Maintenant je sais pas si ça va te convenir.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Private Sub ListBox1_Click()   ListBox2.Clear   categorie = ListBox1.Value   i = 2   While Cells(i, 2) <> ""   If Cells(i, 1) = categorie Then   ListBox2.AddItem (Cells(i, 2) & " : " & Cells(i, 7) & " €")   End If   i = i + 1   Wend     End Sub

---

Bonjour,
ci-joint le fichier que je crée, je l'ai réduit au maximum pour pouvoir l'envoyer.

Voilà, la feuille catégorie alimente la listbox "catégorie" de l'userform, je voudrais qu'en cliquant sur un élément de cette listbox la deuxième "produit" ne fasse apparaitre que les produits correspondant à la catégorie choisie.

Merci d'avance

ps : j'ai oublié : il me faudrais 2 colonnes dans la listbox produits "la désignation" et le "prix"

Bonjour


Tu peux utiliser le code suivant. Je te conseille de l'étudier et d'essayer de le comprendre.

Le principe est le suivant:
On vide la liste des produits
on mémorise la valeur de la liste des catégories
On scanne chaque cellule de la colonne A de la liste des produits, de la ligne 2 à la dernière ligne. S'il y a correspondance avec la catégorie cherchée,
on ajoute une ligne à la liste en passant le libellé du produit (regarde comment j'ai décalé à partir de la colonne A)
A la ligne ajoutée, on précise la valeur de la colonne 1 (deuxième colonne car l'indice démarre à 0)

Si je n'ai pas pris la bonne colonne de prix, à toi d'adapter.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub ListBoxCATEGORIE_Click() Dim Cellule As Range Dim strCategorie As String   ListBoxproduit.Clear strCategorie = ListBoxCATEGORIE.Value For Each Cellule In Worksheets("references").Range("a2:a" & Worksheets("references").Range("a" & Rows.Count).End(xlUp).Row) If Cellule = strCategorie Then With ListBoxproduit .AddItem Cellule(1, 3) .Column(1, .ListCount - 1) = Cellule(1, 4) End With End If Next Cellule End Sub

---

Ok?

Merci encore, ta solution, Pierre, a été adoptée en 2 secondes j'ai juste eu à changer le prix (je voulais le TTC)

A+