en fait j'ai mis :
Private Sub CommandButton1_Click()
UserForm1.Hide
mdp1.Show
End Sub
Private Sub UserForm_Initialize()
If mdp1.TextBox1 = "toto" Then
UserForm1.Show
With MultiPage1
.Enabled = True
.Pages(0).Visible = True
.Pages(1).Visible = True
End With
ElseIf mdp1.TextBox1 <> "toto" Then
With MultiPage1
.Enabled = True
.Pages(0).Visible = True
.Pages(1).Visible = False
End With
End If
End Sub
ca bug......
je pense que je ne suis pas loin de réussir mais je ne sais pas ce qu'il faudrait modifier
lili