Macro - retour position initiale
Résolu
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.
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.
Configuration: Windows XP Excel 2000
2 réponses
-
ModérateurBonjour,
Ravie d'avoir pu t'apporter une solution.
Bonne fin de journée et peut-être à+ sur CCM -
ModérateurBonjour,
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
