fonction "retour page précédente"

Re:fonction \"retour page précédente\"

Bonjour Fresquie, bonjour le forum,

Je te propose une solution qui utilise trois procédures à placer dans un module (module1 par exemple) :

Public pa As Worksheet 'déclare la variable pa (page avant)
Public pm As Worksheet 'déclare la variable pm (page maintenant)

Public Sub ouverture() 'macro d'ouverture du classeur
Set pm = ActiveSheet 'définit la variable pm
End Sub

Public Sub change() 'macro à chaque changement d'onglet
Set pa = pm 'définit la variable pa
Set pm = ActiveSheet 'redéfinit la variable pm
End Sub

Public Sub PagePréc() 'macro à éxécuter pour atteindre la page précédente
pa.Select 'sélecionne l'onglet pa
End Sub

Cliquez pour agrandir...

Plus deux procédures événementielles de l'élément ThisWorkbook :

Private Sub Workbook_Open() 'à l'ouverture du classeur
Module1.ouverture 'éxécute la macro 'ouverture' du module1
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object) 'à chaque changement d'onglet
Module1.change 'éxécute la macro 'change' du module 1
End Sub

Cliquez pour agrandir...

Avec se système, exécute la macro PagePré pour atteindre la page précédente que tu as consulté dans ton classeur.

Message édité par: Robert, à: 22/09/2005 11:14

Merci beaucoup; ça fonctionne à merveille...et je pense qu'une telle macro peut simplifier la vie de ceux qui manipulent des classeurs, avec de nombreuses feuilles bien sur.
Merci encore...la classe!

Bonjour le forum, fresquie et Robert,

J'ose continuer ce topic en posant la question si c'est possible d'avoir un macro 'Page précédente' qui fonctionne sur plus d'une page (la dernière), et un macro séparé 'Page suivante' qui te renvoi plusieurs pages précédentes jusqu'à la dernière consultée.

En autre mots, un truc identique à l'Explorateur Internet.

Merci d'avance pour toute idée,
Mi_

Re bonjour à tous,

Je viens d'adapter le code de Robert, avec une petite amérioration: le bouton 'Page précédente' change automatiquement en 'Page suivante' après avoir revenu en arrière et reviens à 'Page précédente' après avoir revenu à la première page.

J'attache le fichier, peut-être qu'il sera utile à quelqu'un d'autre.

A bientôt,
Mi_ [file name=raccourci_precedente_suivante.zip size=13269]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/raccourci_precedente_suivante.zip[/file]