XL 2016 Trier malgré les filtres

[GeoTrouvePas]

Bonjour à tous,

J'essaye de me créer une petit routine qui permette de trier automatiquement une feuille donnée selon une colonne donnée :

Sub TrierDonnees(ByVal VarFeuilleDest As Worksheet, ByVal NumCol As Long)
    With VarFeuilleDest
        .AutoFilter.Sort.SortFields.Clear
        .AutoFilter.Sort.SortFields.Add Key:=.Range(.Cells(1, NumCol), .Cells(.Rows.Count, NumCol).End(xlUp)), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        With .AutoFilter.Sort
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    End With
End Sub

Mon soucis est la macro plante une fois sur deux lorsque les filtres sont déjà activés ou pas.

Que pourrais je rajouter à ma routine pour prendre ce fait en compte ?

Merci d'avance pour votre aide

 

[Roland_M]

Bonjour,

Sub TrierDonnees(ByVal VarFeuilleDest As Worksheet, ByVal NumCol As Long)
On Error Resume Next
With VarFeuilleDest
    .ShowAllData 'aff tout
    '.AutoFilter.Sort.SortFields.Clear 'annule filtre
    .AutoFilterMode = False 'suppr filtre
    .AutoFilter.Sort.SortFields.Add Key:=.Range(.Cells(1, NumCol), .Cells(.Rows.Count, NumCol).End(xlUp)), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
     With .AutoFilter.Sort
          .Header = xlYes
          .MatchCase = False
          .Orientation = xlTopToBottom
          .SortMethod = xlPinYin
          .Apply
     End With
End With
On Error GoTo 0: Err.Clear
End Sub

 

[GeoTrouvePas]

Bonjour Roland et merci pour ta réponse

Mon soucis est que je peux difficilement utiliser un "On Error"
En effet, cela suppose que l'éditeur Vba soit configuré sur "Arrêt sur les erreurs non gérées" ce qui est très rarement le cas sur mon poste et celui de mes collègues.

N'existe - t - il pas un moyen de tester la présence des filtres ?

 

[Roland_M]

re

mais on error resume next va simplement passer out !? aucun soucis !