Discussion :

[mrcross]

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 :

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
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.

[Qwazerty]

Salut

Peut-être

Code :

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

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

[mrcross]

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

++

[Qwazerty]

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 :

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

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

[mrcross]

Exactement

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



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

Merci beaucoup !

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
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