Re : AutoSize des colonnes d'une ListBox
Bonjour apt, le forum
A adapter
Dim a As Range, x, b, tablo
For x = 1 To 3 'pour 3 colonnes
Set a = Feuil1.Cells(1, x)
b = b & ";" & a.ColumnWidth * 5 'A adapter suivant police
Next
b = Mid(b, 2)
ListBox1.ColumnWidths = b
tablo = Feuil1.Range("a1:c10")
ListBox1.List = tablo
Cordialement