XL 2021 Sélectionner la 1ère cellule après filtrage

Usine à gaz

XLDnaute Barbatruc
Bonjour à toutes et à tous :)

Me revoilà encore pour un code qui pourrait paraître simple mais que je n'arrive pas à faire Grrre !!! :mad:

J'ai fait un code pour filtrer :
VB:
Sub TrieRappelsUrgents()
On Error Resume Next
[a6:a30005].AutoFilter
    Rows("7:30000").Select
    ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
    ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Range("m7:m30000" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.ActiveSheet.Sort
        .SetRange Range("A7:BZ30000")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
   
    Range("A6:zz10000").AutoFilter
    Sheets("Appels").Range("A6:zz10000").AutoFilter Field:=20, Criteria1:="R"
    ActiveWindow.ScrollRow = Selection.Row
End Sub
Au clic sur le bouton "Tri Rappels Urgents", je voudrais sélectionner la 1ère cellule après filtrage, soit pour mon exemple la cellule "E10"

Mes recherches et tests n'ont pas abouti
Auriez-vous le bon code ?
En cas, ce dont je vous remercie, je joins le fichier test.
Entre temps, je continue mes recherches...
:)
 

Pièces jointes

  • Sélectionner 1ere cellule après filtrage.xlsm
    56.9 KB · Affichages: 4

Statistiques des forums

Discussions
313 296
Messages
2 096 922
Membres
106 787
dernier inscrit
Rachid ALIOU