Projet inventaire - problème listbox

Version imprimable

2 pièce(s) jointe(s)

Bonjour tout le monde,

Présentement je travaille sur un fichier d'inventaire et j'aimerais faire un tableau dans un listbox avec le contenue de la base de données créé dans une feuille.
Mais je ne comprends pas comment faire pour avoir plus de 10 column dans le listbox, présentement vous aller me dire mais sur la capture d'écran il y en a moins que dix, c'est normal il y en a des cacher. Dans la BD j'ai l'équivalent de 20 à 30 column.

Voici le code en question je mets aussi la capture d'écran pour comprendre.
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 40 41 42 43 Private Sub ListBoxinventaireint_Click() Dim i As Integer Me.ListBoxinventaireint2.Clear Application.ScreenUpdating = False With Sheets("BDJ") .Range("B2").AutoFilter .Range("B2").AutoFilter field:=2, Criteria1:=Me.ListBoxinventaireint.Value If pl.SpecialCells(xlCellTypeVisible).Rows.Count > 0 Then For Each cel In pl.SpecialCells(xlCellTypeVisible) With Me.ListBoxinventaireint2 .AddItem cel.Value For i = 1 To 9 .Column(i, .ListCount - 1) = cel.Offset(0, i) Next i .Column(9, .ListCount - 1) = cel.Row End With Next cel End If .Range("B2").AutoFilter End With Application.ScreenUpdating = True End Sub Private Sub UserForm_Initialize() Dim dico As Object Dim dl As Integer Set dico = CreateObject("Scripting.Dictionary") With Sheets("BDJ") If .AutoFilterMode Then End If dl = .Cells(Application.Rows.Count, 1).End(xlUp).Row Set pl = .Range("B2:B" & dl) End With For Each cel In pl dico(cel.Value) = "" Next cel Me.ListBoxinventaireint.List = dico.keys End Sub
Merci de votre aide.

En passant je me suis lancer dans un gros projet mais ci certain aurais une curiosité absolue il me ferait plaisir de le partager.

Fichier en question
Pièce jointe 313215

Pièce jointe 313218

20/09/2017, 16h36
Invité

bonjour,
dynamiquement, il n'es pas possible d’aller au delà de 10!

copie col tes données dans un onglet temporaire et affecte le rowSource de ta liste à a plage du cet onglet temporaire!

Code:

lst.rowsource="Temp!A1Z100"
20/09/2017, 16h39
djnewg

Citation:

Envoyé par dysorthographie

bonjour,
dynamiquement, il n'es pas possible d’aller au delà de 10!

copie col tes données dans un onglet temporaire et affecte le rowSource de ta liste à a plage du cet onglet temporaire!

Code:

lst.rowsource="Temp!A1Z100"

Concrètement lst.rowsource="Temp!A1Z100" vient remplacer additem ???
20/09/2017, 16h44
Philippe Tulliez

Bonjour,
En utilisant la propriété RowSource du contrôle ListBox ou ComboBox s'est tout à fait possible d'aller au delà de 10 colonnes.

A lire Utiliser les contrôles dans un UserForm, en VBA Excel

1 pièce(s) jointe(s)

Bonsoir,

-On peut évidement avoir plus de 10 colonnes dans un ListBox.
-On peut paramétrer facilement les colonnes affichées dans un ListBox.

Exemple en PJ

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Option Compare Text
Dim f, BD, ColVisu(), Ncol
Private Sub UserForm_Initialize()
  Set f = Sheets("BD")
  ColVisu = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11,12) ' Colonnes à visualiser   (adapter)
  Ncol = UBound(ColVisu) + 1
  BD = f.Range("A2:L" & f.[A65000].End(xlUp).Row)    ' adapter
   '---- Contenu ListBox initial
   Dim Tbl(): ReDim Tbl(1 To UBound(BD), 1 To Ncol)
   For i = 1 To UBound(BD)
      c = 0
      For Each k In ColVisu
        c = c + 1: Tbl(i, c) = BD(i, k)
      Next k
  Next i
  Me.ListBox1.List = Tbl
End Sub

Boisgontier
http://boisgontierjacques.free.fr