XL 2013 Masquer le bouton de filtre VBA(Hide autofilter dropdown)

José Alain

XLDnaute Nouveau
Bonjour à tous,
Je besoin d'aide pour mon projet de Gestion de stock
En gros j'ai déjà eu ce que je voulais ua niveau de recherche(le petite barre de recherche)
Pour perfection; ce que je veux maintenant c'est de Masquer le bouton de filtre durant qu'on écrit dans la barre de recherche
J'ai déjà fait des recherche et trouver le code mais je ne sais pas comment l’intégrer ce code dans mon précédant code
1683199567400.png
 

Pièces jointes

  • Classeur1.xlsm
    45 KB · Affichages: 5
Solution
bonjour,

Tester :

VB:
Private Sub TextBox1_Change()
    With ActiveSheet.ListObjects("Tableau5").Range
        .AutoFilter Field:=1, VisibleDropDown:=False
        .AutoFilter Field:=2, VisibleDropDown:=False
        .AutoFilter Field:=3, _
                    Criteria1:="*" & Replace(Me.TextBox1.Value, " ", "*") & "*", _
                    VisibleDropDown:=False
        .AutoFilter Field:=4, VisibleDropDown:=False
        .AutoFilter Field:=5, VisibleDropDown:=False
        .AutoFilter Field:=6, VisibleDropDown:=False
        .AutoFilter Field:=7, VisibleDropDown:=False
        .AutoFilter Field:=8, VisibleDropDown:=False
    End With

    If TextBox1.Value = Empty Then
        ActiveSheet.AutoFilterMode = False...

Hasco

XLDnaute Barbatruc
Repose en paix
bonjour,

Tester :

VB:
Private Sub TextBox1_Change()
    With ActiveSheet.ListObjects("Tableau5").Range
        .AutoFilter Field:=1, VisibleDropDown:=False
        .AutoFilter Field:=2, VisibleDropDown:=False
        .AutoFilter Field:=3, _
                    Criteria1:="*" & Replace(Me.TextBox1.Value, " ", "*") & "*", _
                    VisibleDropDown:=False
        .AutoFilter Field:=4, VisibleDropDown:=False
        .AutoFilter Field:=5, VisibleDropDown:=False
        .AutoFilter Field:=6, VisibleDropDown:=False
        .AutoFilter Field:=7, VisibleDropDown:=False
        .AutoFilter Field:=8, VisibleDropDown:=False
    End With

    If TextBox1.Value = Empty Then
        ActiveSheet.AutoFilterMode = False
        ActiveSheet.Range("E7").Select
        Selection.AutoFilter
    End If
End Sub
 

Pièces jointes

  • José Alain.xlsm
    44.6 KB · Affichages: 4

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 848
dernier inscrit
Djigbenou