Salut KissCool, le Forum
Pour te répondre litéralement il faut écrire comme ceci en utilisant la méthode "AddItem" :
Private Sub UserForm_Initialize()
With Me.ListBox1
.ColumnCount = 3
.ColumnWidths = "40,40,40"
.AddItem "Toto"
.Column(1, 0) = "Toto Col 2"
.Column(2, 0) = "Toto Col 3"
.AddItem "Zaza"
.Column(1, 1) = "Zaza Col 2"
.Column(2, 1) = "Zaza Col 3"
.AddItem "Lulu"
.Column(1, 2) = "Lulu Col 2"
.Column(2, 2) = "Lulu Col 3"
End With
End Sub
Mais c'est assez fastidieux de rédiger les codes de cette manière, et celà n'offre aucune évolution....
Non pour les ListBox MultiColonne l'idéal et de laisser tomber la méthode "AddItem" au bénéfice de la méthode "List" comme ceci (par exemple si tes données sont sur une feuille)
Private Sub UserForm_Initialize()
Dim TheData As Variant
TheData = Range("A1:C17")
With Me.ListBox1
.ColumnCount = 3
.ColumnWidths = "40,40,40"
.List = TheData
End With
End Sub
Bonne Programmation, l'Urgent est Fait, L'Impossible est en cours, pour les Miracles prévoir un délai !
Bon Aprèm
@+Thierry