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 :

Filtre élaboré & critères calculés


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Profil pro
    Inscrit en
    Avril 2007
    Messages
    841
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2007
    Messages : 841
    Par défaut Filtre élaboré & critères calculés
    Bonjour.
    Je dois gérer des projets en utilisant un filtre élaboré.
    Dans un tableau comportant 6 colonnes :
    - En A1 : N° dossier
    - En B1 : nom du projet
    - En C1 : auteur
    - En D1 : date
    - En E1: date début
    - En F1 : date fin
    - En G1 : Année
    Zone de critères cellules A1 :F2 (nom « critères »)
    Entêtes des données
    - En A2 : N° dossier
    - En B2 : nom du projet
    - En C2 : auteur
    - En D2 : date
    - En E2 : date début
    - En F2 : date fin
    Début plage des données ligne 3 (nom « data »)
    Je souhaiterais filtrer le nom de l’auteur et la date de début et la date de fin.
    - Critère en C2 : Nom auteur
    - Critère en E2 : =ANNEE(E4)=ANNEE(G1)
    - Critère en E2 : =ANNEE(F4)=ANNEE(G1)
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Sub FiltrerDonnées()
        Range("data").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("critères"), Unique:=False
    End Sub
    Le filtre ne fonctionne pas, où est l’erreur.
    Pourriez-vous m’aider svp.
    Merci d’avance.

  2. #2
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    Bonjour
    En C2: L'auteur
    En G2: L'année
    En E2: En F2: Et ton code (adapte le nom de la feuille)
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    With Sheets("MaFeuille")                                             ' à adapter
        If .FilterMode Then .ShowAllData
        .Range("data").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("critères")
    End With

  3. #3
    Membre éclairé
    Profil pro
    Inscrit en
    Avril 2007
    Messages
    841
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2007
    Messages : 841
    Par défaut
    Bonjour mercatog.

    J'ai testé les critères =">=" & DATE(G2;1;1) et ="<=" & DATE(G2;12;31), cela fonctionne.

    Mais je souhaiterais filtrer que le nom de l'auteur ou le nom de l’auteur et la date de début et la date de fin.

    Je pense à utiliser la validation des donnés soit en effaçant les cellules E2 et F2 pour filtrer que le nom de l'auteur ou en sélectionnant la formule pour filtrer le nom de l’auteur et la date de début et la date de fin.

    J'ai essayé mais les formules =">=" & DATE(G2;1;1) et ="<=" & DATE(G2;12;31) ne sont pas prisent en compte pour la validation des données.

    As-tu une solution.

Discussions similaires

  1. [XL-2010] Filtres élaborés multi critères (Dates - Texte)
    Par graphikris dans le forum Excel
    Réponses: 3
    Dernier message: 11/12/2013, 18h14
  2. Filtre élaboré avec critère d'inégalité
    Par ninikosim dans le forum Excel
    Réponses: 6
    Dernier message: 07/07/2011, 21h55
  3. [XL-2003] wildcard dans un critère de filtre élaboré
    Par Gwladys dans le forum Excel
    Réponses: 2
    Dernier message: 16/04/2009, 13h48
  4. Réponses: 3
    Dernier message: 11/02/2009, 08h56

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