largeur Multicolonne listbox tres variable

  • Initiateur de la discussion Initiateur de la discussion carlos
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

carlos

XLDnaute Impliqué
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]
 

Pièces jointes

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

Pièces jointes

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

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

J
Réponses
6
Affichages
3 K
C
Réponses
8
Affichages
2 K
carlos
C
Réponses
2
Affichages
1 K
bebere
B
X
Réponses
4
Affichages
1 K
X
C
Réponses
0
Affichages
1 K
C
D
Réponses
5
Affichages
1 K
david
D
P
  • Question Question
Réponses
0
Affichages
842
Palemeilleur
P
B
Réponses
1
Affichages
2 K
bleu_azur
B
G
Réponses
4
Affichages
1 K
G
Réponses
4
Affichages
1 K
Réponses
4
Affichages
1 K
M
Réponses
4
Affichages
1 K
Gérard DEZAMIS
G
Retour