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

José Alain · 4 Mai 2023

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

Hasco · 5 Mai 2023

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 · 5 Mai 2023

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

José Alain · 23 Mai 2023

Bonjour à tous,
Vraiment désolé à vous mais j'etait pas en ligne pendant un moment
MERCI à vous "Hasco" c'est vraiment ce que j'ai voulu en venir.
Merci beaucoup,

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

José Alain

XLDnaute Nouveau

Pièces jointes

Hasco

Hasco

XLDnaute Barbatruc

Pièces jointes

José Alain

XLDnaute Nouveau

Discussions similaires