XL 2016 Trier malgré les filtres

GeoTrouvePas

XLDnaute Impliqué
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 :
VB:
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

XLDnaute Barbatruc
Bonjour,

Code:
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

XLDnaute Impliqué
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 ?
 

Discussions similaires

Réponses
11
Affichages
396
Réponses
3
Affichages
547

Statistiques des forums

Discussions
311 720
Messages
2 081 896
Membres
101 833
dernier inscrit
sandra25