macro retour vers dernière feuille affichée

[kinel]

bonjour à tous

pensez vous qu'il soit possible de créer un macro qui permette d'afficher la feuille précédemment affichée ?
un peu comme dans un navigateur

merci de vos réponses

Kinel

 

[dionys0s]

Re : macro retour vers dernière feuille affichée

Bonjour Kinel

Un exemple en PJ

A+

EDIT : dans le module ThisWorkbook, tu peux remplacer "ActiveSheet" par "Sh" (paramètre par défaut de "Private Sub Workbook_SheetActivate(ByVal Sh As Object)").

 

[Pierrot93]

Re : macro retour vers dernière feuille affichée

Bonjour,

une autre approche, dans un module standard :

Option Explicit
Public ws As Worksheet

dans le module "thisworkbook" :

Option Explicit
Private Sub Workbook_Open()
Set ws = ActiveSheet
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Set ws = Sh
End Sub

plus qu'à associer cette macro à des boutons sur les différentes feuilles :

Sub test()
ws.Activate
End Sub

bon après midi
@+

 

[Robert]

Re : macro retour vers dernière feuille affichée

Bonjour le fil, bonjour le forum,

Dans un module normal, placer le code ci-dessous :

Public o As Object


Public Sub ant()
o.Activate
End Sub

Dans le composant ThisWorkook placer le code ci-dessous :

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Set o = Sh
End Sub

Lancer la macro ant chaque fois que lon veut atteindre l'onglet antérieur...

[Édition]
Ouais, vachement en avance sur ce coup-là... Bonjour Dionysos, Pierrot et Philippe...

 

[phlaurent55]

Re : macro retour vers dernière feuille affichée

Bonjour à tous,

ma petite contribution .......... tardive

à+
Philippe

 

[kinel]

Re : macro retour vers dernière feuille affichée

bonjour DyonisOs

merci pour cette proposition

ça ne correspond pas exactement à ce que je cherche
voici une ébauche faites d'éléments trouvés sur ce forum

le seul truc qui coince c'est qu'il faudrait que dans la commande activate des feuilles 1 et 2 je puisse rentrer une commande qui change automatiquement la sélection de façon à ce que la feuille soit repérée comme dernière ouverte

voici le fichier en pièce jointe

dans ce fichier les feuilles 1 et 2 ont un lien vers la feuille 3
le bouton contenu dans la feuille 3 doit renvoyer vers la 1 ou la 2 selon le dernier affichage

 

[phlaurent55]

Re : macro retour vers dernière feuille affichée

Re,

une solution:

planquer l'index de la feuille appelante dans une cellule de la feuille 3
et s'en servir pour revenir à l'affichage précédent

à+
Philippe

 

[pierrejean]

Re : macro retour vers dernière feuille affichée

Bonjour kinel

Un essai

Edit : Salut à tous

 

[kinel]

Re : macro retour vers dernière feuille affichée

bonjour à tous

merci pour ces propositions
sur ma version 2003 elles n'ont pas fonctionnées
dans mon exemple je m'était inspiré d'une réponse de Pierrejean que j'avais un peu modifiée
si j'avais juste une commande qui change automatiquement la cellule sélectionnée à l'ouverture de feuille 1 et 2 je pense bien que ça fonctionnerait

merci

Kinel

 

[kinel]

Re : macro retour vers dernière feuille affichée

La version de Robert me convient parfaitement

merci à tous de votre aide

Kinel