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

Effectuez une recherche sur Excel Downloads...

Détourner la fonction du multipage1

carlos

XLDnaute Impliqué

Sparfell29

XLDnaute Nouveau

Discussions similaires

Membres actuellement en ligne

Partager cette page

Tutos vidéos

Statistiques des forums