Affichage donnée tableau dans userfom et listbox

Question

J'ai recréé un fichier pour visualiser une base de données simple et repris un ancien code que j'avais en stock pour visualiser ces données tableau dans une listbox avec recherche. Je ne dois pas être loin du résultat mais ce pendant je dois avoir une erreur quelque part que je ne vois pas, car ça ne me remplit pas ma listbox à l'ouverture de mon userform. par contre ca fonctionne en utilisant le textbox recherche. Merci d'avance Je met le fichier...

ric · Accepted Answer

Une suggestion ... Une petite modif pour limiter temporairement la recherche et un appel à l'ouverture du formulaire ... ric Sub inituserform() Dim c Dim k Dim i As Integer Dim col ''''''''''''''''nouveau code'''''''''''''''''''' ' ... ' ... ' ... For i = 1 To UBound(BD2) For c = 1 To NbCol_Liste_BI: Tbl2(i, c) = BD2(i, c): Next c Tbl2(i, c) = BD2(i, NbCol_Liste_BI + 1) Next i Call TextBoxMotClé_Change ' ajout ric End Sub ' Private Sub TextBoxMotClé_Change() Dim ColRecherche As Integer Dim cle As String Dim n As Byte, k As Byte, i As Byte ColRecherche = 1 If Me.TextBoxMotClé = "" Then ' modif ric cle = "*" &nbsp;&nbsp;&nbsp;&nbsp;' modif ric &nbsp;&nbsp;Else&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' modif ric &nbsp;&nbsp;&nbsp;&nbsp;cle = "*" & Me.TextBoxMotClé & "*": n = 0 &nbsp;&nbsp;End If&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;' modif ric Dim Tbl() For i = 1 To UBound(BD2) If BD2(i, ColRecherche) Like cle Then n = n + 1: ReDim Preserve Tbl(1 To UBound(BD2, 2), 1 To n) For k = 1 To UBound(BD2, 2): Tbl(k, n) = BD2(i, k): Next k End If Next i If n &gt; 0 Then Me.ListBox1.Column = Tbl Else Me.ListBox1.Clear End Sub...