Userform : identifier la value d'un multipage pour un contrôle déterminé.

Bonjour,
J'ai un multipage de 4 onglets
Dans le cadre de cette boucle :

Code:

---

1 2 3 4 5

For Each Ctrl In Me.Controls If TypeOf Ctrl Is MSForms.TextBox Then ... End if Next

---

Est-il possible d'identifier la page hôte (Multipage.Value) de chaque Ctrl ?
Merci

Salut,


sachant que la page 1 = 0 et page 2=1 et ......

si ton multipage se nomme mutipage1 alors si tu plasse sur un contrôle :

Code:

---

1 2	msgbox multipage1.value

---

si c'est ce que tu cherche, tu devrais pouvoir trouver seul en cherchant un peu!!

Salut, j'irais voir ici : Utiliser les contrôles dans un UserForm, en VBA Excel ainsi que dans l'aide en ligne.

Bonjour,
je reformule...
Quand on est dans un Userform si on exécute cette macro :

Code:

---

1 2 3 4 5

For Each Ctrl In Me.Controls If TypeOf Ctrl Is MSForms.TextBox Then ... End if Next

---

Est-il possible de savoir si "Ctrl" est dans le multipage et si oui dans quelle page du multipage...
Merci.
Bon Dimanche

Bonjour,
peut-être comme ça

Code:

---

MsgBox Ctrl.Parent.Name

---

et agir en cascade

Code:

---

MsgBox controls(Ctrl.Parent.Name).Parent.Name

---

dans une procédure ou un évènement, à tester

Code:

---

1 2 3 4 5

Dim nom As String, Ctrl As Control For Each Ctrl In Me.Controls nom = Ctrl.Parent.Name & "\" & Ctrl.Name MsgBox nom Next

---

hello,
tu peux faire ceci pour afficher la page et la multipage d'un contrôle qui est dans un multipage :

Code:

---

1 2 3 4 5 6 7 8 9

Dim LaPage As Control For Each ctrl In Me.Controls 'si les pages se nomment Page* If ctrl.Parent.Name Like "Page*" Then Set LaPage = ctrl.Parent Debug.Print ctrl.Name & " : Page : " & LaPage.Name & _ " - Multipage : " & LaPage.Parent.Name End If

---

Cela ressemble beaucoup à la solution de casefayere ;)

Ami calmant, J.P

C'est parfait !
Je sentais bien le Parent par contre j'avais zappé le .Name kivabien avec...
Merci !