Userform - Parcourir les frames

Bonjour à tous,

J'utilise ce code pour parcourir des Frames et voir si un choix a été fait dans les boutons option (si ce n'est pas le cas j'encadre le Frame en rouge)

La structure de mon userform est Userform > Frame_meca > Frame2 > Boutons.

Frame_meca contient une dizaine de Frames sur lesquels je boucle et qui contiennent chacun des boutons options
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 25 26 27 28 29 30 Public Sub val_vide() Dim Frame_test Dim ole1 As Control Dim ole2 As Control For Each ole1 In Me.Frame_meca.Controls If Left(ole1.Name, 5) = "Frame" Then If ole1.Visible = True Then Frame_test = ole1.Name coche = "" For Each ole2 In Me.Frame_meca.Controls If ole2.Container.Name = Frame_test Then If (TypeOf Ctrl Is OptionButton) Then If ole2.Value = True Then coche = "ok" End If End If End If Next If coche <> "ok" Then ole1.BorderColor = &HFF& ole1.BorderStyle = 1 Else ole1.SpecialEffect = 3 End If End If End If Next End Sub
Je bloque donc sur la ligne de code en rouge, mes différents essais de syntaxe étant restés vains.

Merci d'avance pour votre aide.

Salut

Peut-être
Code:

1 2 If ole2.Name = Frame_test Then
J'avoue ne pas tout avoir saisi de la logique du code mais toujours est-il que l'objet "control" n'a pas de membre "container", donc je suppose que c'est ce qui crée l'erreur (intitulé du message d'erreur ?).

++
Qwaz

Bonjour,

Frame_test = ole1.Name, j'aimerais boucler ensuite sur ce Frame de cette manière :

For Each ole2 In Me.Frame_meca.Frame_test.Controls mais hélas cela ne marche pas

++

SAlut

Je ne comprends pas la finalité, peux-tu mettre un fichier demo ?

[Edit]
ahh
Tu veux boucler sur les "controls" contenu dans le frame ayant le nom contenu dans la frame Frame_Teste ?
[/Edit]

[Edit2]
Code:

1 2 For Each ole2 In Me.Frame_meca.Controls(Frame_Test).controls
Mais à mon avis il y a des solutions plus simple, je n'en suis pas certain n'ayant pas la structure sous les yeux mais j'en ai le sentiment.

[/Edit2]
++
Qwaz

1 pièce(s) jointe(s)

Exactement

Je cherche à boucler dans les Frames contenu dans le Frame "Frame_meca" pour vérifier si un choix a été fait.

Pièce jointe 165820

ok ça marche nickel. Voici le code fonctionnel après une première simplification. Je suis ouvert à tout autre idée

Merci beaucoup !

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
25
26
27
28
29
30
 
Public Sub val_vide()
Dim ole1 As Control
Dim ole2 As Control
 
 
        For Each ole1 In Me.Frame_meca.Controls
            S = ole1.Name
            If Left(ole1.Name, 5) = "Frame" Then
                If ole1.Visible = True Then
                    coche = ""
                    For Each ole2 In Me.Frame_meca.Controls(ole1.Name).Controls
                        If (TypeOf ole2 Is OptionButton) Then
                            If ole2.Value = True Then
                               coche = "ok"
                            End If
                        End If
                    Next
                    If coche <> "ok" Then
                        ole1.BorderColor = &HFF&
                        ole1.BorderStyle = 1
                    Else
                        ole1.BorderStyle = 0
                        ole1.BorderColor = &H80000012
                        ole1.SpecialEffect = 3
                    End If
                End If
            End If
        Next
End Sub