XL 2016 Retour dans la dernière feuille utilisée

job75 à dit:

Bonsoir badraaliou4,

Placez tout ce code dans ThisWorkbook :

VB:

Dim FeuillePrecedente As Worksheet 'mémorise la variable

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Set FeuillePrecedente = Sh
End Sub

Sub Retour()
'lancez cette macro par un raccourci clavier ou affectez-la à des boutons
If Not FeuillePrecedente Is Nothing Then FeuillePrecedente.Activate
End Sub

A+

Cliquez pour agrandir...

job75 à dit:

Placez tout ce code dans ThisWorkbook :

VB:

Dim FeuillePrecedente As Worksheet 'mémorise la variable

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Set FeuillePrecedente = Sh
End Sub

Sub Retour()
'lancez cette macro par un raccourci clavier ou affectez-la à des boutons
If Not FeuillePrecedente Is Nothing Then FeuillePrecedente.Activate
End Sub

Cliquez pour agrandir...

job75 à dit:

Bonjour Bernard,

Notre ami a peut-être un problème de lunettes alors je répète :

Bonne journée.

Cliquez pour agrandir...