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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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...
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

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
240
Réponses
125
Affichages
12 K
Réponses
3
Affichages
1 K
Réponses
2
Affichages
794
Retour