accès sur l'userform commander l'accès à la page1 ou à la page2 ... du multipage par

Mich1961

XLDnaute Nouveau
re bonsoir,
(j'ai changé l'intitulé)

j'ai accès à un userform par l'intermédiaire d'une cellule, cette userform contient des texbox et un multipage, je voudrais lors de l'accès sur l'userform commander l'accès à la page1 ou à la page2 ... du multipage par mot de passe (différent suivant la page).
 

bqtr

XLDnaute Accro
Re : accès sur l'userform commander l'accès à la page1 ou à la page2 ... du multipage

Bonsoir Mich1961,

Voici un exemple avec un Multipage avec deux pages:
Code:
Private Sub UserForm_Initialize()

Dim Mdp As String

Me.MultiPage1.Pages(0).Enabled = False
Me.MultiPage1.Pages(1).Enabled = False

Mdp = InputBox("Entrer le mot de passe.", "Identification:")

Select Case Mdp
  Case Is = "Page1"
    MultiPage1.Pages(0).Enabled = True
    MultiPage1.Value = 0
  Case Is = "Page2"
    MultiPage1.Pages(1).Enabled = True
    MultiPage1.Value = 1
  Case Else
    MsgBox "Impossible d'activer la page.", , "Erreur d'identification."
End Select

End Sub
Suivant le mot de passe, la page 1 ou la page 2 du Multipage sera activée.
Si erreur sur le mot de passe les pages du Multipage resteront désactivées.

A+
 

Mich1961

XLDnaute Nouveau
Re : accès sur l'userform commander l'accès à la page1 ou à la page2 ... du multipage

Merci bqtr, j'essayerai dans la journée. mais je pense que ça doit fonctionner.
 

Mich1961

XLDnaute Nouveau
Re : accès sur l'userform commander l'accès à la page1 ou à la page2 ... du multipage

A bqtr
Merci pour le code cela fonctionne très bien.

Mich
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas