Bonjour à tous,

J'ai besoin de vous pour m'aider à compléter un programme pour mon projet de fin d'études!

Dans une feuille j'affiche les résultats d'une recherche d'article. Je souhaite créer une fonction pour affiner ma recherche.
Dans une textbox :
Si tu trouve le mot-clé dans la cellule, rien
Si tu ne trouve pas le mot-clé dans la cellule tu me supprime toute la ligne


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Private Sub CommandButton1_Click()
Dim cellulecherche2 As Range
Dim j As Integer
 
 
With Worksheets("Recherche").Range(Cells(14, 2), Cells(200, 2))
 
        Set cellulecherche2 = .Find(what:="*" & TextBox1 & "*", LookIn:=xlValues)
            Set cellulecherche2 = .FindNext(cellulecherche2)
            For j = 14 To 200
                If Cells(j, 2).Value <> cellulecherche2 Then
                    Cells(j, 2).EntireRow.Delete
                End If
            Next j
 
End With
Unload UserForm2
End Sub
Merci @+