retour a la dernière page

[scardo2000]

Quel est la fonction que je peut associé à mon bouton qui me retourneras à la dernière page consulté lorsque celui ci seras activé.

Merci.

(ci-inclus mon fichier)

 

[Brigitte]

Re : retour a la dernière page

Bonsoir,

Veux tu :

- automatiquement qu'en cliquant sur retour, cela sache sur quelle feuille aller ?
- en cliquant sur Retour, aller sur telle feuille ?

Si dernier cas, une piste avec l'enregistreur de macro :

Sub retour()
'
' retour Macro
' Macro enregistrée le 20/09/2009 par ruet
'
'
Sheets("Feuil1").Select
End Sub

Si c'est cela, doit y avoir moyen de faire une boite de dialogue où tu taperais le nom de la feuille souhaitée (je ne sais pas faire, mais faisable). Ou bien si seulement une ou deux feuilles, deux boutons, l'un allant sur feuille 1, l'autre sur feuille 2...

Si c'est le premier cas, je ne comprends pas ta question : en effet, si tu es sur une feuille où il y a le bouton Retour, c'est que c'est CETTE FEUILLE LA, la dernière feuille consultée, donc... pas besoin d'y retourner, tu y es déjà ;-)

 

[scardo2000]

Re : retour a la dernière page

En fait le vrai fichier comporte beaucoups de pages et plein de liens. Donc j'aimerais seulement une fonction qui retourne une page à l'arrière sans devoir spécifier cette page lorsque l'on "click" ce bouton.

Merci

 

[Brigitte]

Re : retour a la dernière page

Re,

Malheureusement, je ne peux pas t'aider ; désolée. Mais d'autres vont le pouvoir sans nul doute.

 

[skoobi]

Re : retour a la dernière page

Bonsoir scardo2000,
salut Brigitte 🙂🙂,

J'en déduis que tu as un bouton par feuille.
Donc ceci devrait convenir pour les codes de tous les boutons:

Sheets(ActiveSheet.Index - 1).Activate

 

[job75]

Re : retour a la dernière page

Bonsoir à tous,

Dans ThisWorkbook :

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
DerFeuil = Sh.Name
End Sub

Dans le code de chaque feuille :

Private Sub CommandButton1_Click()
On Error Resume Next
Sheets(DerFeuil).Activate
End Sub

Dans un Module :

Public DerFeuil$

Fichier joint.

Edit : hum hum 🙁 j'avais utilisé SheetActivate et 2 variables mémorisées. Avec SheetDeactivate, une seule variable suffit...

A+

 

[scardo2000]

Re : retour a la dernière page

C'est quoi la partie "dans un module"? je ne comprend pas cette partie.

Merci

 

[job75]

Re : retour a la dernière page

Re,

J'ai fait un Edit de mon post précédent avec une SheetDeactivate, c'est plus simple...

Note : la déclaration de la variable Public DerFeuil$ dans le Module permet de la mémoriser pour être utilisée dans toutes les procédures.

A+