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 :

Enlever les filtres automatiques


Sujet :

Macros et VBA Excel

  1. #1
    Membre éprouvé
    Homme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    Septembre 2007
    Messages
    1 896
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : France

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Septembre 2007
    Messages : 1 896
    Par défaut Enlever les filtres automatiques
    Bonjour à tous,

    Je cherche un code VBA qui me permettrait lors de la fermeture d'un fichier Excel, d'enlever tous les filtres automatiques du fichier.
    Est-ce possible et comment ?
    Merci par avance

  2. #2
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut
    Voila qui devrait faire l'affaire

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
     
     
    Dim sh As Worksheet
     
    For Each sh In ThisWorkbook.Worksheets
        sh.Select
        Selection.AutoFilter
     
    Next

  3. #3
    Membre éprouvé
    Homme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    Septembre 2007
    Messages
    1 896
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : France

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Septembre 2007
    Messages : 1 896
    Par défaut
    Bonjour,

    Est-ce que je peux mettre ce code dans This Workbook du projet ?

    Je viens d'essayer le code, les filtres restent, ils ne s'enlèvent pas à la fermeture.

  4. #4
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut
    Il faut mettre ce code dans l'évenement Workbook_BeforeClose du classeur

  5. #5
    Membre éprouvé
    Homme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    Septembre 2007
    Messages
    1 896
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : France

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Septembre 2007
    Messages : 1 896
    Par défaut
    Citation Envoyé par jfontaine Voir le message
    Il faut mettre ce code dans l'évenement Workbook_BeforeClose du classeur
    C'est ce que j'ai fait, mais sans résultat. Il y a un message d'erreur sur la ligne
    Mais je me suis peut-être mal expliqué.
    En fait s'est la sélection du filtre qui doit être enlevée, non le filtre lui même.
    J'ai pensé à quelque chose comme :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Selection.AutoFilter Field:= ? -
    mais après je ne sais pas quoi mettre pour que toutes les sélections du fichier soient remises à zéro.
    Euh! suis-je assez clair ?

  6. #6
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut
    Pour effacer la selection tu peux faire simple en virant les filtres et en les recréants

    Surtout il ne faut pas oublier de sauvegarder le classeur après ce traitement si tu veux qu'a l'ouverture tes modifs soient prises en compte

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
     
    Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error GoTo suite
    Dim sh As Worksheet
     
    For Each sh In ThisWorkbook.Worksheets
        sh.Select
        Selection.AutoFilter
        Selection.AutoFilter
    suite:
    Next
     
    ThisWorkbook.Save
     
    End Sub

  7. #7
    Membre éprouvé
    Homme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    Septembre 2007
    Messages
    1 896
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : France

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Septembre 2007
    Messages : 1 896
    Par défaut
    C'est bon ça marche. Super

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Enlever les filtres
    Par jfk15 dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 20/06/2015, 18h52
  2. Enlever les filtres
    Par jfk15 dans le forum Excel
    Réponses: 1
    Dernier message: 20/06/2015, 16h28
  3. personnaliser les filtres automatiques
    Par google_is_my_friend dans le forum Excel
    Réponses: 3
    Dernier message: 26/04/2012, 20h12
  4. [XL-2007] Sélectionner plusieurs valeurs et changer automatiquement les filtres des TCD
    Par yeahna dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 20/03/2012, 06h16
  5. [XL-2007] Enlever les mises en forme automatiques
    Par keks06 dans le forum Excel
    Réponses: 2
    Dernier message: 05/05/2010, 15h35

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