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.

Merci d'avance à vous tous

Bonjour,

cf PJ

Private Sub UserForm_Initialize()
  For Each c In [A2:A10]
    If c.Offset(-1, 1) <> c.Offset(, 1) Then
       Me.ListBox1.AddItem " "
       Me.ListBox1.AddItem c.Offset(, 1)
       Me.ListBox1.AddItem " "
    Else
       Me.ListBox1.AddItem c
    End If
  Next c
End Sub

ou

Private Sub UserForm_Initialize()
  i = 0
  For Each c In [A2:A10]

    If c.Offset(-1, 1) <> c.Offset(, 1) Then
      x = c.Offset(, 1)
    Else
      x = " "
    End If
    Me.ListBox2.AddItem
    Me.ListBox2.List(i, 0) = x
    Me.ListBox2.List(i, 1) = c
    i = i + 1
  Next c
End Sub

Ceuzin

Bonjour Ceuzin,

Merci pour le code, j'essaie ça ce soir et te dis quoi.

J'aimerais pouvoir avoir le nom non sélectionnable si c'est possible

Voir PJ

Ceuzin

J'aime beaucoup ta seconde proposition ici...