XL 2013 Retour à la dernière page sauf 1

Dafaka7

XLDnaute Junior
Bonjour,
Sur mon fichier dans la page plan d'action j'ai un boton retour à la dernière page.
Sauf que j'ai 2 plan d'action et j'aimerais que le bouton retour, retourne seulement pour les pages nommé
S "N°semaine". En bref, j'aimerais que le bouton retour à la page fonctionne pour toute les pages sauf 1.
Je sais pas si j'ai étais bien clair.
Merci d'avance.
 

Pièces jointes

  • Format réunion GT 2022 TEST.xlsm
    903.6 KB · Affichages: 7
Solution
Salut,
Je ne suis pas sûr d'avoir tout compris,
mais si c'est pour ne revenir uniquement qu'aux feuilles de semaines,
modifier la sub
VB:
Private Sub Workbook_SheetDeActivate(ByVal Sh As Object)
    T = Val(Replace(Sh.Name, "S", 0))
    If T > 0 And T < 53 _
    Then Me.BuiltinDocumentProperties("subject") = Sh.Name
End Sub

fanch55

XLDnaute Barbatruc
Salut,
Je ne suis pas sûr d'avoir tout compris,
mais si c'est pour ne revenir uniquement qu'aux feuilles de semaines,
modifier la sub
VB:
Private Sub Workbook_SheetDeActivate(ByVal Sh As Object)
    T = Val(Replace(Sh.Name, "S", 0))
    If T > 0 And T < 53 _
    Then Me.BuiltinDocumentProperties("subject") = Sh.Name
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
312 177
Messages
2 085 973
Membres
103 073
dernier inscrit
MSCHOE16