Bouton d'option & select case

Le
Christophe CAMPAIN
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
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Rai
Le #1285895
"Christophe CAMPAIN"
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...

Christophe CAMPAIN
Le #1233127
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" news:c4rqgg$2o3$

"Christophe CAMPAIN" dans le message de news:
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...

Alain CROS
Le #1228241
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" #
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" news:c4rqgg$2o3$



Publicité
Poster une réponse
Anonyme