XL 2016 Vba

[Bebzinda]

Slt a tous! Je voulais de l'aide pour écrire un code (retour a la dernière feuille du classeur ouverte).

 

[Dranreb]

Bonsoir. Et celle d'avant, aussi, après ?
Dans ThisWorkbook :

Option Explicit
Private Cln As New Collection
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   Cln.Add Sh
   If Cln.Count > 100 Then Cln.Remove 1
   End Sub
Public Sub Retour()
   If Cln.Count < 2 Then Exit Sub
   Cln.Item(Cln.Count - 1).Activate
   Cln.Remove Cln.Count - 2
   End Sub

Affectez la macro ThisWorkbook.Retour à des boutons de formulaire dans les feuilles

 

[Phil69970]

Bonjour @Bebzinda
Edit : Bonjour Bernard

Une remarque tout d'abord :

1) Beaucoup de tes demandes s'appellent Vba ou Copy

Voir la charte :
2.3 – Le titre de la question doit être clair et comporter explicitement le sujet de la demande. Cela sous-entend qu’une nouvelle demande fait l’objet d’un nouveau fil.
2.4 – La question doit être posée le plus clairement possible en comprenant bien que le lecteur ne peut pas s’imaginer le problème.

De ce que j'ai compris je te propose :

Sheets(Sheets.Count).Select

Merci de ton retour

@Phil69970
:

 

[Dranreb]

À la réflexion ma proposition était idiote. Toujours dans ThisWorkbook :

Option Explicit
Private ShPrév As Object, ShNext As Object
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   Set ShPrév = ShNext
   Set ShNext = Sh
   End Sub
Public Sub Retour()
   If Not ShPrév Is Nothing Then ShPrév.Activate
   End Sub

 

[Bebzinda]

À la réflexion ma proposition était idiote. Toujours dans ThisWorkbook :

Option Explicit
Private ShPrév As Object, ShNext As Object
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   Set ShPrév = ShNext
   Set ShNext = Sh
   End Sub
Public Sub Retour()
   If Not ShPrév Is Nothing Then ShPrév.Activate
   End Sub

 

[Bebzinda]

À la réflexion ma proposition était idiote. Toujours dans ThisWorkbook :

Option Explicit
Private ShPrév As Object, ShNext As Object
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   Set ShPrév = ShNext
   Set ShNext = Sh
   End Sub
Public Sub Retour()
   If Not ShPrév Is Nothing Then ShPrév.Activate
   End Sub

Merci ! Ça marche exactement comme je le voulais.

 

[Bebzinda]

Bonjour @Bebzinda
Edit : Bonjour Bernard

Une remarque tout d'abord :

1) Beaucoup de tes demandes s'appellent Vba ou Copy

Voir la charte :
2.3 – Le titre de la question doit être clair et comporter explicitement le sujet de la demande. Cela sous-entend qu’une nouvelle demande fait l’objet d’un nouveau fil.
2.4 – La question doit être posée le plus clairement possible en comprenant bien que le lecteur ne peut pas s’imaginer le problème.

De ce que j'ai compris je te propose :


Merci de ton retour

@Phil69970
:

Slt! Merci pour la remarque je vais en tenir compte les prochains foi.

Bonjour @Bebzinda
Edit : Bonjour Bernard

Une remarque tout d'abord :

1) Beaucoup de tes demandes s'appellent Vba ou Copy

Voir la charte :
2.3 – Le titre de la question doit être clair et comporter explicitement le sujet de la demande. Cela sous-entend qu’une nouvelle demande fait l’objet d’un nouveau fil.
2.4 – La question doit être posée le plus clairement possible en comprenant bien que le lecteur ne peut pas s’imaginer le problème.

De ce que j'ai compris je te propose :


Merci de ton retour

@Phil69970
:

Slt merci pour la remarque je vais en tenir compte les prochaines foi! J'ai recu une réponse pour le sujet. Excellente journée a vous!