Discussion :

[djnewg]

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 :

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
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
JESSIEV4beta6.xls

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

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

lst.rowsource="Temp!A1Z100"

[djnewg]

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 :

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

lst.rowsource="Temp!A1Z100"

Concrètement lst.rowsource="Temp!A1Z100" vient remplacer additem ???

[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

[boisgontierjacques]

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 :

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