Frame et OptionButton

Bonsoir Régis,

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 0 To Me.Frame1.Controls.Count - 1

If Me.Frame1.Controls(i).Value Then
Select Case i
Case 0
MsgBox "1"
'Faire ceci
Case 1
MsgBox 2
'Faire Celà
End Select
End If
Next
End Sub


--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Régis Allevy" <regis@allevy.com> a écrit dans le message de
news:%23i6J2ijoEHA.1992@TK2MSFTNGP09.phx.gbl...

Bonjour à tous,

Je voudrais avoir, sur un tableau, 4 bouttons d'options, dans une
"Frame".

Ensuite, mettre un bout de code VBA dans le genre

Select Case True
Case OptionButton1
Faire ceci
Case OptionButton2
Faire cela
etc...
End Select

Ca, ça ne marche pas, et c'est bien pour ça que je pose ma question.
Quelqu'un a-t-il une réponse?
Merci de m'avoir lu,
Régis

Merci Joël,
Et il n'y a aucun moyen de déclencher cette procédure juste en cliquant
un bouton d'option?
Re,
Régis

"Joel" <joel-garbe@wanadoo.fr> a écrit dans le message de
news:415424a0$0$734$8fcfb975@news.wanadoo.fr...

Bonsoir Régis,

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 0 To Me.Frame1.Controls.Count - 1

If Me.Frame1.Controls(i).Value Then
Select Case i
Case 0
MsgBox "1"
'Faire ceci
Case 1
MsgBox 2
'Faire Celà
End Select
End If
Next
End Sub


--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Régis Allevy" <regis@allevy.com> a écrit dans le message de
news:%23i6J2ijoEHA.1992@TK2MSFTNGP09.phx.gbl...

Bonjour à tous,

Je voudrais avoir, sur un tableau, 4 bouttons d'options, dans une
"Frame".

Ensuite, mettre un bout de code VBA dans le genre

Select Case True
Case OptionButton1
Faire ceci
Case OptionButton2
Faire cela
etc...
End Select

Ca, ça ne marche pas, et c'est bien pour ça que je pose ma question.
Quelqu'un a-t-il une réponse?
Merci de m'avoir lu,
Régis

Bonjour,

Ça demande un peu plus de code. Par exemple, avec 4 boutons d'option :

'====================== Private Sub OptionButton1_Click()
Executer 1
End Sub

Private Sub OptionButton2_Click()
Executer 2
End Sub

Private Sub OptionButton3_Click()
Executer 3
End Sub

Private Sub OptionButton4_Click()
Executer 4
End Sub

Private Sub Executer(ob As Integer)
Select Case ob
Case 1: MsgBox "option 1 cliquée"
Case 2: MsgBox "option 2 cliquée"
Case 3: MsgBox "option 3 cliquée"
Case 4: MsgBox "option 4 cliquée"
End Select
End Sub
'======================
(le code est à recopier dans le module du userform où se trouvent également la
frame et ses optionbutton)

FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !

Merci Joël,
Et il n'y a aucun moyen de déclencher cette procédure juste en cliquant
un bouton d'option?
Re,
Régis

"Joel" <joel-garbe@wanadoo.fr> a écrit dans le message de
news:415424a0$0$734$8fcfb975@news.wanadoo.fr...

Bonsoir Régis,

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 0 To Me.Frame1.Controls.Count - 1

If Me.Frame1.Controls(i).Value Then
Select Case i
Case 0
MsgBox "1"
'Faire ceci
Case 1
MsgBox 2
'Faire Celà
End Select
End If
Next
End Sub


--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Régis Allevy" <regis@allevy.com> a écrit dans le message de
news:%23i6J2ijoEHA.1992@TK2MSFTNGP09.phx.gbl...

Bonjour à tous,

Je voudrais avoir, sur un tableau, 4 bouttons d'options, dans une

"Frame".

Ensuite, mettre un bout de code VBA dans le genre

Select Case True
Case OptionButton1
Faire ceci
Case OptionButton2
Faire cela
etc...
End Select

Ca, ça ne marche pas, et c'est bien pour ça que je pose ma question.
Quelqu'un a-t-il une réponse?
Merci de m'avoir lu,
Régis