Discussion :

[galopin01]

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

Code :

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

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

[jijie]

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 :

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

1
2
 
msgbox multipage1.value

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

[kiki29]

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

[galopin01]

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

Code :

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

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

[casefayere]

Bonjour,
peut-être comme ça

Code :

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

MsgBox Ctrl.Parent.Name

et agir en cascade

Code :

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

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

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

Code :

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

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

[jurassic pork]

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

Code :

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

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

[galopin01]

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