Bonjour les amis

J'ai un petit souci d'adaptation dans un listbox,
je rentre des données dans ma feuille, sur une ligne il peut y avoir de 4 à 20 cellule occupé (ceci est aléatoire)
j'ai réussi à remplir la listbox en fonction du nombre de ligne et colonne occupé mais n'arrive pas à trouver l'astuce pour adapter la largeur de colonne (.ColumnWidths)
en fonction de la largeur de mais écriture de feuille.
Car si je laisse tel quel, la largeur par défault (je ne sais pas si on peut la modifier sinon je m'en serai contenté) correspond pour certaine colonne mais coupe d'autres.
J'espère être clair dans ma demande, en vous remerciant.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub UserForm_Initialize()
 
Dim Ws As Worksheet
Dim L As Long
Dim C As Integer
 
Set Ws = Worksheets("FFF-45-FFF")
L = Ws.Cells.SpecialCells(xlCellTypeLastCell).Row
C = Ws.Cells.SpecialCells(xlCellTypeLastCell).Column
 
With ListBox1
    .ColumnCount = C
    .List() = Ws.Range(Ws.Cells(10, 1), Ws.Cells(L, C)).Value
    '.ColumnWidths = "50"  'mon problème est là
End With
 
Set Ws = Nothing
End Sub