Excel VBA : Réaliser une Barre de recherche

preview_player
Показать описание
Private Sub TextBox1_Change()

Dim filtre As String
filtre = "*" & Me.TextBox1.Text & "*"

If Sheets("Feuil1").AutoFilterMode Then
Sheets("feuil1").AutoFilterMode = False
End If

Sheets("Feuil1").Range("D8").AutoFilter Field:=2, Criteria1:=filtre

End Sub
Рекомендации по теме
Комментарии
Автор

Bonjour,
Merci pour la vidéo.
Est-il possible d’étendre la recherche à plusieurs colonnes ?

cigarboxguitarc-b-g
Автор

Bonjour, j'ai un souci, pour ma part la barre de recherche marche bien mais dès que je ferme le dossier excel le programme ne s'enregistre pas 😅

manonbodre
Автор

bonjour un soucis a mon niveau
Private Sub TextBox1_Change()

Dim filtre As String
filtre = "*" & Me.TextBox1.Text & "*"

Erreur a partir de la condition If Then
= False
End If

Field:=2, Criteria1:=filtre

End Sub

InnocentVRY