Bonjour à tous,
j'ai une macro sur mon classeur qui est présente sur tous mes onglets (13 onglets) sauf sur le dernier.
Cette macro tri des noms (qui se trouve dans le dernier onglet) dans l'ordre, chaque mois il doit être possible d’exécuter la macro pour que le tri s'effectue.
la macro fait bien ce qu'on lui demande mais je ne trouve pas quoi rajouter à " End With "pour que automatiquement après l’exécution de la macro je revienne vers l'onglet visité, car la je reste sur le dernier onglet ...
voici le code en question :
merci d'avance pour votre aide !
j'ai une macro sur mon classeur qui est présente sur tous mes onglets (13 onglets) sauf sur le dernier.
Cette macro tri des noms (qui se trouve dans le dernier onglet) dans l'ordre, chaque mois il doit être possible d’exécuter la macro pour que le tri s'effectue.
la macro fait bien ce qu'on lui demande mais je ne trouve pas quoi rajouter à " End With "pour que automatiquement après l’exécution de la macro je revienne vers l'onglet visité, car la je reste sur le dernier onglet ...
voici le code en question :
Code:
Sub TRIER_PH()
'
' TRIER_PH Macro
'
'
Sheets("NOM").Select
ActiveWorkbook.Worksheets("NOM").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("NOM").Sort.SortFields.Add Key:=Range("A2:A3900"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("NOM").Sort
.SetRange Range("A1:A3900")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
=====>que mettre ici ????<======
End Sub
merci d'avance pour votre aide !