Macro - retour position initiale [Résolu/Fermé]

Signaler
-
 Hanamichi -
Bonjour,

J'ai une macro qui tourne très bien, mais il me manque un truc pour qu'elle soit parfaite à mon goût.
Cette macro fait simplement tourner des tris de tableaux sur différents sheets.

Ma question est la suivante:
Quelle que soit ma position initiale quand je fais tourner ma macro, je souhaiterais y revenir une fois la macro exécutée.
Comment faire ?

Merci pour votre aide.

2 réponses

Messages postés
7073
Date d'inscription
dimanche 8 avril 2007
Statut
Modérateur
Dernière intervention
24 juin 2020
1 223
Bonjour,
Voici une macro correspondant à ce que tu cherches, je n'en suis pas l'auteur mais m'en sers régulièrement, il te faudra l'adapter pour ta macro :

Public Sub SaveLocation(ReturnToLoc As Boolean)

Static WB As Workbook
Static WS As Worksheet
Static R As Range

If ReturnToLoc = False Then
Set WB = ActiveWorkbook
Set WS = ActiveSheet
Set R = Selection
Else
WB.Activate
WS.Activate
R.Select
End If

End Sub

'Pour sauvegarder l'adresse de la cellule désirée.

Public Sub SetSaveLoc()
SaveLocation (False)
End Sub

'Pour retourner à l'adresse sauvegardée, appeler GetSaveLoc.

Public Sub GetSaveLoc()
SaveLocation (True)
End Sub



Tu devras appeler SetSaveLoc au début de ta macro et GetSaveLoc à la fin de ta macro.

J'espère que cela te conviendra.

Bonne journée
Bonjour,

Ta réponse me convient parfaitement.

Merci beaucoup !
Bonjour je ne comprends pas tout.
Cette macro me permet bien de revenir à la cellule sur laquelle j'étais avant de lancer ma macro?
Si oui, je ne sais pas où je dois la rentrer.
Messages postés
7073
Date d'inscription
dimanche 8 avril 2007
Statut
Modérateur
Dernière intervention
24 juin 2020
1 223
Bonjour,
Ravie d'avoir pu t'apporter une solution.
Bonne fin de journée et peut-être à+ sur CCM