Discussion :

[antoine2933]

Bonjour à tous,

voila je cherche un moyen pour créer un bouton qui me permettent d'aller au dernier onglet visité.

par exemple j'ai 3 feuilles

une contient le bouton de retour en arrière (feuil_bouton) et lorsque que l'on clique dessus il nous permet de revenir sur l'une des deux autres feuille (celle sur laquelle on était avant de cliquer sur l'onglet feuil_bouton.


j'ai essayé de faire ça mais sans résultat

Code :

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

1
2
3
4
5
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
 
Private Sub CommandButton1_Click()
Sheets("Glossaire").Select Anchor:=Sheets("Glossaire").Select, Address:="", SubAddress:="'"
End Sub

si quelqu'un pouvez m'aider

[mercatog]

Bonjour
Dans un module public (en haut: déclaration d'une variable publique)

Code :

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

Public LastSh As String

Dans le module ThisWorkbook

Code :

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

1
2
3
4
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
 
LastSh = Sh.Name
End Sub

Dans le code de ton boutton

Code :

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

1
2
3
4
5
Private Sub CommandButton1_Click()
 
On Error Resume Next
ThisWorkbook.Sheets(LastSh).Activate
End Sub

[antoine2933]

merci génial ton programme