blord
XLDnaute Impliqué
Bonjour à tous,
J'utilise ce code pour alimenter un listbox multi colonnes :
ListBoxGarantiesGroupe.Clear
Dim K
Dim i
K = 0
With ListBoxGarantiesGroupe
.ColumnCount = 3
.ColumnWidths = "90;450;90"
.ColumnHeads = True
End With
With Sheets("liste")
For i = 2 To .[A65000].End(xlUp).Row
Me.ListBoxGarantiesGroupe.AddItem
Me.ListBoxGarantiesGroupe.List(K, 0) = .Cells(i, 1)
Me.ListBoxGarantiesGroupe.List(K, 1) = .Cells(i, 2)
Me.ListBoxGarantiesGroupe.List(K, 2) = Format(.Cells(i, 3), "0.00")
K = K + 1
Next i
End With
Ce que j'aime avec ce code est qu'il me permet de mettre un format sur chaque colonne de la listebox si désiré, par exemple la ligne :
Me.ListBoxGarantiesGroupe.List(K, 2) = Format(.Cells(i, 3), "0.00")
Par contre, je n'arrive pas a récupérer la première ligne de mes données pour que l'étiquette de chaque colonne soit affichée dans les en-têtes de la listbox ??
Merci pour votre aide....
Benoit Lord
J'utilise ce code pour alimenter un listbox multi colonnes :
ListBoxGarantiesGroupe.Clear
Dim K
Dim i
K = 0
With ListBoxGarantiesGroupe
.ColumnCount = 3
.ColumnWidths = "90;450;90"
.ColumnHeads = True
End With
With Sheets("liste")
For i = 2 To .[A65000].End(xlUp).Row
Me.ListBoxGarantiesGroupe.AddItem
Me.ListBoxGarantiesGroupe.List(K, 0) = .Cells(i, 1)
Me.ListBoxGarantiesGroupe.List(K, 1) = .Cells(i, 2)
Me.ListBoxGarantiesGroupe.List(K, 2) = Format(.Cells(i, 3), "0.00")
K = K + 1
Next i
End With
Ce que j'aime avec ce code est qu'il me permet de mettre un format sur chaque colonne de la listebox si désiré, par exemple la ligne :
Me.ListBoxGarantiesGroupe.List(K, 2) = Format(.Cells(i, 3), "0.00")
Par contre, je n'arrive pas a récupérer la première ligne de mes données pour que l'étiquette de chaque colonne soit affichée dans les en-têtes de la listbox ??
Merci pour votre aide....
Benoit Lord