Séparateur de colonne dans listbox

Version imprimable

11/09/2010, 10h58
Pierre67

Séparateur de colonne dans listbox

Bonjour,

en suivant différents posts j'ai réussi à faire une listbox à 5 colonnes.
Est-il possible de mettre des séparateurs de colonnes pour facilité la lisibilité sans que cela soit une usine à gaz
Merci à vous
@+

Bonjour,

Quelque soit la solution, ce sera toujours une usine à gaz ... ;o)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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
    ListBox1.List(ListBox1.ListCount - 1, j) = Chr(124)
    Next j
Next i
End Sub

Sinon, tu peux également utiliser le contrôle ListView en mode report :
http://silkyroad.developpez.com/VBA/ListView/

bon week end
michel

11/09/2010, 16h44
Pierre67

j'avais lu cela dans ton tuto, j'esperais plus simple.
le i qui varie de 1 a 20 c'est le nombre de lignes de la liste ?
en tout cas merci:)
11/09/2010, 17h52
SilkyRoad

Citation:

le i qui varie de 1 a 20 c'est le nombre de lignes de la liste ?

Oui c'est le nombre de lignes.
12/09/2010, 13h57
Pierre67

merci bien je vais si ça amène quelque chose
Bon w.e.
12/09/2010, 16h14
patricktoulon

re

bonjour

il y aune autre solution un peu biscornue je te l'avoue mais elle donne l'effet recherché

entre chaque colonne utiles en mettre une et mettre un point d'exclamation de dans chaque ligne dans chaque colonne separateur

ainsi tu aura un pseudo séparateur

au plaisir
12/09/2010, 16h20
mercatog

C'est la solution de SilkyRoad, non?
au lieu du point d'exclamation, il a mis le Chr(124)