Vider une listbox apres une recherche

Bonjour,
J’ai le code ci-dessous qui me permet de faire une recherche dans mon classeur pour trouver une donnée quelconque.
Je veux rajouter une ligne de code qui me permet de vider la listbox quand je veux faire une 2eme recherche.

        Private Sub CmdRecherche_Click()

Dim Cel As Range, Depart As String
Dim Ws As Worksheet
Dim Modele As String
Modele = « Liste_Lame_ » & UserForm1.TextBox1.Value
Set Ws = ActiveWorkbook.Worksheets(Modele)

If Trim(Me.TbRecherche) = «  » Then
MsgBox « Veuillez indiquer la valeur à chercher »
Else
With Ws
Ws.Activate
Set Cel = .Cells.Find(what:=Me.TbRecherche, LookIn:=xlValues, LookAt:=xlPart)
If Not Cel Is Nothing Then
Depart = Cel.Address
Do
Me.ListBox1.AddItem Cel
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = .Cells(2, Cel.Column)
Set Cel = .Cells.FindNext(Cel)
Loop While Depart <> Cel.Address

Else
    MsgBox ("Lame n'existe pas, vérifier l'orthographe ")
  End If
End With

End If
Sample_Contr
End Sub

Des idées svp et merci.

Bonjour
Sans fichier difficile de savoir si on répond correctement à ta demande
Toujours est il que pour vider une listebox j utilise ce type d instruction pour par exemple la listebox1 :

Listebox1.clear

A toi de voir sinon merci de nous fournir l ensemble de ton fichier avec cette listebox à nettoyer et de nous préciser le contexte de cette action dans les moindre details

Bonjour,
Dans le fichier joint le code est dans le UserForm Recherche.
Merci TEST_L 2.xlsm (236,3 Ko)

Bonjour

Ton fichier adapté

Lorsque tu réalises la saisie d’un mot clé dans la 1° fenêtre (en regard du bouton "RECHERCHE) la listbox est vidée de son contenu

Fais des essais et dis moi

Budget prévisionnel _ Headcount (2) (1) (1).xlsm (214,3 Ko)

Merci pour la solution.
Je savais pas que c’était aussi simple que ca :sweat_smile:
J’ai essayé d’introduire l’instruction clear dans le code du boiton Recherche mais ca n’a pas fonctionné, avec le textbox_change ca me donne ce que je veux.

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.