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

Traductions disponibles Traductions disponibles
Numéro d'article: 141770 - Voir les produits auxquels s'applique cet article
Agrandir tout | Réduire tout

Sommaire

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

Propriétés

Numéro d'article: 141770 - Dernière mise à jour: mercredi 11 octobre 2006 - Version: 2.3
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • 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
Mots-clés : 
kbmt kbdtacode kbhowto kbprogramming KB141770 KbMtfr
Traduction automatique
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
L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.
Exclusion de responsabilité concernant les contenus obsolètes dans la Base de connaissances
Cet article concerne des produits pour lesquels Microsoft n'offre plus de support. Il est par conséquent fourni « en l'état » et ne sera plus mis à jour.

Envoyer des commentaires

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com