OptionButton

[apdf1]

Bonsoir

J'ai 15 OptionButton sur un USF comment je peut les deselectionner a l'aide d'un bouton

Autrement que OptionButton2 = 0

Merci d'avance

Bonne soirée

Max

 

[jmps]

Re : OptionButton

Bonjour apdf1,

Pas très claire ta question.

15 OptionButton ok mais les boutons radio, pour les nommer en français, sont faits pour n'en cocher qu'un contrairement aux cases à cocher.
Et mettre un bouton pour gérer les boutons ça me semble un peu tiré par mes anciens cheveux.

Mets un exemple de fichier qu'on comprenne mieux.

 

[kjin]

Re : OptionButton

Bonsoir le fil,
A associer à ton bouton, si j'ai bien tout compris

Private Sub CommandButton1_Click()
Dim c As Control
For Each c In Controls
    If TypeOf c Is MSForms.OptionButton Then c = 0
Next
End Sub

A+
kjin

 

[apdf1]

Re : OptionButton

Bonjour Jmps, Kjin,

Je vous remercie beaucoup le code est Nickel.

Pour répondre a l'ami JMPS c'est vrai que l'on en coche qu'un a la fois mais quand il y a n'a quinze...! il aurais fallut que je face 15 fois OptionButton1 = 0, OptionButton2 = 0 ect..... avec le code de Kjin je peut coché n'importe lequel aucun problème.

Sur ce Bonne journée à tous et remercie beaucoup.

Cordialement
Max

 

[fhoest]

Re : OptionButton

Bonjour,
il est vrai que le code a Kijn que je salut au passage est correct,mais comme dis notre ami JMPS que je salut également,les bouton d'option,logiquement se décoche par eux même lorsque l'on n'en coche un autre a coté,pour autant qu'il ne soit pas inclus dans différents Frame
cela ne marche pas comme les case à cocher que tu peux sélectionner en nombre,
Bref le principal c'est que tu as trouvé bon compte a ta question.
Bon week end a tous.

 

[kjin]

Re : OptionButton

Bonjour,

....les bouton d'option,logiquement se décoche par eux même lorsque l'on en coche un autre a coté

C'est bien là le pb...

J'ai 15 OptionButton sur un USF comment je peut les deselectionner a l'aide d'un bouton

...il faut lire "réinitialiser"
A+
kjin

 

[fhoest]

Re : OptionButton

il est vrai que le code a Kijn que je salut au passage est correct
Bref le principal c'est que tu as trouvé bon compte a ta question.

je ne vois pas le problème,et je n'arrive pas a lire réinitialiser dans #1.
Au plaisir.

 

[Staple1600]

Re : OptionButton

Bonjour à tous


Pour le fun (et pour le plaisir de croiser le Sieur kjin)

Private Sub CommandButton1_Click()
Dim c As Control
For Each c In Controls
c = 1 + (InStr(TypeName(c), "O") = 1)
Next
End Sub

PS: mais cette façon de faire n'est pas la plus prudente 🙄

 

[kjin]

Re : OptionButton

Re, Sieur Staple 🙂,
Moi qui avait déjà les Boutons...
A+
kjin