Nombre de colonnes max dans une listbo

Bonjour,

J'ai le code suivant qui me permet de récupérer les données d'un tableau Excel a 15 colonnes, cependant l'affichage des colonnes est bloqué a 10 colonnes dans ma listbox je ne sais pas pourquoi je n'arrive pas a afficher les 5 dernières colonnes qui me reste:

Private Sub CommandButton1_Click()
Dim dl As Integer
Dim ws As Worksheet
Set ws = ActiveWorkbook.Worksheets("IT_Maitrisés")
dl = ws.Range("A65530").End(xlUp).Row

UF_IT_Mait.ListBox1.ColumnCount = 15
UF_IT_Mait.ListBox1.ColumnWidths = "40;40;40;40;40;40;40;40;40;40;40;40;40;40;40"
UF_IT_Mait.ListBox1.Clear
For i = 1 To dl
   UF_IT_Mait.ListBox1.AddItem ws.Range("A" & i)
   UF_IT_Mait.ListBox1.List(UF_IT_Mait.ListBox1.ListCount - 1, 1) = ws.Range("B" & i)
   UF_IT_Mait.ListBox1.List(UF_IT_Mait.ListBox1.ListCount - 1, 2) = ws.Range("C" & i)
   UF_IT_Mait.ListBox1.List(UF_IT_Mait.ListBox1.ListCount - 1, 3) = ws.Range("D" & i)
   UF_IT_Mait.ListBox1.List(UF_IT_Mait.ListBox1.ListCount - 1, 4) = ws.Range("E" & i)
   UF_IT_Mait.ListBox1.List(UF_IT_Mait.ListBox1.ListCount - 1, 5) = ws.Range("F" & i)
   UF_IT_Mait.ListBox1.List(UF_IT_Mait.ListBox1.ListCount - 1, 6) = ws.Range("G" & i)
   UF_IT_Mait.ListBox1.List(UF_IT_Mait.ListBox1.ListCount - 1, 7) = ws.Range("H" & i)
   UF_IT_Mait.ListBox1.List(UF_IT_Mait.ListBox1.ListCount - 1, 8) = ws.Range("I" & i)
   UF_IT_Mait.ListBox1.List(UF_IT_Mait.ListBox1.ListCount - 1, 9) = ws.Range("J" & i)
'Pb içi j'arrive pas a afficher les colonnes K==> O 
   UF_IT_Mait.ListBox1.List(UF_IT_Mait.ListBox1.ListCount - 1, 10) = ws.Range("K" & i)
   UF_IT_Mait.ListBox1.List(UF_IT_Mait.ListBox1.ListCount - 1, 11) = ws.Range("L" & i)
   UF_IT_Mait.ListBox1.List(UF_IT_Mait.ListBox1.ListCount - 1, 12) = ws.Range("M" & i)
   UF_IT_Mait.ListBox1.List(UF_IT_Mait.ListBox1.ListCount - 1, 13) = ws.Range("N" & i)
   UF_IT_Mait.ListBox1.List(UF_IT_Mait.ListBox1.ListCount - 1, 14) = ws.Range("O" & i)
Next
UF_IT_Mait.Show
End Sub

Bonjour,

Voici un fil sur le même sujet ...

https://forum.excel-pratique.com/excel/listbox-nombre-de-colonnes-max-79872

ric

Merci pour le lien.

J'ai fais quelques petites recherches et j'ai pu modifié mon code comme suit:

Private Sub CommandButton1_Click()
Run "TraitementIT"
Dim ws As Worksheet
Set ws = ActiveWorkbook.Worksheets("IT_Maitrisés")
'Remplir la listbox
UF_IT_Mait.ListBox1.List = ws.Range("A1:Z100").Value
UF_IT_Mait.ListBox1.ColumnCount = UBound(UF_IT_Mait.ListBox1.List, 2) + 1
UF_IT_Mait.Show
End Sub

Et ça fonctionne