Discussion :

[chyanon]

Bonjour à tous,

Pour résumer.
J'ai un textbox1 qui va contenir le nom de la page qui va falloir ouvrir.
J'ai un Multipage1 qui contient 5 pages(0, 1 , 2 , 3 , 4)
Quand je sors du textbox1, je veux ouvrir la page qui porte le nom du textbox1.text

J'arrive à sélectionner les pages suivant leur numéro mais pas suivant leur Nom(.caption).

Est t'il possible de le faire ?

J'espère avoir bien expliqué mon problème!

[sabzzz]

bonjour,

la méthode que j'utilise est de faire une boucle,
je n'en connais pas d'autre, j'espère qu'il y aura d'autres réponses.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
With Me.MultiPage1
For i = 0 To .Pages.Count - 1
If .Pages(i).Caption = "zaza" Then .Value = i: Exit For
Next
End With

isabelle

[Pierre Fauconnier]

Bonjour

Afin de m'assurer que la saisie correspond bien au "caption" d'une page du multipage, je préfère passer par un combobox, initialisé avec les noms des pages lors de l'initialisation du userform.

Au changement de valeur du combobox, il suffit de récupérer l'index de la liste, qui correspond à l'index de la page sélectionnée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub ComboBox1_Change()
  MultiPage1.Value = ComboBox1.ListIndex
End Sub
 
Private Sub UserForm_Initialize()
  With ComboBox1
    .AddItem "Page 1"
    .AddItem "Page 2"
  End With
End Sub

[chyanon]

Merci beaucoup à vous deux !

J'ai fais un mix de vos réponses!(En plus le combobox m'arrange )

Voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub UserForm_Initialize()
    With Me.MultiPage1
    For i = 0 To .Pages.Count - 1
    nom = .Pages(i).Caption
    ComboBox2.AddItem nom
    Next
    End With
End Sub
 
Private Sub ComboBox2_Change()
MultiPage1.Value = ComboBox2.ListIndex
End Sub

Merci encore !
Bon WE