Useform avec boutons d'options

Bonjour à tous !

Je souhaite réaliser un useform. Tout fonctionne hormis une seule chose que je ne sais pas utiliser les boutons d'options dans un frame nommé "valeur" de caption " valeur". Quand je lance mon programme cela prend toujours la valeur vraie par défaut qu'importe que je sélectionne l'autre option.

J'ai crée une fonction qui s'appelle Changement(valeur). Je souhaiter demander de choisir entre A ( name "A" , caption "Reponse A" ) et B( Name "B" , caption "Reponse B" qui est une valeur vraie par défaut ( c'est à dire value=true ) .

Si l'utilisateur répond A j'aimerai que Changement prenne la valeur 1 sinon 0.

En fait je bloque sur la compréhension des paramètres ( comment faire référence à tel ou tel bouton ).

Pourriez-vous me dire si le code suivant vous parait juste ? Connaissez-vous une autre façon de faire ?

Bien à vous ,

Voici mon code

Function Changement(valeur)

valeur = UCase(valeur)

If valeur = "A" Or valeur = "Reponse A " Then

Changement = 1

Else

Changement =0

End If

End Function

Bonjour,

Tu peux utiliser la fonction Switch, une piste :

Dim Valeur As Integer

Private Sub A_Click()

    Valeur = Changement(A) 'passe l'objet en argument ici, le bouton d'option A

End Sub

Private Sub B_Click()

    Valeur = Changement(B) 'passe l'objet en argument ici, le bouton d'option B

End Sub

Function Changement(Opt As MSForms.OptionButton)

    Changement = Switch(Opt.Name = "A", 1, Opt.Name = "B", 0)

End Function

Private Sub UserForm_Click()

    'un clic sur le formulaire affiche la valeur
    MsgBox Valeur

End Sub

Je vais essayer cela merci !

Rechercher des sujets similaires à "useform boutons options"