Excel: Comment faire pour contrôler le filtre automatique avec une macro

IMPORTANT : Cet article est issu du système de traduction automatique mis au point par Microsoft (http://support.microsoft.com/gp/mtdetails). Un certain nombre d’articles obtenus par traduction automatique sont en effet mis à votre disposition en complément des articles traduits en langue française par des traducteurs professionnels. Cela vous permet d’avoir accès, dans votre propre langue, à l’ensemble des articles de la base de connaissances rédigés originellement en langue anglaise. Les articles traduits automatiquement ne sont pas toujours parfaits et peuvent comporter des erreurs de vocabulaire, de syntaxe ou de grammaire (probablement semblables aux erreurs que ferait une personne étrangère s’exprimant dans votre langue !). Néanmoins, mis à part ces imperfections, ces articles devraient suffire à vous orienter et à vous aider à résoudre votre problème. Microsoft s’efforce aussi continuellement de faire évoluer son système de traduction automatique.

La version anglaise de cet article est la suivante: 141770
Cet article a été archivé. Il est proposé « en l'état » et ne sera plus mis à jour.
Résumé
Dans Microsoft Excel, vous pouvez utiliser la fonctionnalité Filtre automatique pour filtrer une liste basée sur des critères simples. Cet article contient plusieurs exemples Microsoft Visual Basic de macros pour applications (procédures Sub) pour contrôler la fonctionnalité de filtre automatique dans Excel.
Plus d'informations
Microsoft fournit des exemples de programmation à des fins d'illustration uniquement, sans garantie expresse ou implicite. Cela inclut, mais n'est pas limité à, les garanties implicites de qualité, d'adéquation à un usage particulier. Cet article suppose que vous êtes familiarisé avec le langage de programmation présenté et les outils utilisés pour créer et déboguer des procédures. Les techniciens du support technique Microsoft peuvent vous aider à comprendre la fonctionnalité d'une procédure particulière, mais ils ne modifieront pas ces exemples pour fournir des fonctionnalités supplémentaires ou créer des procédures répondant à vos besoins spécifiques. Pour tester chacun des exemples de macros dans cet article, utilisez les données d'exemple suivantes :
   A1: Name   B1: Zone   C1: Amount   A2: bob    B2: a      C2: 3   A3: sue    B3: c      C3: 2   A4: mary   B4: a      C4: 6   A5: pete   B5: b      C5: 1   A6: paul   B6: b      C6: 4				

Macro avec des critères "OR" pour un champ

L'exemple de macro suivant affiche les enregistrements dans la liste où les éléments dans le champ de zone sont soit «a «ou» b».
   Sub Custom1()       Range("A1").AutoFilter Field:=2, Criteria1:="a", Operator:=xlOr, _           Criteria2:="b"   End Sub				
Si vous exécutez cette macro à partir de la feuille qui contient l'exemple de liste dans cet article, votre liste affiche tous les enregistrements, à l'exception de la ligne 3.

Macro pour désactiver le filtre automatique

L'exemple de macro suivant désactive le filtre automatique, en supposant qu'est activée, elle affiche tous les enregistrements dans la liste.

Remarque : si le filtre automatique n'est pas sur Lorsque cette macro s'exécute, la macro active le filtre automatique, mais dans la mesure où aucun critère n'est spécifié, tous les enregistrements doivent toujours apparaître.
   Sub Clear_Filter()       Range("A1").AutoFilter   End Sub				

Macro avec des critères de «AND» pour un champ

L'exemple de macro suivant affiche les enregistrements dans la liste où les articles dans le champ Montant sont supérieure ou égale à 1 mais inférieur à quatre :
   Sub Custom2()       Range("A1").AutoFilter Field:=3, Criteria1:=">=1", _           Operator:=xlAnd, Criteria2:="<4"   End Sub				
si vous exécutez cette macro à partir de la feuille qui contient l'exemple de liste, les lignes 2, 3 et 5 s'affiche.

Macro avec des critères pour deux champs

L'exemple de macro suivant spécifie les critères pour deux champs :
   Sub Custom3()       Range("A1").AutoFilter Field:=2, Criteria1:="a"       Range("A1").AutoFilter Field:=3, Criteria1:="3"   End Sub				
si vous exécutez cette macro à partir de la feuille qui contient l'exemple de liste, seule la ligne 2 s'affiche.
Références
Pour plus d'informations sur le filtre automatique, cliquez sur le bouton Rechercher dans aide et tapez :
filtre automatique
5.00a c 5.00 8,00 XL98 XL97 XL7 XL5 askmaxwell

Avertissement : Cet article a été traduit automatiquement.

Propriétés

ID d'article : 141770 - Dernière mise à jour : 12/04/2015 12:47:14 - Révision : 2.3

Microsoft Excel 97 Standard, Microsoft Excel 95 Standard, Microsoft Excel 95a, Microsoft Excel 5.0 Standard, Microsoft Excel 5.0c, Microsoft Excel 98 pour Macintosh, Microsoft Excel 5.0 pour Macintosh, Microsoft Excel 5.0a pour Macintosh

  • kbnosurvey kbarchive kbmt kbdtacode kbhowto kbprogramming KB141770 KbMtfr
Commentaires