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
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
Merci pour la solution.
Je savais pas que c’était aussi simple que ca
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.
