[AC-2003] Label des cases d'options d'un groupe d'options

[jmde]

Bonjour,

J’ai un groupe d’options qui comprend plusieurs Cases d’options.

Comment faire pour capter le libellé de la Case option lorsque
j’active celle-ci ?.

J’y arrive par ce code lorsqu’il s’agit d’une case à cocher, mais
je n’arrive pas à le modifier pour un groupe d’option.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim ctl As Control
Dim MonLabel As Control
Const SufxLbl = "_étiquette"
 
Set ctl = ActiveControl
 
If TypeOf ctl Is CheckBox Then
            Set MonLabel = Me.Controls(ctl.Name & SufxLbl)
            C_lbl = MonLabel.Caption
        If ctl.Value = -1 Then
            MonLabel.ForeColor = RGB(255, 0, 0)
        Else
            MonLabel.ForeColor = 14191499
        End If
      End If

Merci de votre aide.

Salutations

[loufab]

Bonjour,
Tu peux t'inspirer du code de cette discussion.

http://www.developpez.net/forums/d10...ion-nom-label/

Cordialement,