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.