Discussion :

[Yamiral]

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 :

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

[Docmarti]

Bonjour.

Voici une solution avec TypeName.

Code :

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

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

[Invité]

Bonjour,

Une autre solution que celle de DOCMARTI :

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

[Yamiral]

Merci à vous pour les retours !

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