Discussion :

[chinex]

bonjour a tous
voila je cherche à adapter la largeur de ma listbox en fonction de son contenu
j'ai excel 2000 j'utilise une listbox a deux colonnes

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
Private Sub UserForm_Initialize()
 
    NbDepartements = Range("E65536").End(xlUp).Row - 1
    NbFournisseurs = WorksheetFunction.Sum(Range("F2:F65536"))
    Sheets("Feuil2").Cells(1, 6) = NbFournisseurs
    Sheets("Feuil2").Cells(1, 7) = NbDepartements
    Label4.Caption = NbFournisseurs & " fournisseurs répartis dans " & _
    NbDepartements & " départements"
    For n = 2 To Range("E65536").End(xlUp).Row
        ListBox1.AddItem (Range("E" & n))
        ListBox1.List(i, 1) = Range("F" & n)
        i = i + 1
    Next n
End Sub
 
'¤¤¤¤COMMENT DOIS-JE CONFIGURER   LA LARGEUR DE MES COLONNES?¤¤¤¤¤
'ListBox1.ColumnWidths = AutoSize ??

[AlainTech]

Je ne pense pas qu'il existe un ajustement automatique à la taille du contenu mais tu peux forcer une taille comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ListBox1.ColumnWidths = "50; 50"

[chinex]

ok AlainTech
je teste de suite

j'ai appliqué selon mes besoins
ListBox1.ColumnWidths = "160; 10"

merci Alain c'est

[apt]

Bonjour à tous,

Il y'a un petit exemple qui facilite le redimensionnement automatique des colonnes d'une ListBox depuis une plage de cellule.

Je vais le chercher et le poster ici.