Taille colonne listbox

Private Sub UserForm_Initialize()
Dim tablo As Variant
Dim maximum As Byte, i As Byte

With ListBox1
.ColumnCount = 2
tablo = Range('a1:b10')
maximum = Len(tablo(1, 1))
For i = 2 To UBound(tablo)
If Len(tablo(i, 1)) > maximum Then maximum = Len(tablo(i, 1))
Next i
.Column = Application.Transpose(tablo)
.ColumnWidths = maximum * 5.5 & ';40'
End With

End Sub

Cliquez pour agrandir...