[VBA-E] Séparer les colonnes d'une listbox par des lignes?

Version imprimable

16/05/2006, 12h50
mulot03

[VBA-E] Séparer les colonnes d'une listbox par des lignes?

Bonjour à tous,

Voila, j'ai créé une fenetre userform sous Visual basic pour pouvoir la lancer sur excel.Dans ma fenetre userform j'ai mis une listbox. Dans cette listbox j'ai rentré plusieurs valeurs réparties en quatre colonnes. Afin de bien séparer les colonnes, je voudrai mettre une ligne entre chaque colonne.

Comment peut on créer ces lignes?

Nota: Pour créé mes colonnes je sui allé dans les propriété de ma listbox; dans ColumnCount j'ai rentrer "4" (pour avoir 4 colonnes).

bonjour

il n'est pas possible d'insérer directement des séparations de colonnes dans les ListBox d'Excel

ci joint une solution de remplacement (non idéale)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Private Sub UserForm_Initialize()
Dim i As Byte, j As Byte
 
ListBox1.ColumnCount = 7
ListBox1.ColumnWidths = "50;15;50;15;50;15;50"
 
For i = 1 To 20
    ListBox1.AddItem "Ligne" & i
 
    For j = 2 To 7 Step 2
    ListBox1.List(ListBox1.ListCount - 1, j) = i & j
    Next j
 
    For j = 1 To 6 Step 2 'creation du separateur de colonnes
    ListBox1.List(ListBox1.ListCount - 1, j) = Chr(124)
    Next j
Next i
End Sub

une autre solution consiste à utiliser les ListView

bonne journée
michel

16/05/2006, 14h03
mulot03

tu es sur car on m'a dit que c'était possible. A moins que ce soit avec la listview. Avec la liste view on peut résoudre ce probleme?