Discussion :

[Spyral91]

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 :

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

1
2
 
D_Portefeuille.ListBox1.List() = tab_donnees()

Merci d'avance

[BENNASR]

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

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

[Spyral91]

Merci de votre réponse

En entrant ce code avec quelques modif :

Code :

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

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.



J'aurais voulu quelques chose de ce genre:



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 :

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

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

[unparia]

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

[boisgontierjacques]

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 :

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

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 :

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

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

[Spyral91]

Merci pour votre aide, j'ai réussi à m'en sortir

[jeapie15]

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