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