IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

AutoFilter Multi Critères


Sujet :

Macros et VBA Excel

  1. #1
    Membre habitué
    Profil pro
    Inscrit en
    Août 2010
    Messages
    8
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2010
    Messages : 8
    Par défaut AutoFilter Multi Critères
    Bonjour,

    Je souhaite créer un autofilter avec plusieurs critères :
    pouvoir récupérer les informations : ">=A" et "<=E" ou ">=R" et "<=Z"

    J'ai bien essayé ca :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    ActiveSheet.Range("$A$1:$B$8").AutoFilter Field:=2, Criteria1:=">=A" And "<=E", Operator:=xlAnd, Criteria2:=">=R" And "<=Z" '===> ca bug
    OU

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    ActiveSheet.Range("$A$1:$B$8").AutoFilter Field:=2, Criteria1:=">=A", operator := xlAnd, criteria2:="<=E"
        ActiveSheet.Range("$A$1:$B$8").AutoFilter Field:=2, Criteria1:=">=R", operator := xlAnd, criteria2:="<=Z"  '===> Ne prend que le dernier filtre
    arrrrggghhh je ne vois pas comment appliquer ce filtre. Est-ce possible?

    Merci de votre aide.

  2. #2
    Membre Expert

    Homme Profil pro
    Technicien Métrologie R&D
    Inscrit en
    Janvier 2007
    Messages
    1 610
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 70
    Localisation : France, Ain (Rhône Alpes)

    Informations professionnelles :
    Activité : Technicien Métrologie R&D
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2007
    Messages : 1 610
    Billets dans le blog
    1
    Par défaut
    au filling, je ne pense pas que les autofilter marche avec le > je crois que c'est du =à ,contient , vide et autre truc similaires
    je pense que le tri sur tableau est la solution la plus simple en VBA ( je ne suis pas obsédé par les tableau mais je les trouve utiles) autrement ( mais là je ne suis pas dans mon élément ) il y a les Tableau Croisés Dynamique .
    outil puissant d'excel
    (oups ! pas vu que tu en avait quand même un qui marchait )
    donc je me suis repenché sur le problème ( puisqu'il y en a un qui marche l'autre doit)
    est ce que cecui fait ce que tu veux?
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    ActiveSheet.Range("$A$1:$B$8").AutoFilter Field:=2, Criteria1:=">=A", Operator:=xlAnd, Criteria2:="<=Z"
        ActiveSheet.Range("$A$1:$B$8").AutoFilter Field:=2, Criteria1:=">=E", Operator:=xlAnd, Criteria2:="<=R"

  3. #3
    Membre habitué
    Profil pro
    Inscrit en
    Août 2010
    Messages
    8
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2010
    Messages : 8
    Par défaut
    Bonjour,

    Le >= fonctionne pour du texte.

    En ce qui concerne l'exemple :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    ActiveSheet.Range("$A$1:$B$8").AutoFilter Field:=2, Criteria1:=">=A", Operator:=xlAnd, Criteria2:="<=Z"
    ActiveSheet.Range("$A$1:$B$8").AutoFilter Field:=2, Criteria1:=">=E", Operator:=xlAnd, Criteria2:="<=R"
    Il ne me prend que la deuxième ligne en critère : il applique le premier puis m'applique le second mais pas les deux en même temps.

    De toute façon dans les paramètres de filtre d'Excel on ne peut lui demander qu'une seule tranche.

    J'aurais voulu savoir si en VBA on pouvait le forcer à en prendre deux... en appliquant un "OR" sur les deux paramètres.

    Merci pour vos réponses.

  4. #4
    Expert confirmé
    Homme Profil pro
    Inscrit en
    Août 2010
    Messages
    3 453
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Août 2010
    Messages : 3 453
    Par défaut
    Bonjour,

    Je souhaite créer un autofilter avec plusieurs critères :
    pouvoir récupérer les informations : ">=A" et "<=E" ou ">=R" et "<=Z"
    Donc, j'en déduis que tu souhaite ne pas avoir les lettres situées entre E et R soit de F à Q.
    Essai de cette façon mais attention, AutoFilter ne permet pas des filtrages complexes.
    Exemple, tu souhaite filtrer les lettres de A à E et de R à Z donc ton filtre resemble à ça :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    ActiveSheet.Range("$A$1:$B$8").AutoFilter 2, "<=E", xlOr, ">=R"
    A ma connaissance, tu ne peux pas avoir plus de deux bornes. Tu ne peux pas demander à avoir les lettres de C à E et de R à V par exemple mais je peux me tromper en disant ça !

    Hervé.

  5. #5
    Membre Expert
    Homme Profil pro
    Retraité
    Inscrit en
    Avril 2011
    Messages
    1 858
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : Avril 2011
    Messages : 1 858
    Par défaut
    Bonjour,

    Il te reste quand même la solution du filtre élaboré (sans VBA) ou du code spécifique VBA (sans filtre automatique).

    Cordialement.

  6. #6
    Membre Expert

    Homme Profil pro
    Technicien Métrologie R&D
    Inscrit en
    Janvier 2007
    Messages
    1 610
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 70
    Localisation : France, Ain (Rhône Alpes)

    Informations professionnelles :
    Activité : Technicien Métrologie R&D
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2007
    Messages : 1 610
    Billets dans le blog
    1
    Par défaut
    finalement il reste aussi le filtre élaboré avec VBA
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Selection.AutoFilter
        Range("A1:A8").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
            Range("E1:F3"), Unique:=False
    ça c'est ce que donne l'enregistreur de macro
    les critères étant rentré dans e1:f3

Discussions similaires

  1. Recherche multi-critères
    Par PAUL87 dans le forum Access
    Réponses: 66
    Dernier message: 13/12/2005, 12h12
  2. problème SQL avec le tutoriel recherche multi critère
    Par qbihlmaier dans le forum Requêtes et SQL.
    Réponses: 1
    Dernier message: 05/12/2005, 19h33
  3. Requete multi-critères
    Par anutka dans le forum Requêtes
    Réponses: 1
    Dernier message: 21/09/2005, 13h30
  4. problème avec résultat de recherche multi-critères
    Par audrey_desgres dans le forum Access
    Réponses: 2
    Dernier message: 23/06/2005, 11h00
  5. Procédure stockée: recherche multi-critères
    Par biroule dans le forum MS SQL Server
    Réponses: 11
    Dernier message: 01/09/2004, 16h02

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo