Afficher un partie d'un tableau dans une LISTBOX

Bonjour à tout le monde =)

Voilà mon soucis : J'aimerais faire une liste box qui n'affiche qu'une partie des éléments. Par exemple pour le fichier joint j'aimerais faire une listbox qui n'affiche que les salaré du service CRC.

Merci d'avance =)

Bonjour

je te propose cette solution, je ne sais pas si elle te convient

Bonjour,

Option Compare Text
Dim nomTableau, TBlBD()
Private Sub UserForm_Initialize()
  nomTableau = "Tableau1"
  TBlBD = Range(nomTableau).Value
  Me.ListBox1.List = TBlBD
  Me.ListBox1.ColumnCount = UBound(TBlBD, 2)
  '--- ComboBox
  Set d = CreateObject("scripting.dictionary")
  d("*") = ""
  For i = 1 To UBound(TBlBD): d(TBlBD(i, 4)) = "": Next i
  Me.ComboBox1.List = d.keys
  EnteteListBox
End Sub

Private Sub ComboBox1_click()
  ColRecherche = 4
  clé = Me.ComboBox1: n = 0
  Dim Tbl()
  For i = 1 To UBound(TBlBD)
    If TBlBD(i, ColRecherche) Like clé Then
        n = n + 1: ReDim Preserve Tbl(1 To UBound(TBlBD, 2), 1 To n)
        For k = 1 To UBound(TBlBD, 2): Tbl(k, n) = TBlBD(i, k): Next k
     End If
  Next i
  If n > 0 Then Me.ListBox1.Column = Tbl Else Me.ListBox1.Clear
End Sub

Boisgontier

Merci mille fois Gullaud et Boisgontierjacques, c'est parfait ! =)

Re,

Je suis désolé de t'ennuyer, j'ai essayé de l'appliquer sur un nouveau fichier et ça ne marche pas.

Tu pourrais me guider stp ?

Merci =)

bonjour,

Ton fichier corrigé.

Le code n'exploite pas la plage nommée "SERVICE" mais les valeurs trouvées dans la Base.

A+

Bonjour,

cf PJ

Boisgontier

Merci 1000 fois =)

je suis rentré de vacances, j'arrive sans doute un peu tard,

mais j'envoie ma version

commencer par remplir la feuille données, notamment le nom des profs

cliquer sur le premier bouton de cette feuille pour créer la feuille "trié par prof"

remplir la feuille "trié par prof"

cliquer sur le deuxième bouton pour créer le planning de chaque prof