Discussion :

[patricktoulon]

Bonjour a tous
j'ai un soucis pour lister les controls dans un multipage

j'ai un multipage avec 4 page
dans une boucle je liste les controls
ca fonctionne sur la 2,3,4 mais pas la 1
je n'arrive pas a trouver l'explication
si quelqu'un a une idée je suis preneur

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub testlistcontrol()
 ind = 100
 For Each ctrl In A002_Dysfonctionnements.Controls
            'toplus = 0
            If ctrl.Parent.Name Like "*Page*" Then
                ind = ctrl.Parent.Parent.Value + 1
                Set parnt = ctrl.Parent.Parent
               ' For i = 1 To 10
                   ' If parnt.Name <> "A002_Dysfonctionnements" Then
                       ' toplus = toplus + parnt.Top
                       ' Set parnt = parnt.Parent
                       ' If parnt.Name = "A002_Dysfonctionnements" Then Exit For
                   ' End If
                'Next
                par = "Page" & ind  ' la page 
            Else
                par = A002_Dysfonctionnements.Name 'l'userform
            End If
If ctrl.Parent.Name = "Page" & ind Then Debug.Print ctrl.Name & "-- " & ctrl.Parent.Name
Next
End Sub

[patricktoulon]

ok cest bon j'ai trouvé c'était simplement mon fichier qui était corrompu