Discussion :

[carocaro630]

Bonjour à toutes et à tous.

Existe t-il une macro permettant de revenir à la feuille exel précédemment consultée basée sur le principe d'un bouton type "retour" des navigateurs internet?


Merci

[mercatog]

Si tu te limite seulement à la dernière feuille consultée, une proposition.

Dans un module standard

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Option Explicit
 
Public LastSheet As String
 
Sub Retour()
 
If LastSheet <> "" Then Worksheets(LastSheet).Activate
End Sub

Dans le module ThisWorkbook

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Option Explicit
 
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
 
LastSheet = Sh.Name
End Sub

Et dans chaque feuille, mets un bouton qui permet de revenir à la feuille précédemment consultée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Option Explicit
 
Private Sub CommandButton1_Click()
 
Call Retour
End Sub

[carocaro630]

Ok merci beaucoup.