userform multipage objet

Version imprimable

svp quelle est l'erreur ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Dim Ctrl As Control
Dim i As Integer
i = 0
For Each Ctrl In Controls
    If TypeName(Ctrl) = "ToggleButton" And (Ctrl.Object.Caption = "Enfant") Then
        i = i + 1
    End If
Next Ctrl
 
    If i = 1 Then
                    MsgBox ("1")
                ElseIf i = 2 Then
                    MsgBox ("2")
                ElseIf i = 3 Then
                    MsgBox ("3")
                ElseIf i = 4 Then
                    MsgBox ("4")
                ElseIf i = 5 Then
                    MsgBox ("5")
 
    End If
 
 
End With

26/08/2012, 16h32
kiki29

Salut, voir ici
26/08/2012, 19h49
AlainTech

Bonjour,

Vu que les contrôles dépendent du UserForm et pas du MultiPage, une solution est de nommer les contrôles de manière à savoir sur quelle page ils sont.
27/08/2012, 07h03
AlainTech

Franchement, pas cool de changer totalement de question en cours de route.
27/08/2012, 08h21
pilounet54

ce n'est pas volontaire.je souhaitais simplement apporter de l'eau a mon moulin
je m'en escuse humblement

Fuseau horaire GMT +2. Il est actuellement 01h12.