Retour à une feuille suite à l'exécution d'une macro
Bonjour à tous,
J'ai plusieurs feuilles (voir fichier : Exemple.xlsx ci-joint) dont le nombre est variable (001, 002, 003, 004,....00X) et une feuille "Aide_mémoire". Par exemple, dans la feuille "002", lorsque j'appuie sur le rectangle bleu, un lien hypertexte ouvre la feuille "Aide_mémoire" à la cellule A1. Le même principe s'applique pour toutes les feuilles du classeur à l'exception, bien sûr, de la feuille "Aide_mémoire". Je désire, une fois que j'accède à la feuille "Aide_mémoire" en exécutant l'hyperlien, appuyer sur le cercle et exécuter une macro qui me permettra de retourner à la feuille précédente soit dans cet exemple, à la feuille "002". Idem pour les autres feuilles du classeur (001, 003, 004,....00X).
Merci à l'avance pour votre précieuse collaboration,
Renaud D.
Salut Renaud,
avec 2 macros...
1. Dans 'Module1'
Sub Ellipse2_Cliquer()
'
Dim sSheet$
'
With Worksheets("Aide_mémoire")
sSheet = IIf(IsNumeric(.[A1]), Format(.[A1], "000"), .[A1])
End With
Worksheets(sSheet).Activate
'
End Sub2. Dans 'ThisWorkbook
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'
If Sh.Name <> "Aide_mémoire" Then Worksheets("Aide_mémoire").[A1] = Sh.Name
'
End Sub
A+
Merci beaucoup curulis57 pour votre aide.
Vos 2 macros fonctionnent à merveille.
Sincères salutations,
Renaud D.