Remplir une Listbox à partir d'une table

Version imprimable

22/03/2017, 14h28
Spyral91

Remplir une Listbox à partir d'une table
Bonjour

J'ai une table de donnée VBA appelé tab_donnees de dimension (100,13) or j'aimerais pouvoir afficher dans une Listbox contenu dans un Userform appellé D_Portefeuille les 10 premières lignes et les 6 premières colonnes. Auriez vous une idée de comment faire ?

Ma table contient en ligne des entreprises et en colonne des informations comme le Rating, Exposition au défaut, le Secteur...etc

En mettant ça, rien ne se passe la listbox reste vide
Code:

1 2 D_Portefeuille.ListBox1.List() = tab_donnees()
Merci d'avance

bonsoir à tous
voila un exemple pour remplir un listbox de 4 colonne à partir du feuil 1

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub UserForm_Initialize()
 
Dim i As Integer
 With Sheets("feuil1")
 j = 0
    For i = 2 To 10
    UserForm1.ListBox1.ColumnCount = 4
    UserForm1.ListBox1.ColumnWidths = "20;20;20;20"
    UserForm1.ListBox1.AddItem
    UserForm1.ListBox1.Column(0, j) = .Cells(i, 1)
    UserForm1.ListBox1.Column(1, j) = .Cells(i, 2)
    UserForm1.ListBox1.Column(2, j) = .Cells(i, 3)
    UserForm1.ListBox1.Column(3, j) = .Cells(i, 4)
    j = j + 1
Next i
End With
End Sub

2 pièce(s) jointe(s)

Merci de votre réponse

En entrant ce code avec quelques modif :
Code:

1 2 3 4 D_Portefeuille.ListBox1.ColumnCount = 11 D_Portefeuille.ListBox1.AddItem D_Portefeuille.ListBox1.Column() = tab_donnees
J'obtient un semblant de résultat bien que ce ne soit pas exactement comme je l'aurais voulu d'autant plus que ca m'oblige à tout prendre alors que je me serait bien passé des titres de colonnes puisque je compte les mettre sur l'Userform. De plus les lignes et colonnes sont inversé, du coup ca ne concorde pas avec le Userform.

Pièce jointe 256677

J'aurais voulu quelques chose de ce genre:

Pièce jointe 256680

Et quand j'essaye sinon ce code, j'ai un message d'erreur "impossible de definir la propriété Column. Index de table de propriété non valide :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 For i = 1 To 10 D_Portefeuille.ListBox1.ColumnCount = 6 D_Portefeuille.ListBox1.AddItem D_Portefeuille.ListBox1.Column(i, 1) = tab_donnees(i, 1) D_Portefeuille.ListBox1.Column(i, 2) = tab_donnees(i, 2) D_Portefeuille.ListBox1.Column(i, 3) = tab_donnees(i, 3) D_Portefeuille.ListBox1.Column(i, 4) = tab_donnees(i, 4) D_Portefeuille.ListBox1.Column(i, 5) = tab_donnees(i, 5) D_Portefeuille.ListBox1.Column(i, 6) = tab_donnees(i, 6) Next

22/03/2017, 16h18
unparia

Bonjour
Intéresse-toi (et utilise-la) à la propriété RowSource de ta listbox.
Tout simplement

2 pièce(s) jointe(s)

Bonjour,

Pour alimenter un listBox , les méthodes les + rapides sont LIST et COLUMN.

Exemple si les colonnes ne sont pas contigues (on prend les colonnes 1,2,4,7):

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub UserForm_Initialize()
  Set f = Sheets("bd")
  Tbl1 = f.Range("A2:G" & f.[A65000].End(xlUp).Row).Value
  Dim Tbl2: ReDim Tbl2(1 To UBound(Tbl1), 1 To 5)
  col = 0
  For Each k In Array(1, 2, 4, 7)
    col = col + 1
    For i = 1 To UBound(Tbl1): Tbl2(i, col) = Tbl1(i, k): Next i
  Next k
   Me.ListBox1.List = Tbl2
End Sub

Autre exemple

Code:

1
2
3
4
5
6
7
 
Private Sub UserForm_Initialize()
  Set f = Sheets("bd")
  Set Rng = f.Range("A2:D" & f.[A65000].End(xlUp).Row + 1)
  Me.ComboBox1.List = Application.Index(Rng, Evaluate("Row(1:" & Rng.Rows.Count & ")"), Array(1, 3, 4))
  Me.ComboBox1.RemoveItem Me.ComboBox1.ListCount - 1
End Sub

Boisgontier

22/03/2017, 19h23
Spyral91

Merci pour votre aide, j'ai réussi à m'en sortir :)
15/04/2021, 18h34
jeapie15

demande d'aide

Salut a tous!!! @boisgontiersjacques j'ai utilisé les codes tout marche à merveille mais, il y a un souci comme quoi lorsqu'il y a une colonne DATE l'heure n'affiche pas correctement.. Est ce qu'il y a un moyen d'afficher l'heure correctement SVP?

Merci d'avance!!