Bouton à option

[hehee]

Bonjour,
J'ai un Userform qui contient 30 boutons à options. J'aimerais les remplir les .caption avec des valeurs dans la case "A9" à "A39".
Puis, une fois le userform validé, j'aimerais connaître quel bouton à été activé parmi les 30 ?

Je m'imagine qu'avec un Select Case je pourrais y arriver, mais serait-il possible d'y arriver d'une façon plus effiace ?
J'ai essayé avec :

i=9
For Each j In Controls
    'If j = 31 Then Exit For
    j.Caption = Feuil4.cells(i,1).value

    i = i +1
Next j

Mais le problème, c'est que je parcours aussi mon titre et mes autres choses dans mon userform. Cela ne change pas seulement les boutons à option.

Pourriez-vous m'aider ??

Merci !

 

[Grand Chaman Excel]

Re : Bouton à option

Bonjour,

Quelque chose du genre, en vérifiant le type du contrôle:

Dim CTRL As Control
For Each CTRL In Me.Controls
  If TypeOf CTRL Is MSForms.OptionButton Then 
     ....
  End if
Next

 

[hehee]

Re : Bouton à option

Bonjour,

Quelque chose du genre, en vérifiant le type du contrôle:

Dim CTRL As Control
For Each CTRL In Me.Controls
  If TypeOf CTRL Is MSForms.OptionButton Then 
     ....
  End if
Next

Parfait, ça remplie à merveille mes .caption.

Est-ce que tu aurais une manière de connaître lequel des mes boutons à option est coché ?

Merci !

 

[Jam]

Re : Bouton à option

Salut hehee,

Pour connaître qui appel jette un oeil du côté de Application.Caller

Bon courage

 

[hehee]

Re : Bouton à option

Merci à vous tous !

Pour ceux que ca pourrait aider, voìlà comment je m'y suis prit pour trouver quel bouton était coché:

Public Sub Bouton_valider_Click()
'Trouve quel bouton est activé et stock la valeur associée dans une 
'variable public (Famille)
For Each Ctr In Me.Controls
    If TypeOf Ctr Is MSForms.OptionButton Then
        bouton = bouton + 1
        somme = somme + Ctr.Value
        
        If somme = -1 Then
            famille = Feuil4.Cells(9 + bouton - 1 , 1)
            Exit For
        End If

    End If
Next Ctr
End If

 

[Pierrot93]

Re : Bouton à option

Bonjour,

voir ici :
Bouton à option : Excel - VBA

bonne journée
@+