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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Rai
"Christophe CAMPAIN" a écrit 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...
"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...
"Christophe CAMPAIN" a écrit 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...
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" a écrit dans le message de news:c4rqgg$2o3$
"Christophe CAMPAIN" a écrit 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...
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...
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" a écrit dans le message de news:c4rqgg$2o3$
"Christophe CAMPAIN" a écrit 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
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" a écrit dans le message de news: #
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" a écrit dans le message de news:c4rqgg$2o3$
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...
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" a écrit dans le message de news: #
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" a écrit dans le message de news:c4rqgg$2o3$