Caption d'un frame

Version imprimable

Caption d'un frame

Bonjour,

J'ai un frame avec des optionbuttons et j'aimerais récupérer le caption du frame dans lequel est l'optionbutton.

j'ai ce code pour le moment et je sèche, google n'a rien trouvé !

Je souhaite rajouter une ligne :
Cells(V,9) = Ctrl.Frame.caption (La commande est fausse, mais c'est pour vous donner une idée de ce que je recherche).
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Dim V As Byte V = Sheets("BDD").Cells(Rows.Count, 1).End(xlUp).Row + 1 'première cellule vide Dim Ctrl As Control For Each Ctrl In Ecoute.Controls If TypeOf Ctrl Is MSFORMS.OptionButton Then If Ctrl = True Then Sheets("BDD").Cells(V, 8) = Ctrl.GroupeName Sheets V = V + 1 End If End If Next Ctrl
Si vous avez des pistes, je suis preneur.

Merci d'avance,

Bonjour.

Voici une solution avec TypeName.

Code:

1
2
3
4
5
6
7
8
9
For Each Ctrl In UserForm1.Controls
If TypeName(Ctrl) = "OptionButton" Then
If Ctrl = True Then
        Sheets("BDD").Cells(V, 1) = Ctrl.Parent.Caption
        V = V + 1
End If
End If
 
Next Ctrl

Bonjour,

Une autre solution que celle de DOCMARTI :

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
31
32
33
Sub ChercherLeFrame()
 
Dim FrameUsf As MSForms.Frame
Dim OptionUsf As MSForms.OptionButton
 
Dim I As Integer
Dim J As Integer
Dim V As Long
 
    V = 2
    With UserForm1
         For I = 1 To UserForm1.Controls.Count
            If TypeOf UserForm1.Controls.Item(I - 1) Is MSForms.Frame Then
                Set FrameUsf = UserForm1.Controls.Item(I - 1)
                For J = 1 To FrameUsf.Controls.Count
                    If TypeOf FrameUsf.Controls.Item(J - 1) Is MSForms.OptionButton Then
                       Set OptionUsf = FrameUsf.Controls.Item(J - 1)
                       With Sheets("BDD")
                           .Cells(V, 1).Value = FrameUsf.Caption
                         '  .Cells(V, 2).Value = OptionUsf.Name
                         '  .Cells(V, 3).Value = OptionUsf.GroupName
                            V = V + 1
                       End With
                       Set OptionUsf = Nothing
                    End If
                Next J
                Set FrameUsf = Nothing
            End If
         Next I
 
    End With
 
End Sub

Cordialement.

07/04/2015, 10h16
Yamiral

Merci à vous pour les retours !

Exactement ce que je cherchais !
Un grand merci à vous.