Discussion :

[PerrinePe]

Bonjour!

Je voudrait créer une case retour qui afficherait la page précédente à celle affichée. Un peu selon le modèle:
-Stocker feuille actuelle dans i
-Aller à une feuille de destination via macro
-Aller à la feuille i via macro

J'ai déjà le macro pour afficher une feuille donnée, mais je ne sais pas comment coder l'enregistrement de la feuille actuelle, ni le renvoi à cette feuille.

Merci d'avance!
Perrine

[joe.levrai]

Bonjour,

à adapter :

1) dans un module standard

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Public PrecedenteFeuille As Worksheet
 
Sub RetourFeuille()
    If Not PrecedenteFeuille Is Nothing Then PrecedenteFeuille.Activate Else MsgBox "Aucune précédente feuille visitée !"
End Sub

2) dans le module ThisWorkbook

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    Set PrecedenteFeuille = Sh
End Sub

[PerrinePe]

C'est parfait merci!