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

[badraaliou4]

Bonjour,

Je veux un code VBA qui me permettra de retourner dans la dernière feuille utilisée ...
Merci pour votre aide.
Cdl
badraaliou4

 

[job75]

Bonsoir badraaliou4,

Placez tout ce code dans ThisWorkbook :

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+

 

[badraaliou4]

Bonsoir badraaliou4,

Placez tout ce code dans ThisWorkbook :

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+

J'ai testé mais ça ne marche pas ...
Message erreur"objet requis"

 

[job75]

Bien sûr j'avais testé et ça marche.

 

[Dranreb]

Bonsoir.
Joignez ce que vous avez fait, j'ai testé aussi, et ça marche: en exécutant ThisWorkbook.Retour ça active la feuille précédente.

 

[job75]

Bonjour Bernard,

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

Placez tout ce code dans ThisWorkbook :

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

Bonne journée.

 

[Dranreb]

Bonjour job75.
Je vois que nous ne parierions pas l'un contre l'autre qu'il aurait mis le code dans un module standard, à la rigueur dans un module d'objet Worksheet, mais en tout cas pas dans le module ThisWorkbook …

 

[badraaliou4]

Bonjour Bernard,

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

Bonne journée.

Bonjour ,
Ça marche maintenant.
Vraiment merci beaucoup