Bug recherche dans Listbox

Bonjour tout le monde,

J'ai un petit souci à propos d'une recherche dans une listbox, je m'explique :

Dans une Userform, j'ai une TextBox et une ListBox, je clique sur un Togglebutton pour alimenter ma Listbox, et je filtre cette liste avec la textbox. Cela fonctionne très bien mais parfois cela bug lors d'une recherche et je ne sais pas pourquoi. Pour faire, on doit redémarrer le fichier excel et ça règle tout mais ça peu revenir quelques temps après. De plus, le redémarrage du fichier pose problème car il doit rester fonctionnel toute la journée.

Voici le code utilisé dans la Textbox :

If ToggleButton1.Value = True Then
    Dim ParcUn
    ParcUn = Sheets("listing").Cells(65535, 10).End(xlUp).Row
    For Each Cell In Sheets("listing").Range("J1:J" & ParcUn)
        If LCase(Cell.Value) Like LCase(TextBox1.Text) & "*" Then
            ListBox1.AddItem Cell.Offset(0, 0)
        End If
    Next

Malheureusement je n'ai pas de fichier d'exemple à donner car le code fonctionne mais pas tout le temps lol.

Si quelqu'un aurai une solution ou un autre code pour faire la même recherche je suis preneur

Merci d'avance & bonne journée

Bonjour seb77 le forum

tu peux tester et me redire

a+

papou

If ToggleButton1.Value = True Then
    Dim ParcUn
     ListBox1.clear
    with Sheets("listing")
    ParcUn = .Cells(65535, 10).End(xlUp).Row
    For j=1 to  ParcUn)
        If LCase(.cells(j,10)) Like LCase(TextBox1.Text) & "*" Then
            ListBox1.AddItem .cells(j,10).value
        End If       
    Next j
    End With

Bonjour paritec,

merci pour ta réponse, ton code fonctionne correctement.

Je reviendrais vers toi si jamais ça bug comme avec mon code

bonne journée

Re seb77 le forum

il n'y a pas de raison que cela bug, mais la prochaine fois si tu bug, tu feras un clique sur débogage pour voir quelle ligne est en jaune

a+

papou