Listbox en-tete et recherche via texbox

Hello le forum,

Je n'arrive pas à combiner 2 éléments.

J'ai un tableau de suivi, avec un certain nombre de colonnes. Ce que je veux faire est la chose suivante :

Dans un TEXTBOX je veux que l'utilisateur renseigne un NOM et que ma LISTBOX se mette à jour. C'est à dire que si j'indique dans mon TEXTBOX "DURAND" j'ai toute ma liste de DURAND dans ma LISTBOX. J'utilise ce code :

Private Sub TextBox1_Change()
    Dim ligne As Integer
    Dim nbLigne As Integer
    Dim dercol As Integer
    Dim i As Byte
    Dim NomFeuille As String

    Application.ScreenUpdating = False
    ListBox1.Clear

'    NomFeuille = ComboBoxChoix2
    nbLigne = Range("A65536").End(xlUp).Row

'    If NomFeuille = "" Then Exit Sub

    If TextBox1 <> "" Then

        For ligne = 2 To nbLigne
            If Cells(ligne, 1) Like "*" & TextBox1 & "*" Then

                dercol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column 'on détecte la dernière colonne
                ListBox1.ColumnCount = dercol 'on adapte le nombre de colonne

                ListBox1.AddItem Cells(ligne, 1)
                For i = 1 To dercol 'On boucle sur les données
                ListBox1.List(ListBox1.ListCount - 1, i) = Cells(ligne, i + 1)
                Next i

            End If
        Next
    End If

    Application.ScreenUpdating = True

End Sub

Ce code fonctionne très bien.

Néanmoins, je n'ai pas les en-tetes de colonnes ... ça me chagrinne un peu ...

Je sais qu'il faut utiliser la propriété ROWSOURCE pour pouvoir utiliser la propriété COLUMNHEADS ...

Mon souhait serait :

Au démarrage de mon USERFORM, j'ai la liste des en tetes de colonne uniquement dans la listbox puis lorsque j'alimente mon textbox, j'ai la liste de mes NOMS dans ma listbox.

Est-il possible de faire cette manip ? Si oui, pouvez-vous m'aider svp.

Merci à vous

Bonjour,

Exemple d'en-tête de ListBox.

http://boisgontierjacques.free.fr/fichiers/Formulaire/ListBoxEntete.xls

http://boisgontierjacques.free.fr/fichiers/Formulaire/FormRechercheTextBoxListBoxBase.xls

Boisgontier