Tri du plus ancien au plus récent (sélection étendue)

Bonjour,

Je cherche à attribuer à un bouton une macro permettant de classer les dates.

C'est chose faite avec le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub Tri() ' ' Tri Macro '   ' ActiveWorkbook.Worksheets("Histo").AutoFilter.Sort.SortFields.Clear ActiveWorkbook.Worksheets("Histo").AutoFilter.Sort.SortFields.Add Key:=Range( _ "B5:B1048576"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("Histo").AutoFilter.Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub

---

Seulement, lorsque je clique sur ledit bouton, l'affichage me renvoie en haut de mon tableau qui est en constante évolution (749 lignes actuellement) alors que je souhaiterais que l'affichage reste sur la ligne sur laquelle je suis au moment où je clique sur mon bouton.

Quelqu'un aurait-il une idée pour améliorer mon système ?

Merci.

Bonjour

Essayez ceci

Code:

---

1 2 3 4 5

'ligne à mettre avant de trier Lig = ActiveCell.Row   'ligne à mettre après le tri ActiveWindow.ScrollRow = Lig

---

Cdlt

Ajoute en fin de code :

Code:

---

ActiveWorkbook.Worksheets("Histo").Cells(Rows.Count, 2).End(xlUp).Activate

---

Comme ceci ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub Tri() ' ' Tri Macro '   ' Lig = ActiveCell.Row ActiveWorkbook.Worksheets("Histo").AutoFilter.Sort.SortFields.Clear ActiveWorkbook.Worksheets("Histo").AutoFilter.Sort.SortFields.Add Key:=Range( _ "B5:B1048576"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("Histo").AutoFilter.Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply ActiveWindow.ScrollRow = Lig End With End Sub

---

Dernière ligne après le end with

Code:

---

1 2	End With ActiveWindow.ScrollRow = Lig

---

Ça fonctionne parfaitement.

Merci.