ListBox 3 Col mais largeur différente ?

Version imprimable

17/06/2009, 14h30
malabarbe

ListBox 3 Col mais largeur différente ?

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.
17/06/2009, 15h13
laetitia
bonjour malabarbe le forum pas sûr d'avoir tout compris!!

par code tu mets les valeurs que tu veus
Code:

1 2 3 Private Sub UserForm_Initialize() ListBox1.ColumnWidths = " 10;15;10" End Sub
ou modifier directement dans propriéte de la listbox
17/06/2009, 15h20
malabarbe
Ok laetitia,

Merci pour l'info des " ; ", c'est cela qui me manquait.

Si je peut me permettre,

Pour remplir la colonne de gauche, je fais :
Code:

1 2 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.

Bonjour,
Si je me souvient bien je faisais

Code:

1
2
3
ListBox1.AddItem valeurcolonne1
ListBox1.List(ListBox1.ListCount, 1) = valeurcolonne2
ListBox1.List(ListBox1.ListCount, 3) = valeurcolonne3

On fait peut être mieu

Edit Avec tes notations

Code:

1
2
3
ListBox1.AddItem Cells(i, 2)
ListBox1.List(ListBox1.ListCount, 1) = cells(i,3)
ListBox1.List(ListBox1.ListCount, 3) = valeurcolonne3

Non, cela ne tourne pas et j'ai le message d'erreur suivant :

Erreur d'éxécution 381 Impossible de définir la propriété List.Index de Table de Propriété non valide.

Voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
 
'Remplit la Liste
     DerniereLigne = Worksheets("Dates").Range("A65535").End(xlUp).Row
     For i = 2 To 32   'DerniereLigne
          'colonne (1) - Ok
          ListBox1.AddItem Worksheets("Dates").Cells(i, 2)
 
          'colonne (2) - Niet
          ListBox1.AddItem Worksheets("Dates").Cells(i, 4)
          ListBox1.List(ListBox1.ListCount, 2) = "Toto" 'Worksheets("Dates").Cells(i, 4)
     Next i

Si vous pouvez regarder

17/06/2009, 18h02
Invité

Bonsoir,

Regardez ici :
http://silkyroad.developpez.com/VBA/...serForm/#LII-G

et particulièrement : Créer une Listbox multi-colonnes
17/06/2009, 19h32
Krovax

Regarde le tuto que ta donné jacques_jean il est très bien

Mais en ce qui concerne ton code il faut un add item cela rempli la première valeur
ensuite pour la deuxième colonne tu ne met pas de additem mais directement
ListBox1.List(ListBox1.ListCount, 1) = valeurcolonne2

et il fau un 1 pour la deuxième colonne, la première colonne est a 0 deuxième a 1 troisième a 2, etc
17/06/2009, 19h37
malabarbe

Ok,

Je suis en train de tester

J'étais déjà tombé sur ce Tuto mais j'avais mal fouillé !!!

Dès que cela tourne je Post

@ +

Bonsoir,

Ok, cela fontionne pour les deux premières colonnes
Et je vous remercie pour vos bons conseils.

Pour la 3 ème, je voudrais les dates de la col 2 et les passer en Format long.
ex : Col 2 = 06/11/2008 - Col 3 - Mercredi 6 Novembre 2008.
J'en suis la :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 For i = 2 To 32 'Col (1) - Le Jour ListBox1.AddItem Worksheets("Dates").Cells(i, 2) '"Ligne" & i 'Col (2) - La Date jj/mm/aaaa For j = 1 To 1 ListBox1.List(ListBox1.ListCount - 1, j) = Worksheets("Dates").Cells(i, 4) 'i & j 'Col (3) - la Date dddd, mmmm dd, yyyy (Date lmongue) ' ' Next j Next i
A vous lire

J'ai fait cela la Col2 de remplit bien en date longue.

Petit soucis, au lieu de récupérer Mercredi 11 Janvier 2008,
j' ai : jjjj j janv 2008
Code:

1 2 3 4 5 6 'Col (3) - la Date (Date lmongue) ListBox1.List(ListBox1.ListCount - 1, j + 1) = Worksheets("Dates").Cells(i + 48, 4) 'i & j dl_1 = Worksheets("Dates").Cells(i, 4) dl_2 = Format(dl_1, "jjjj j mmm yyyy") ListBox1.List(ListBox1.ListCount - 1, j + 1) = dl_2
Si vous avez une idée

17/06/2009, 21h21
malabarbe
J'ai réussi le Format Date
Code:

1 2 dl_2 = Format(dl_1, "dddd dd mmmm yyyy")
Un grand Merci à tous

Bonne soirée
@ +