Discussion :

[casefayere]

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

[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)

[sefir]

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)

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 :

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

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

[hkpsyco]

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 :

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

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

[casefayere]

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"

[Pierre Fauconnier]

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 :

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

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?

[casefayere]

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

A+