Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 VBA Bouton Filtre

  • Initiateur de la discussion Initiateur de la discussion Bourbonkid59
  • Date de début Date de début

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 !

B

Bourbonkid59

Guest
Bonjour à tous,

Après plusieurs recherches infructueuses, je viens vous demander de l'aide.

J'ai trouvé un code que j'ai modifié pour avoir un bouton qui me filtre un tableau en fonction du contenu de la colonne M (contient "oui" ou "x").

VB:
Private Sub CommandButton2_Click()

With Worksheets("Rapport 1")
    If Not .AutoFilterMode Then .Range("M1").AutoFilter
End With

Range("M1").AutoFilter Field:=1, Criteria1:="oui", Operator:=xlOr, Criteria2:="x"
End Sub

Le bouton fonctionne correctement seulement si il y a déjà un filtre manuel sur la colonne M.
Si je supprime manuellement le filtre, j'ai une fenêtre d'erreur qui apparait.
Pouvez-vous m'aider à résoudre ce problème.
Un grand merci d'avance à vous.
 
Bonjour bourbonkid, bonjour le forum,

Peut-être comme ça :

VB:
Private Sub CommandButton2_Click()
With Worksheets("Rapport 1")
    If .FilterMode Then .Range("M1").AutoFilter
End With
Range("M1").AutoFilter Field:=1, Criteria1:="oui", Operator:=xlOr, Criteria2:="x"
End Sub
 
Bonjour

Effectivement, si tu désactives le filtre, alors .FilterMode est false, donc .AutoFilter ne s'applique pas, donc Range("M1").AutoFilter ne peut pas s'exécuter.
J'aurais tendance à penser que le If Not était plus adapté à vrai dire.

Bonne continuation
 
Dernière édition:
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
8
Affichages
620
Réponses
18
Affichages
992
Réponses
3
Affichages
424
Réponses
2
Affichages
496
Réponses
12
Affichages
1 K
  • Question Question
Microsoft 365 affichage userform
Réponses
4
Affichages
497
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…