Remplir listbox en lignes et colonnes à partir de cellules Fermé

Question

Bonjour à tous,

J'ai une ComboBox dans un UserForm qui me sert à lister des clients. Chaque client possède un ID client.

Mon objectif est d'afficher dans une ListBox l'ensemble des devis liés à ce client. Un devis est composé d'un ensemble de cellule d'une même ligne (de la colonne A à O) et la colonne A correspond à l'ID client.

J'aimerai trouver une solution me permettant, au changement de client, d'afficher un devis par ligne dans la ListBox.

J'ai essayé avec .AddItem (limité à 10 éléments alors que j'en ai 14 à rentrer), avec .List en déclarant le nombre de colonne, avec un tableau mais rien ne fonctionne. Je me suis alors lancé par dépit dans la méthode bourrin en stockant l'ensemble du devis dans une variable que j'affiche ensuite dans la ListBox. Cependant, vu que le texte des cellules n'est pas de la même longueur, rien n'est aligné.

Voici le code à l'heure actuelle :

Code:

Private Sub ComboBox_nom_Change()

Dim derniereligne As Integer
Dim client As String
Dim ID_client As Integer
Dim devis As String

ListBox_historique.Clear
Worksheets("Partie Client").Activate
derniereligne = Cells(Rows.Count, 2).End(xlUp).Row
client = TextBox_nom.Text

For i = 2 To derniereligne
    If Range("B" & i).Value = client Then
        ID_client = Range("A" & i).Value
    End If
Next

Worksheets("Partie Devis").Activate
derniereligne = Cells(Rows.Count, 2).End(xlUp).Row

For i = 2 To derniereligne
    If Range("A" & i).Value = ID_client Then
        devis = 0
        devis = devis + Range("B" & i).Text & "  " & Range("C" & i).Text & " " & Range("D" & i).Text & " " 'etc jusqu'à la clonne O'
        ListBox_historique.AddItem (devis)
    End If
Next
End Sub

Je recevrai volontier toute remarque, conseil ou astuce.

Merci d'avance pour vos retours.

Cordialement, Kiwish.

f894009 · Answer

Bonjour,

Une astuce pour avoir plus de 10 colones dans une listbox:

'listbox plus de 10 colonnes
Dim t(14)   '0 a 13     pour 14 colonnes
Me.ListBox2.Column = t
ListBox2.ColumnCount = 14
ListBox2.BoundColumn = 14
ListBox2.ColumnWidths = "40;40;40;40;40;40;40;40;40;40;40;40;40;40"
Me.ListBox2.Clear
Me.ListBox2.AddItem "COL1"
Me.ListBox2.List(0, 1) = "COL2"
Me.ListBox2.List(0, 2) = "COL3"
Me.ListBox2.List(0, 3) = "COL4"
Me.ListBox2.List(0, 4) = "COL5"
Me.ListBox2.List(0, 5) = "COL6"
Me.ListBox2.List(0, 6) = "COL6"
Me.ListBox2.List(0, 7) = "COL7"
Me.ListBox2.List(0, 8) = "COL8"
Me.ListBox2.List(0, 9) = "COL9"
Me.ListBox2.List(0, 10) = "COL10"
Me.ListBox2.List(0, 11) = "COL11"
Me.ListBox2.List(0, 12) = "COL12"
Me.ListBox2.List(0, 13) = "COL13"
Me.ListBox2.List(0, 14) = "COL14"

Par contre, comprends pas vraiment votre remplissage

f894009 · Answer

Bonjour,

J'imagine qu'il est alors impossible de rentrer une variable en guise de ligne.

Ah que si:

Private Sub CommandButton1_Click()
'listbox plus de 10 colonnes
Dim t(14)   '0 a 13     pour 14 colonnes
Me.ListBox1.Column = t
ListBox1.ColumnCount = 14
ListBox1.BoundColumn = 14
ListBox1.ColumnWidths = "40;40;40;40;40;40;40;40;40;40;40;40;40;40"
Me.ListBox1.Clear
For n = 0 To 20
    Me.ListBox1.AddItem "COL1"
    Me.ListBox1.List(n, 1) = "COL2"
    Me.ListBox1.List(n, 2) = "COL3"
    Me.ListBox1.List(n, 3) = "COL4"
    Me.ListBox1.List(n, 4) = "COL5"
    Me.ListBox1.List(n, 5) = "COL6"
    Me.ListBox1.List(n, 6) = "COL6"
    Me.ListBox1.List(n, 7) = "COL7"
    Me.ListBox1.List(n, 8) = "COL8"
    Me.ListBox1.List(n, 9) = "COL9"
    Me.ListBox1.List(n, 10) = "COL10"
    Me.ListBox1.List(n, 11) = "COL11"
    Me.ListBox1.List(n, 12) = "COL12"
    Me.ListBox1.List(n, 13) = "COL13"
    Me.ListBox1.List(n, 14) = "COL14"
Next n
End Sub

Remplir listbox en lignes et colonnes à partir de cellules

2 réponses

Discussions similaires