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.
