Bouton d'option & select case

"Christophe CAMPAIN" <campain.christophe_PasDePub@libertysurf.fr> a écrit dans le message de news:OZtXoWxGEHA.3636@TK2MSFTNGP12.phx.gbl...

Bonjour à tous,

Je ne sais plus utiliser les boutons d'option:

J'ai un formulaire avec 3 boutons d'option et un bouton de validation. Je
voudrai que mon bouton de validation déclenche un choix du type
Select case XXXXX
case Bouton1
choixN°1
case Bouton2
choixN°2
case Bouton3
choixN°3
end select

Je n'y arrive pas !!!!

Merci pour votre aide

@+

Kristof

Bonjour Kristof,

Je n'ai pas de solution "directe" à te proposer.
Par contre, tu peux t'en sortir d'une manière indirecte :
Si on considère que ta userform contient les optionbuttons 1, 2 et 3, et que ton bouton s'appelle btn-validation.

Public check As Integer

Private Sub btn_validation_Click()
Select Case check
Case 1

Case 2

Case 3

End Select
End Sub

Private Sub OptionButton1_Change()
If OptionButton1.Value Then check = 1
End Sub

Private Sub OptionButton2_Change()
If OptionButton2.Value Then check = 2
End Sub

Private Sub OptionButton3_Change()
If OptionButton3.Value Then check = 3
End Sub




J'espère t'avoir fait avancer ton projet.


--
Cordialement,

Rai
Remplacer point par la ponctuation appropriée pour répondre...

Bonjour Rai,

J'ai compris le cheminement de ta solution, mais n'y a t il pas moyen de
lire directement le résultat du groupe d'options plutôt que de passer par
une variable intermédaire qu'il faut renseigner par les évènements des
boutons d'option ?

@+
Kristof
"Rai" <raimondpointschmidt@berlin.de> a écrit dans le message de
news:c4rqgg$2o3$1@news-reader3.wanadoo.fr...

"Christophe CAMPAIN" <campain.christophe_PasDePub@libertysurf.fr> a écrit
dans le message de news:OZtXoWxGEHA.3636@TK2MSFTNGP12.phx.gbl...

Bonjour à tous,

Je ne sais plus utiliser les boutons d'option:

J'ai un formulaire avec 3 boutons d'option et un bouton de validation. Je
voudrai que mon bouton de validation déclenche un choix du type
Select case XXXXX
case Bouton1
choixN°1
case Bouton2
choixN°2
case Bouton3
choixN°3
end select

Je n'y arrive pas !!!!

Merci pour votre aide

@+

Kristof

Bonjour Kristof,

Je n'ai pas de solution "directe" à te proposer.
Par contre, tu peux t'en sortir d'une manière indirecte :
Si on considère que ta userform contient les optionbuttons 1, 2 et 3, et que
ton bouton s'appelle btn-validation.

Public check As Integer

Private Sub btn_validation_Click()
Select Case check
Case 1

Case 2

Case 3

End Select
End Sub

Private Sub OptionButton1_Change()
If OptionButton1.Value Then check = 1
End Sub

Private Sub OptionButton2_Change()
If OptionButton2.Value Then check = 2
End Sub

Private Sub OptionButton3_Change()
If OptionButton3.Value Then check = 3
End Sub




J'espère t'avoir fait avancer ton projet.


--
Cordialement,

Rai
Remplacer point par la ponctuation appropriée pour répondre...

Bonjour

Private Sub CommandButton1_Click()
Dim Opt As Control
For Each Opt In Me.Controls
If TypeName(Opt) = "OptionButton" Then
If Opt.Value = True Then
MsgBox Opt.Name
Exit Sub
End If
End If
Next Opt
End Sub

Alain CROS

"Christophe CAMPAIN" <campain.christophe_PasDePub@libertysurf.fr> a écrit dans le message de news:
#ZScnf6GEHA.3816@TK2MSFTNGP10.phx.gbl...

Bonjour Rai,

J'ai compris le cheminement de ta solution, mais n'y a t il pas moyen de
lire directement le résultat du groupe d'options plutôt que de passer par
une variable intermédaire qu'il faut renseigner par les évènements des
boutons d'option ?

@+
Kristof
"Rai" <raimondpointschmidt@berlin.de> a écrit dans le message de
news:c4rqgg$2o3$1@news-reader3.wanadoo.fr...