Effacer filtres et classement

[fablog]

Bonjour,

J'ai un tableau Excel Tableau1, se trouvant dans ma feuille SMOT, que j'aimerais réinitialiser quand je le veux par une macro. Il faudrait effacer tous les filtres actifs et classer du plus petit au plus grand la colonne A. Avec l'enregistreur je n'ai pas eu de succès, pourriez-vous m'aider avec cela svp?

Merci et bonne journée!

Fabien

 

[Victor21]

Re : Effacer filtres et classement

Bonjour.

J'ai un vélo dans mon garage, que j'aimerais préparer pour le prochain WE. Il faudrait vérifier la pression des pneus, et régler les freins.
pourriez-vous m'aider avec cela svp?

Merci et bonne journée!

Oups ! mon vélo ne passe pas en pj 🙁
Pourtant je suis allé en mode avancé, j'ai cliqué sur le trombone, et tout et tout ...

 

[fablog]

Re : Effacer filtres et classement

Bonjour Victor21,

J'ai du mal comprendre ton sarcasme. Veux-tu que je mette un fichier d'exemple en PJ?

Merci

 

[Victor21]

Re : Effacer filtres et classement

Re, fablog.

Ce que vous considérez comme du sarcasme n'est en fait qu'une tentative d'humour et, effectivement un encouragement à peine voilé à soumettre à la sagacité de la communauté une base de travail,.
Ceci pour lui éviter de reconstruire avec les imprécisions que cela implique un fichier (ou pour le moins un extrait de fichier, sans données confidentielles, mais cependant représentatif).
Les membres intéressés pourront ainsi tester au préalable les éventuelles propositions susceptibles de vous dépanner.

 

[fablog]

Re : Effacer filtres et classement

Voici un exemple.

Merci par avance 🙂

 

[Victor21]

Re : Effacer filtres et classement

Bonjour.

En voici un autre, issu de l'enregistreur et élagué 🙂

Sub Macro1()


    Range("Tableau1[#All]").AutoFilter


    With ActiveWorkbook.Worksheets("Feuil1").ListObjects("Tableau1").Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("Tableau1[Classement]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

 

[fablog]

Re : Effacer filtres et classement

Merci Patrick, cela fonctionne bien mais un peut trop bien 🙂 Cela supprime aussi les filtres automatiques alors que je voudrais juste les effacer (réinitialiser).

 

[Victor21]

Re : Effacer filtres et classement

Re,

Essayez avec .ShowAllData en lieu et place de AutoFilter, et dites-nous.

Et n'hésitez pas à utiliser l'enregistreur de macros. C'est comme ça -entre autres- qu'on apprend 🙂

 

[fablog]

Re : Effacer filtres et classement

Re,

Essayez avec .ShowAllData en lieu et place de AutoFilter, et dites-nous.

Et n'hésitez pas à utiliser l'enregistreur de macros. C'est comme ça -entre autres- qu'on apprend 🙂

Merci, j'ai ce message d'erreur: "Erreur d'exécution '438': Propriété ou méthode non gérée par cet objet" 🙁

La macro bloque dès le début.

 

[fablog]

Re : Effacer filtres et classement

Bonjour,

J'ai joué de nouveau avec l'enregistreur de Macro et, miracle, en sélectionnant la ligne des filtres au complet la macro fonctionne.

Voici la nouvelle macro:

    Sheets("SMOT").Select
    
    ActiveWorkbook.Worksheets("SMOT").ListObjects("Tableau1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("SMOT").ListObjects("Tableau1").Sort.SortFields.Add _
        Key:=Range("Tableau1[[#Headers],[#Data],[Ligne]]"), SortOn:=xlSortOnValues _
        , Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("SMOT").ListObjects("Tableau1").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    Rows("1:1").Select
    ActiveWorkbook.Worksheets("SMOT").ListObjects("Tableau1").Sort.SortFields.Clear
    ActiveSheet.ShowAllData


End Sub

Par contre, quand mon tableau n'a qu'un classement d'une colonne et pas de filtre actif, il m'informe d'une erreur de la macro reliée à ActiveSheet.ShowAllData. Peut-on mettre une ligne VBA qui empeche l'affichage d'une erreur?

Merci!

 

[fablog]

Re : Effacer filtres et classement

Ci-dessous la réponse à ma question précédente:

    On Error Resume Next
    
    Sheets("SMOT").Select
     
     ActiveWorkbook.Worksheets("SMOT").ListObjects("Tableau1").Sort.SortFields.Clear
     ActiveWorkbook.Worksheets("SMOT").ListObjects("Tableau1").Sort.SortFields.Add _
         Key:=Range("Tableau1[[#Headers],[#Data],[Ligne]]"), SortOn:=xlSortOnValues _
         , Order:=xlAscending, DataOption:=xlSortNormal
     With ActiveWorkbook.Worksheets("SMOT").ListObjects("Tableau1").Sort
         .Header = xlYes
         .MatchCase = False
         .Orientation = xlTopToBottom
         .SortMethod = xlPinYin
         .Apply
     End With
     
     Rows("1:1").Select
     ActiveWorkbook.Worksheets("SMOT").ListObjects("Tableau1").Sort.SortFields.Clear
     ActiveSheet.ShowAllData


 End Sub

 

[JCGL]

Re : Effacer filtres et classement

Bonjour à tous,
Salut Patrick,

L’utilisation de Données/Filtrer n'est pas nécessaire :

Sub Tri()
    Feuil1.Range("Tableau1").Sort key1:=Range("A1"), order1:=1, Header:=xlYes
End Sub

A+ à tous