ListBox 3 Col mais largeur différente ?

[malabarbe]

Bonjour,

J'ai créé une ListBox avec 3 Colonnes, mais il faudrais que la largeur soit différente pour chaque colonne.

Par ColumnWidths, cela règle les 3 colonnes a la mème largeur.

Comment leurs attribuer une largeur différente a chacune ?

A vous lire.

 

[mutzik]

Re : ListBox 3 Col mais largeur différente ?

bonjour,

comprends pas ?
columnwidth, tu mets par ex 100; 50; 250
et tu as trois largeurs différentes

ou je suis bon pour le zop ....

 

[malabarbe]

Re : ListBox 3 Col mais largeur différente ?

Oui, c'est bien cela !

il falait séparer les largeurs par des " ; "

Autre chose si c'est possible :

Lors des Additem, comment choisir la colonne de destination ?

 

[Cousinhub]

Re : ListBox 3 Col mais largeur différente ?

Bonjour,

Malabarbe (ou Malpoli???)

Le minimum de politesse ou de respect envers les bénévoles qui t'aident est de répondre (soit par un remerciement si cela fonctionne, soit par un ajout de précision le cas échéant...) AVANT de poser une autre question..

+1 dans ma liste d'ignorés... 😡😡😡

le fil :

https://www.excel-downloads.com/threads/actualisation-et-affichage-listbox.122308/

 

[mutzik]

Re : ListBox 3 Col mais largeur différente ?

re,

perso, je fais comme cela :

Sub Remplir_lbComptes()
Dim tableau() As String

nbItems = Sheets("bd.Comptes").Range("A" & 65000).End(xlUp).Row - 10 'parce que mes donées commencent en ligne 10
ReDim tableau(1 To nbItems, 1 To 4) As String ; 1 to 4 pour 4 colonnes
For cpt = 1 To nbItems
tableau(cpt, 1) = Sheets("bd.Comptes").Range("A" & cpt + 10)
tableau(cpt, 2) = Sheets("bd.Comptes").Range("C" & cpt + 10)
tableau(cpt, 3) = Sheets("bd.Comptes").Range("B" & cpt + 10)
tableau(cpt, 4) = Sheets("bd.Comptes").Range("F" & cpt + 10)
Next
lb_Comptes.List = tableau ' on affecte le tableau à la listbox
lb_Comptes.ListIndex = -1 'on ne selectionne aucun élément
End Sub

ne pas oublier de mettre option base 1 en début de module

 

[malabarbe]

Re : ListBox 3 Col mais largeur différente ?

Désolé bhbh, ce n'est pas mon habitude.
Tu m'a déjà aidé et j'avais remercié !

J'étais tellement content que dans la foulée, j'ai emboité sur la question suivante.

Donc, Merci pou ta première réponse.

Avous lire.

 

[malabarbe]

Re : ListBox 3 Col mais largeur différente ?

Salut mutzyk,

Ok pour ton code, mais je voudrais plus simple car ce n'est qu'une petite liste !
Pour remplir la colonne de gauche, je fais :

ListBox1.AddItem Worksheets("Dates").Cells(i, 2)

Comment adapter ce code pour écrire en colonne 2
les données ce la cells(i,3) ?

A vous lire.

 

[mutzik]

Re : ListBox 3 Col mais largeur différente ?

re,

ListBox1.ListFillRange = "A1:c10"

fct très bien, dans ce cas

 

[malabarbe]

Re : ListBox 3 Col mais largeur différente ?

Je ne comprends pas ce que vous voulez dire !

 

[malabarbe]

Re : ListBox 3 Col mais largeur différente ?

Si, finalement j'ai capté

Merci à tous pour vos conseils

Post terminé

@ +

 

[klin89]

Re : ListBox 3 Col mais largeur différente ?

Bonjour à tous,
Bonjour malabarbe,

Pour compléter le fil et baliser une future recherche, vois ci-dessous la solution de bqtr :

https://www.excel-downloads.com/threads/colonne-listbox-autosize.79641/

Amicalement klin89