Revenir à la dernier feuille

[Luc]

Bonjour le forum

Existe t'il un code permettant de revenir à la dernière feuille vue!

merci

 

[Abel]

Bonjour Luc,

Dans un module standard :

Public DerFeuille, DerFeuille2
Sub DerniereFeuille()
Sheets(DerFeuille2).Select
End Sub

Dans Thisworbook :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
DerFeuille = ActiveSheet.Name
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
DerFeuille2 = DerFeuille
End Sub

Et tu associes la macro DerniereFeuille à ctrl+y par exemple.


En espérant que cela te dépanne.

Abel.

 

[Luc]

Bonjour Abel

J'ai un petit pb avec le code! L'erreur d'exécution 9 est la suivante : '
L'indice n'appartient pas à la selection'

Est que le code à un problème ou c'est moi ?

merci de ton aide

 

[Abel]

Re,

Oui très juste. Un petit excès d'optimisme ... (on va dire comme ça ..).

Ne fonctionnait qu'après deux changements de feuille. Normal, il faut initialiser les variables...

Ajoute ceci dans Thisworkbook :

Private Sub Workbook_Open()
DerFeuille2 = ActiveSheet.Name
DerFeuille = ActiveSheet.Name
End Sub

Abel.

Message édité par: Abel, à: 02/11/2005 18:34