Bonjour,

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

C'est chose faite avec le code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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.