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

[Mich1961]

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]

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:

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]

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]

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