Détourner la fonction du multipage1

carlos · 22 Octobre 2018

Bonjour,
j'ai détourné la fonction des entetes de multipage .
J'ai un onglet du multipage (Page(4) par exemple) qui s'appelle par exemple "Enregistrer". Lorsque je clique dessus mon fichier est aussitôt enregistré grâce à une macro.
J'aimerais revenir à ma page(0) :
Private Sub MultiPage1_Change()
Select Case MultiPage1.Value
Case 4 'Enregistrer
ActiveWorkbook.Save
MultiPage1.Value = 0 ' <------- Ne revient pas à la page 0

Merci
Carlos

Sparfell29 · 21 Juin 2019

Dim TheAgreedPage As Byte

VB:

Private Sub CommandButton1_Click()
TheAgreedPage = 1
Me.MultiPage1.Value = TheAgreedPage
End Sub

Private Sub CommandButton2_Click()
TheAgreedPage = 2
Me.MultiPage1.Value = TheAgreedPage
End Sub

Private Sub CommandButton3_Click()
TheAgreedPage = 3
Me.MultiPage1.Value = TheAgreedPage
End Sub

Private Sub CommandButton4_Click()
TheAgreedPage = 4
Me.MultiPage1.Value = TheAgreedPage
End Sub
Private Sub CommandButton5_Click()
TheAgreedPage = 0
Me.MultiPage1.Value = TheAgreedPage
End Sub

Private Sub CommandButton6_Click()
TheAgreedPage = 1
Me.MultiPage1.Value = TheAgreedPage
End Sub

Private Sub CommandButton7_Click()
TheAgreedPage = 2
Me.MultiPage1.Value = TheAgreedPage
End Sub
Private Sub CommandButton8_Click()
TheAgreedPage = 3
Me.MultiPage1.Value = TheAgreedPage
End Sub

Détourner la fonction du multipage1

carlos

XLDnaute Impliqué

Sparfell29

XLDnaute Nouveau

Discussions similaires