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

Tester l'utilisation de filtres...sans mégoter !

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion BenHarber
  • 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 !

S'inscrire

BenHarber

XLDnaute Occasionnel
Bonjour le Forum,
Dans un traitement VBA, je souhaite que ma macro vérifie l'existence de filtres automatique définis de A10 à K10 (si les filtres automatiques sont définis : ne rien faire - S'ils ne sont pas définis : les mettre).
Prudent, j'ai commencé par tester le code suivant :

Range("A10:K10").Select
If Selection.AutoFilter = True Then
MsgBox "filtres mis"
End If

Le Hic, c'est qu'à chaque exécution de cette macro, la condition est toujours remplie (j'ai toujours mon message "Filtres mis") mais une fois, la macro affiche les filtres, la fois suivante, elle les remet...etc

Quelqu'un aurait-il une idée pour ce test ?
Merci d'avance.
Cordialement,

BenHarber
 
Trier par date Trier par votes
Re : Tester l'utilisation de filtres...sans mégoter !

...heu vous aurez corrigez par vous même :
"une fois, la macro affiche les filtres, la fois suivante, elle les enlève...etc

Cordialement,
BenHarber
 
Vote positif 0 Vote négatif
Re : Tester l'utilisation de filtres...sans mégoter !

Bonjour,
Code: 
Sub TestFiltreAuto()
    With Worksheets(1)
        If .AutoFilterMode Then
            Selection.AutoFilter
        Else
            Selection.AutoFilter
        End If
    End With
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

Office XLS : Fonction simplifiant l'utilisation de la fenêtre FileDialog
Réponses
6
Affichages
330
Lu76Fer
V
  • Résolu(e)
Microsoft 365 VBA Excel : Filtres au-delà de 2 critères, quelle(s) solution(s) svp ?
Réponses
11
Affichages
2 K
VirginieG
V
D
  • Question Question
XL pour MAC Réaffectation (très complexe) de données dans des lignes supplémentaires générées par Macro
Réponses
3
Affichages
1 K
didcac
D
  • Question Question
XL 2010 VBA : réinitialiser des filtres sans les oter une fois sur deux
Réponses
2
Affichages
2 K
BenHarber
M
  • Question Question
VBA - Problème Copie à partir de classeurs ouverts
Réponses
10
Affichages
1 K
Mischief
M
M
  • Question Question
Echange de données entre xlsm et mdb.
2
Réponses
16
Affichages
7 K
Makina
M
J
  • Question Question
Filtres
Réponses
6
Affichages
1 K
J-Charles
J
M
[REF] Wiki 6 de MichelXld (Doublons, Tris, Filtres, Variables, Fichiers fermés, Acces
Réponses
0
Affichages
68 K
MichelXld
M
M
[REF] Wiki 5 de MichelXld (Formules, Audits de formules, Répertoires, Fichiers)
Réponses
0
Affichages
47 K
MichelXld
M
M
[REF] Wiki Page 10 de MichelXld
Réponses
0
Affichages
30 K
MichelXld
M
M
[REF] Wiki Page 9 de MichelXld
Réponses
0
Affichages
39 K
MichelXld
M
M
[REF] Wiki Page 8 de MichelXld
Réponses
0
Affichages
39 K
MichelXld
M
M
[REF] Wiki 4 de MichelXld (Fonctions, Evenements, Dates et calendriers, Flash , Ooo)
Réponses
0
Affichages
35 K
MichelXld
M
M
[REF] Wiki Page 7 de MichelXld
Réponses
0
Affichages
51 K
MichelXld
M
M
[REF] Wiki 1 de MichelXld (Généralités Excel)
Réponses
6
Affichages
60 K
Le_Phénomène
M
[REF] Wiki 2 de MichelXld (Ce qui touche aux UserForm)
Réponses
0
Affichages
116 K
MichelXld
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…