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,