[RESOLU] Groupe d'optionButton

[cp4]

Bonjour,🙂

J'ai parcouru pas mal de discussions sur les boutons d'option, ça m'a beaucoup plus embrouillé.

Alors, je pose ma question, j'ai dans une frame, trois (03) boutons d'option,

je voudrais récupérer le caption du bouton activé dans une variable en utilisant la notion de groupe.

c-à-d avec une seule macro ou fonction.

En vous remerciant par avance🙂.

 

[pierrejean]

Bonjour cp4

Avec un module de classe

 

[Si...]

Bon_jour

Première remarque : on doit éviter d'utiliser, pour appellations, des mots clés comme ici Go.

Une seule macro ? C'est mission impossible pour Moi avec 3 boutons d'option.

Par contre pour une seule macro de choix, j'utilise 1 contrôle ListBox comme dans l'exemple donné.

On peut aussi dans ce cas passer, comme pierrejean 😉, par un Module de classe*.
édit : *exemple avec mon style

 

[cp4]

Pierrejean🙂, Si...🙂, Bonjour Messieurs,

Avec tous mes remerciements. C'est ce que je voulais.
j'espère seulement adapter vos codes sur mon fichier réel.
En fait, il y a 2 frames avec, 2 boutons dans le premier (il ne me pose pas de problème)
et le second pour lequel j'ai sollicité votre aide contient 3 boutons.
J'espère que le module de classe ne va pas interférer sur la frame2.

Bonne soirée.

 

[Si...]

Re

...
J'espère que le module de classe ne va pas interférer sur la frame2.

Avec le Module de classe, l'endroit de l'usf, où se situent les boutons n'a pas d'importance contrairement à leur dénomination. On peut en mettre des quantités (j'allais écrire jusqu'à plus soif mais, là aussi, il ne faut pas abuser 😵). Dans ton cas, tu pourras gérer tes 5 boutons dans la classe.

J'ai complété le fichier pour illustrer cela.

Bonne soirée

 

[cp4]

Re

Avec le Module de classe, l'endroit de l'usf, où se situent les boutons n'a pas d'importance contrairement à leur dénomination. On peut en mettre des quantités (j'allais écrire jusqu'à plus soif mais, là aussi, il ne faut pas abuser 😵). Dans ton cas, tu pourras gérer tes 5 boutons dans la classe.

J'ai complété le fichier pour illustrer cela.

Bonne soirée

Merci beaucoup Si...😉,

Arrête de boire😀. C'est justement ce que je ne voulais pas faire.
C'est quand même gentil de ta part et ça pourrait me servir dans un autre fichier.
Bon, je pense avoir compris le truc avec le module de classe.😉

Encore merci.

Bonne soirée.

 

[mapomme]

Bonsoir à tous,

Si les évènements des boutons "option" n'ont pas d'importance, on peut utiliser une fonction unique avec pour paramètre le nom du groupe.

Function SelectedOptionInFrame(xfr As Control) As String
Dim X
   If TypeName(xfr) = "Frame" Then
      For Each X In xfr.Controls
         If TypeName(X) = "OptionButton" Then
            If X.Value Then
               SelectedOptionInFrame = X.Caption
               Exit Function
            End If
         End If
      Next X
   End If
End Function

 

[BOISGONTIER]

Bonsoir,

Une façon simple de gérer les options avec un ListBox

Private Sub UserForm_Initialize()
   Me.ListBox1.List = Array("oui", "Non", "Sais pas")
End Sub

Private Sub ListBox1_Click()
  Me.TextBox1 = Me.ListBox1
End Sub

jb

 

[cp4]

Bonsoir,🙂🙂🙂

@mapomme : Merci beaucoup😉
@BOISGONTIER : Merci beaucoup😉

Merci à vous tous de votre aide, J'ai déjà opté pour une solution mais ça me servira sur d'autres fichiers.

Bonne soirée et bon week-end.😉

 

[laetitia90]

bonsoir tous🙂🙂

Si les évènements des boutons "option" n'ont pas d'importance

salut mapomme😉 c'est quoi l'utilité dans ce cas la?????🙄

 

[mapomme]

Bonsoir laetitia 😉,

Si les évènements des boutons "option" n'ont pas d'importance,

salut mapomme😉 c'est quoi l'utilité dans ce cas la?????🙄

Un cas relativement fréquent : Par exemple un formulaire de création, modification des champs d'une base de données qui comporterait plusieurs groupes d'options. Le formulaire n'est traité que par un clique sur un bouton "Créer" ou "modifier" après les choix de l'utilisateur . Dans les codes associés à ces boutons, on peut utiliser la fonction SelectedOptionInFrame pour chaque frame du formulaire afin de compléter le champ correspondant. Voilà, voilou... (ou bien pour un QCM -> voir exemple joint)