Discussion :

[filsdepub]

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.

[ARTURO83]

Bonjour

Essayez ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
   'ligne à mettre avant de trier
    Lig = ActiveCell.Row
 
   'ligne à mettre après le tri
    ActiveWindow.ScrollRow = Lig

Cdlt

[Menhir]

Ajoute en fin de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[filsdepub]

Comme ceci ?

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

[ARTURO83]

Dernière ligne après le end with

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
End With
ActiveWindow.ScrollRow = Lig

[filsdepub]

Ça fonctionne parfaitement.

Merci.