Discussion :

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

[laetitia]

bonjour malabarbe le forum pas sûr d'avoir tout compris!!

par code tu mets les valeurs que tu veus

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub UserForm_Initialize()
ListBox1.ColumnWidths = " 10;15;10"
End Sub

ou modifier directement dans propriéte de la listbox

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

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Krovax]

Bonjour,
Si je me souvient bien je faisais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[malabarbe]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Bonsoir,

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

et particulièrement : Créer une Listbox multi-colonnes