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 !!!
J'ai fait un code pour filtrer :
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...
Me revoilà encore pour un code qui pourrait paraître simple mais que je n'arrive pas à faire Grrre !!!
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 SubMes 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...