Sub Tri_Ascendant()
Derl = ActiveSheet.Rows.Count
Derc = ActiveSheet.Columns.Count
'RefTableau = Range(Cells(2, 1), Cells(Derl, Derc)).Address
RefTableau = Range(Cells(ActiveCell.Row, 1), Cells(Derl, Derc)).Address
ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort.SortFields.Clear
ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort.SortFields.Add Key:=Range(ActiveCell.Address) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortTextAsNumbers
With ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort
.SetRange Range(RefTableau)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Sub Tri_Descendant()
Derl = ActiveSheet.Rows.Count
Derc = ActiveSheet.Columns.Count
'RefTableau = Range(Cells(2, 1), Cells(Derl, Derc)).Address
RefTableau = Range(Cells(ActiveCell.Row, 1), Cells(Derl, Derc)).Address
ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort.SortFields.Clear
ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort.SortFields.Add Key:=Range(ActiveCell.Address) _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortTextAsNumbers
With ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort
.SetRange Range(RefTableau)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub