listbox dynamique - facture

Version imprimable

2 pièce(s) jointe(s)

Bonjour tout le monde,

J'ai crée une listbox qui me donne le sommaire de toutes les factures. voici l'image ci-dessous:
Pièce jointe 502955

lorsqu'on clique sur un item dans la listebox, je veux pouvoir afficher dans une autre listbox tous les items correspondants a cette facture. par exemple la facture 1234 contient 3 items comme vous pouvez voir dans l'image suivante:
Pièce jointe 502952

Je réussi parfaitement a populer ma premiere listbox qui me donne le sommaire de toutes les factures. Mon problème c'est de populer ma deuxieme listbox qui devrait m'afficher tous les items de cette facture. le champ commun que j'utilise est le numero de la facture (invoice #)

ici est le code que j'utilise pour populer ma premiere listbox :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 Sub populatelstSales() Dim ws As Worksheet Dim rng As Range Dim MyArray Set ws = Sheets("SalesRawData") Set rng = ws.Range("B3:R" & ws.Range("B" & ws.Rows.Count).End(xlUp).Row) With Sheets("SALES").lstSales .Clear .ColumnHeads = False .ColumnCount = rng.Columns.Count '~~> create a one based 2-dim datafield array MyArray = rng '~~> fill listbox with array values .List = MyArray '~~> Set the widths of the column here. Ex: For 5 Columns '~~> Change as Applicable .ColumnWidths = "100;100;100;100;100;100;150;" .TopIndex = 0 End With Range("A1").Select End Sub
Pouvez vous svp m'illuminer de comment je pourrai faire pour afficher la liste de tous les items que vous voyez dans la 2e image en fonction de la selection faite dans la premiere listbox (Image 1).

Merci d'avance de votre aide.

Amo

ok j'ai réussi à populer la deuxime listbox a partir de la premiere avec invoice # comme condition mais je réalise qu'en utilisant addItem, je suis limité a 10 colonnes seulement.
voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub populatelstInvoiceItems()
 
Dim ws As Worksheet
Dim rng As Range
Dim LastRow As Long
Dim lC As Integer
Dim r As Integer
 
Set ws = Sheets("PurchaseRawData")
LastRow = ws.Range("C65536").End(xlUp).Row
 
Set rng = ws.Range("C3:Z" & ws.Range("C" & ws.Rows.Count).End(xlUp).Row)
 
lC = 0
    With Sheets("INVOICE ITEMS").lstInvoiceItems
        .Clear
        .ColumnWidths = "120;100;110;120;120;110;110;100"
        For r = 3 To LastRow
            If ws.Cells(r, 3) = Sheets("INVOICE ITEMS").Cells(7, 5) Then
 
                .AddItem
                .List(lC, 0) = ws.Cells(r, 13)
                .List(lC, 1) = ws.Range("N" & r)
                .List(lC, 2) = ws.Range("D" & r)
                .List(lC, 3) = ws.Range("O" & r)
                .List(lC, 4) = ws.Range("D" & r)
                .List(lC, 5) = ws.Range("D" & r)
                .List(lC, 6) = ws.Range("D" & r)
                .List(lC, 7) = ws.Range("D" & r)
                .List(lC, 8) = ws.Range("D" & r)
                .List(lC, 9) = ws.Range("D" & r)
 
                lC = lC + 1
            End If
        Next
        If .ListCount = 0 Then MsgBox "No data found"
    End With
 
End Sub

Le faite d'utiliser un array pourrait régler ce problème mais je n'arrive pas a intégrer ma condition d'afficher uniquement les items dont le invoice est 1234 par exemple, il m'affiche toujours tous les éléments de toutes les factures.

Merci de votre d'avance.

16/09/2019, 15h30
Mimosa777

Bonjour,

si jamais vous avez une idée de comment je pourrai régler mon problème, votre réponse est apprécié d'avance :)
17/09/2019, 16h36
Mimosa777

1 pièce(s) jointe(s)

Selectionner les elements d'une listbox a partir d'une autre

Bonjour,

je ne veux surtout pas etre emmerdant mais je suis vraiment bloqué et je vais essayer d'etre plus descritptif et clair. Tout le dis dans le titre dans ce que j'essaie de faire avec une condition. svp voir fichier joint pour voir se que je tente de faire.
Je tente d'afficher les éléments de la liste box 1 dans la listbox 2 par rapport a la ligne selectionné dans listbox 1. Aussi, je devrais pouvoir afficher plus de 10 colonnes dna sma listbox2 donc je peux pas utuliser addItem c'est la que je bloque completement. Merci enormement pour votre aide.