Sous catégories dans une ListBox

Version imprimable

26/03/2013, 13h49
Ravens

Sous catégories dans une ListBox

Bonjour à tous,

J'ai une petite question sur laquelle je planche depuis un petit temps est-il possible de diviser une ListBox en sous catégories (pas dans différentes colonnes) ?

Par une astuce ou une méthode existante dans VBA?
Ces sous catégories ne servent qu'uniquement a séparer des groupes visuellement donc elle ne doit pas apporter des propriétés différentes.

Et vu que rien n'est plus explicite qu'une image :
http://img15.hostingpics.net/pics/204048groupe.png

Merci d'avance à vous tous

heu...

Bonjour
Non ca n'est pas possible

maintenant tu peux faire un truc du genre

Code:

1
2
3
4
5
6
7
8
9
for  e= 1 to 3
listbox1.additem"============"
listbox1.additem e & ucase(" groupe")
listbox1.additem"============"
for i = 1  to 5
listbox1.additem"item" & i 
 
next
next

1 pièce(s) jointe(s)

Bonsoir,

Solution1:Le nom du groupe n'apparaît qu'une seule fois dans la première colonne.

http://boisgontierjacques.free.fr/pa.../ListBoxGr.gif

Code:

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub UserForm_Initialize()
  i = 0
  For Each c In Range("a2:a" & [A65000].End(xlUp).Row)
    If c.Offset(-1, 1) <> c.Offset(, 1) Then tmp = c.Offset(, 1) Else tmp = ""
    Me.ListBox2.AddItem
    Me.ListBox2.List(i, 0) = tmp
    Me.ListBox2.List(i, 1) = c
    i = i + 1
  Next c
End Sub

ou

Solution2:La 2e colonne est cachée

Les noms de groupe ne peuvent pas être sélectionnés.

http://boisgontierjacques.free.fr/pa...tBoxGroup2.gif

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Private Sub UserForm_Initialize()
 ListBox1.MultiSelect = fmMultiSelectMulti
 For Each c In Range("a2:a" & [A65000].End(xlUp).Row)
   If c.Offset(-1, 1) <> c.Offset(, 1) Then
      Me.ListBox1.AddItem
      Me.ListBox1.List(i, 0) = ""
      Me.ListBox1.List(i, 1) = "x"
      i = i + 1
      Me.ListBox1.AddItem
      Me.ListBox1.List(i, 0) = c.Offset(, 1)
      Me.ListBox1.List(i, 1) = "x"
      i = i + 1
      Me.ListBox1.AddItem
      Me.ListBox1.List(i, 0) = ""
      Me.ListBox1.List(i, 1) = "x"
    Else
      Me.ListBox1.AddItem c
    End If
    i = i + 1
   Next c
End Sub
 
Private Sub ListBox1_change()
   p = Me.ListBox1.ListIndex
   If p >= 0 Then
     If Me.ListBox1.List(p, 1) = "x" Then
       Me.ListBox1.Selected(p) = False
     End If
   End If
End Sub

Ceuzin

26/03/2013, 22h05
patricktoulon

re

Bonsoir Sophie
tu devrait relire le 1 er post
je cite

Citation:

Bonjour à tous,

J'ai une petite question sur laquelle je planche depuis un petit temps est-il possible de diviser une ListBox en sous catégories (pas dans différentes colonnes) ?

au plaisir
27/03/2013, 08h59
Ravens

Merci à vous deux,
J'avoue que je ne voulais pas de liste en deux colonnes mais en même temps la première solution de Sophie m'a pas mal séduit tout en sachant que ce que je recherche semble impossible.

Mais pour être certain, n'est il pas possible de mettre une ligne en 0 - fmListStylePlain et les autres en 1 - fmListStyleOption ?

Bien à vous deux
27/03/2013, 09h07
sophieceuzin

Bonjour,

Citation:

Mais pour être certain, n'est il pas possible de mettre une ligne en 0 - fmListStylePlain et les autres en 1 - fmListStyleOption ?

Non! la propriété s'applique à tous les éléments.

Ceuzin
27/03/2013, 15h31
patricktoulon

re

Bonjour
la reponse est non

Au plaisir
28/03/2013, 16h39
Ravens

Dommage mais encore merci à vous deux