Ouvrir la page d'un multipage avec son nom(.caption)et non son numéro(.value)

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!

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:

---

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

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:

---

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

---

Merci beaucoup à vous deux !:ccool::ccool:

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

Voici mon code:

Code:

---

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