largeur Multicolonne listbox tres variable

[carlos]

Bonjour le forum

Je me tourne une fois de plus vers vous .

Je cherche à rendre la largeur des colonnes d'une listbox plus ou moins grande selon le nom des champs.

Voir piece jointe

Merci

Carlos [file name=mULTICOLONNEVARIABLE.zip size=12472]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/mULTICOLONNEVARIABLE.zip[/file]

 

[AeroPlanneur]

bonjour Carlos,

pour ton problème directement :
.ColumnWidths = '' & tableau(1) & ';' & tableau(2) & ';' & tableau(3) & ''

Je ne comprends pas trop la logique de ce que tu veux faire, mais enfin ...

cordialement

 

[Hervé]

salut carlos

j'ai pas bien compris ce que tu voulais faire, mais peut etre comme ca :

Private Sub UserForm_Initialize()
Dim tablo As Variant
Dim tablodimension()
Dim i As Byte, j As Byte
Dim t As String

tablo = Range('a2:c' & Range('a65536').End(xlUp).Row)
ReDim tablodimension(1 To UBound(tablo, 2))

ListBox1.ColumnCount = UBound(tablo, 2)

For i = 1 To UBound(tablo, 2) 'boucle sur les colonnes
For j = 1 To UBound(tablo, 1)
If Len(tablo(j, i)) > tablodimension(i) Then
tablodimension(i) = Len(tablo(j, i))
End If
Next j
Next i

For i = 1 To UBound(tablodimension)
If i = 1 Then t = tablodimension(i) * 5.5 Else t = t & ';' & tablodimension(i) * 5.5
Next i

With ListBox1
.List = tablo
.ColumnWidths = t
End With
End Sub

salut

edition : bonjour aeroplaneur

Message édité par: hervé, à: 31/03/2006 16:46

 

[pierrejean]

bonjour carlos aeroplaneur Hervé

@ carlos

tu as la version 'academique' de hervé et c'est sans conteste la meilleure

neanmoins j'avais commencé à debugger la tienne avant d'etre interrompu par une petite-fille en mal de revision de calcul

Je te livre donc le resultat qui te permettra de voir ou cela faisait Tilt [file name=mULTICOLONNEVARIABLE_20060331184653.zip size=12472]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/mULTICOLONNEVARIABLE_20060331184653.zip[/file]

 

[carlos]

Bonsoir Hervé , bonsoir l'aeroplanneur,bonsoir pierrejean

Hervé comme d'habitude ton code est tout à fait adapté à ce que j'attendais .5je vois que tu me comprends toujours meme si je ne suis pas trop clair.
Aeroplaneur, tu ne planes pas autant que cela car j'ait testé ta ligne de code est elle tout à fait opérationnelle aussi .
Désolé pierrejean mais je ne vois pas tes modifs ..
Merci à tous les trois pour vos idées

Carlos

 

[pierrejean]

bonjour tous

effectivement j'avais omis de zipper le fichier modifié

@ carlos
tu verras que tu n'etais vraiment pas loin d'un bon fonctionement

@ Hervé au plaisir de se croiser à nouveau [file name=mULTICOLONNEVARIABLE_20060401094928.zip size=12762]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/mULTICOLONNEVARIABLE_20060401094928.zip[/file]

Message édité par: pierrejean, à: 01/04/2006 09:49

 

[carlos]

Re tous le forum

Effectivement, pierrejean je n'etais pas loin .
Merci et @ +

carlos