XL 2016 Vba

Bebzinda · 12 Octobre 2022

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

Dranreb · 12 Octobre 2022

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

VB:

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

Dranreb · 12 Octobre 2022

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

VB:

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 · 12 Octobre 2022

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 · 12 Octobre 2022

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

VB:

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 · 12 Octobre 2022

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

VB:

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 · 12 Octobre 2022

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

VB:

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 · 12 Octobre 2022

Phil69970 à dit:
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.

Phil69970 à dit:
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!

XL 2016 Vba

Bebzinda

XLDnaute Nouveau

Dranreb

Dranreb

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Bebzinda

XLDnaute Nouveau

Bebzinda

XLDnaute Nouveau

Bebzinda

XLDnaute Nouveau

Discussions similaires