Lien vers page précédente

[drone]

Bonjour,
dans mon classeur j'utilise des liens pour naviguer dans les feuilles.
J'aimerais savoir s'il existe un moyen de retourner vers la feuille précédente car j'aimerais faire pointer plusieurs feuilles vers une même feuille et pouvoir retourner vers la feuille d'origine.

Merci d'avance

 

[Bisson]

Re : Lien vers page précédente

Bonjour,

Créer ces fonctions dans un module:

Function ClasseurActuel()
ClasseurActuel = ThisWorkbook.Name
End Function

Function ongletSuivant()
ongletSuivant = Sheets(Sheets(Application.Caller.Parent.Name).Index + 1).Name
End Function

Function ongletPrécédent()
ongletPrécédent = Sheets(Sheets(Application.Caller.Parent.Name).Index - 1).Name
End Function

Ecrire ces formules:

=LIEN_HYPERTEXTE("["&classeuractuel()&"]'"&ongletsuivant()&"'!A1";"Suivant")

=LIEN_HYPERTEXTE("["&classeuractuel()&"]'"&ongletPrécédent()&"'!A1";"Précédent")


Bisson

 

[drone]

Re : Lien vers page précédente

Merci, ça peut toujours servir mais ça ne correspond pas à ce que je cherche.
Je souhaiterais retourner à la feuille précédemment activée (si c'est possible).

 

[Bisson]

Re : Lien vers page précédente

Crée un hyperLien sur la première page de la dernière page visitée:

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Sheets(1).Hyperlinks.Add Anchor:=Sheets(1).[G1], Address:="", _
SubAddress:="'" & Sh.Name & "'" & "!A1", TextToDisplay:="Retour:" & Sh.Name
End Sub

Bisson

 

[drone]

Re : Lien vers page précédente

Merci, c'est exactement ce que je cherchais.