Discussion :

[mulot03]

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

[SilkyRoad]

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 :

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

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

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