Discussion :

[Pierre67]

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
@+

[SilkyRoad]

Bonjour,

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

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

[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

[SilkyRoad]

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

Oui c'est le nombre de lignes.

[Pierre67]

merci bien je vais si ça amène quelque chose
Bon w.e.

[patricktoulon]

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

[mercatog]

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