Début userform de plusieurs pages sur une page spécifique

J'ai un Userform nommé SheetBox

SheetBox contient un 3-page multipage fenêtre

"page1" pour la sélection des feuilles à l'importation
"page2" contient un pseudo
barre de progression
"page3" pour la sélection des feuilles de protéger

Ce dont j'ai besoin maintenant est une méthode pour ouvrir une page spécifique lors de l'ouverture du Userform quand un bouton sur une feuille de calcul est cliqué

ex:

ImportBttn ouvre la page 1 de l'objet userform

ProtctBttn ouvre page3 de l'objet userform

Je suis en train de faire pour réduire le nombre de userform j'avais besoin de créer, au lieu de créer 3 userforms. Cela permet aussi de réduire la taille du fichier.

InformationsquelleAutor forums | 2013-02-12
  1. 8

    Cela fonctionne trop

    Sub ImportBttn_Click()
Load SheetBox: SheetBox.MultiPage1.Value = 0: SheetBox.Show
End Sub

Sub ProtctBttn_Click()
Load SheetBox: SheetBox.MultiPage1.Value = 2: SheetBox.Show
End Sub

    cette charge sheetbox tout d'abord, les changements de la de plusieurs pages une page et l'affiche ensuite

    mais merci pour l'appelant de la méthode, sera utile quand j'ai besoin de savoir ce bouton enfoncé

    InformationsquelleAutor forums
  2. 6

    Dans les UserForms Initialise Événement, utilisez Application.Caller pour détecter le bouton sur la feuille de calcul a été pressé, et puis définissez la multipage

    Private Sub UserForm_Initialize()
Select Case Application.Caller
Case "ImportBttn"
`1st tab
Me.MultiPage1.Value = 0
Case "ProtctBttn"
`3rd tab
Me.MultiPage1.Value = 2
End Select
End Sub
    InformationsquelleAutor brettdj