Barre de recherche
E
Bonjour à tous
Besoin de votre aide
j'ai créer une barre de recherche avec le code ci-dessous qui fonctionne très bien mais uniquement sur le premier mot de la cellule qui contient plusieurs mot j'aimerais que la recherche ce fasse sur tous les mots que contient la cellule
Private Sub TextBox1_Change()
Application.ScreenUpdating = False
ActiveSheet.ListObjects("CMP").Range.AutoFilter field:=2, Criteria1:=[B2] & "*", Operator:=xlFilterValues
Application.ScreenUpdating = True
End Sub
Merci pour votre aide
Invité
Bonjour Emilie46,
"*" À la fin du critère de recherche, représente tout ce qui suit.
En plaçant aussi "*" au début du critère, la recherche se fera partout dans le range.
Private Sub TextBox1_Change()
Application.ScreenUpdating = False
ActiveSheet.ListObjects("CMP").Range.AutoFilter field:=2, Criteria1:="*" & [B2] & "*", Operator:=xlFilterValues
Application.ScreenUpdating = True
End SubBizz