[Toutes versions] Ajouter une ligne d'un fichier excel dans un Tableau pour ensuite le mettre dans une ListBox

Bonsoir,

Exemple où on prend les colonnes 1,2,4,7

Code:

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

On peut également mettre toutes les colonnes dans le ListBox et cacher des colonnes en mettant 0 comme largeur:

Code:

1
2
3
4
5
6
7
Private Sub UserForm_Initialize()
  Set f = Sheets("bd")
  Set Rng = f.Range("A2:G" & f.[A65000].End(xlUp).Row)
  Me.ListBox1.ColumnCount = 7
  Me.ListBox1.ColumnWidths = "50;50;0;40;0;0;60"
  Me.ListBox1.List = Rng.Value
End Sub

Le calcul des largeurs de colonnes de la ListBox peut être automatisé.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Dim NbCol
Private Sub UserForm_Initialize()
  NbCol = [tableau1].Columns.Count
  Me.ListBox1.ColumnCount = NbCol
  tblBD = [tableau1]
  For i = 1 To UBound(tblBD): tblBD(i, 4) = Format(tblBD(i, 4), "0000.00"): Next i
  Me.ListBox1.List = tblBD
  EnteteListBox
End Sub
 
Sub EnteteListBox()
  x = Me.ListBox1.Left + 8
  Y = Me.ListBox1.Top - 12
  For i = 1 To NbCol
    Set lab = Me.Controls.Add("Forms.Label.1")
    lab.Caption = [tableau1].Offset(-1).Cells(1, i)
    lab.Top = Y
    lab.Left = x
    x = x + [tableau1].Columns(i).Width * 1.1
    temp = temp & [tableau1].Columns(i).Width * 1.1 & ";"
  Next
  temp = Left(temp, Len(temp) - 1)
  Me.ListBox1.ColumnWidths = temp
End Sub

Boisgontier