Macro - retour position initiale Résolu

Question

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.

aquarelle · Answer

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

aquarelle · Answer

Bonjour,
Ravie d'avoir pu t'apporter une solution.
Bonne fin de journée et peut-être à+ sur CCM

Macro - retour position initiale

2 réponses

Discussions similaires

Newsletters