Revenir à la dernier feuille

Luc · 2 Novembre 2005

Bonjour le forum

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

merci

Abel · 2 Novembre 2005

Bonjour Luc,

Dans un module standard :

Code:

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

Dans Thisworbook :

Code:

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 · 2 Novembre 2005

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 · 2 Novembre 2005

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 :

Code:

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

Abel.

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

Revenir à la dernier feuille

Luc

Guest

Abel

XLDnaute Accro

Luc

Guest

Abel

XLDnaute Accro

Discussions similaires

Revenir à la dernier feuille

Luc

Guest

Abel

XLDnaute Accro

Luc

Guest

Abel

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency