Afficher la recherche via combobox dans une listBox 4 colonnes

Bonjour le forum,

Je penche depuis plusieurs jours sur l'affichage de plusieurs colonne (qui ne se suivant pas) dans une listbox :

Private Sub UserForm_Initialize()
Dim Nb_ligne, i, no_colonne As Long
Sheets("Base").Activate
    Nb_ligne = Application.WorksheetFunction.CountA(Feuil1.Range("$A:$A"))
    For i = 2 To Nb_ligne ' Liste les numéros de commandes
        Cbx_NOM.AddItem Cells(i, 2)
    Next
End Sub

Private Sub Cbx_NOM_Change()
    No_ligne = Cbx_NOM.ListIndex + 2
    ListBox_REC.AddItem .Sheet("Base").Cells(No_ligne, 1)
    ListBox_REC.AddItem .Sheet("Base").Cells(No_ligne, 2)
    ListBox_REC.AddItem .Sheet("Base").Cells(No_ligne, 3)
    ListBox_REC.AddItem .Sheet("Base").Cells(No_ligne, 6)
    'MsgBox (No_ligne)
End Sub

J'aimerais qu'a chaque saisie dans la combobox (d'ou la fonction _Change) La liste Box m'affiche tous les noms commençant par cette lettre dans la listeBox..

Premièrement est ce possible ?

Deuxièmement est ce que je suis sur la bonne voie avec le code ?

Spoiler

Comme il est 12h passé un peu de sucrerie pour le plaisir

Merci

Bonjour,

Quelque chose qui me convient un peu mieux pour ton Initialize :

Private Sub UserForm_Initialize()
    Dim Nb_ligne As Long
    With Sheets("Base")
        Nb_ligne = .Cells(.Rows.Count, 1).End(xlUp).Row
        If Nb_ligne > 2 Then
            Cbx_NOM.List = .Range("B2:B" & Nb_ligne).Value
        Else
            Cbx_NOM.AddItem .Range("B2")
        End If
    End With
End Sub

Pour le reste, faut voir !

Cordialement.

MFerrand a écrit :

Quelque chose qui me convient un peu mieux pour ton Initialize :

Ne fonctionne pas pour ma part :

Erreur d'éxécution'438':

Propriété ou méthode non géré par cet objet

Dommage ton code était moins barbare que le mien

Et sur quelle ligne ? Quel objet ?