[vba excel] ListBox1.ColumnWidths = AutoSize

Version imprimable

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:

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 ??

:pc:

20/04/2007, 12h35
AlainTech

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

Code:

ListBox1.ColumnWidths = "50; 50"
20/04/2007, 13h29
chinex

trop top ce site !!!!!

ok AlainTech ;)
je teste de suite

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

merci Alain :king: c'est :resolu:
23/10/2008, 22h54
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.