Propriétés de sélection de CheckBox et OptionBoutton

Bonjour

j'ai programmé plusieurs éléments (3) à cocher dans une frame.

J'aimerai que l'utilisateur puisse en choisir soit 0 soit 1.

Ma première idée était d'utiliser des OptionButtons pour leur propriétés de sélection unique. le problème est que l'optionButton ne permet pas le décochage.

L'idée d'utiliser une CheckBox permet le décochage mais je n'arrive pas à lier le cochage d'une case au décochage des autres car la mise a jour de la CheckBox entraine l'appel de la fonction qui entraine la MAJ de la CB...

Mes CheckBoxes sont toutes numérotées dans une Collection appelée listCB

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Sub NewCheckbox_Click()   Select Case NumBout   Case 1 listCB.Item(1).NewCheckbox = True listCB.Item(2).NewCheckbox = False listCB.Item(3).NewCheckbox = False   Case 2 listCB.Item(1).NewCheckbox = false listCB.Item(2).NewCheckbox = true listCB.Item(3).NewCheckbox = False   Case 3 listCB.Item(1).NewCheckbox = False listCB.Item(2).NewCheckbox = False listCB.Item(3).NewCheckbox = true   End Select     End Sub

---

Si quelqu'un à une idée pour pouvoir combiner les propriétés d'unicité de l'optionbouton et de décochage de la checkbox, merci


EB

Bonsoir

Soit 3 checkbox dans un frame sur un userform
Puis le code suivant

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub checkbox1_afterupdate() CheckBox2.Value = False CheckBox3.Value = False End Sub   Private Sub checkbox2_afterupdate() CheckBox1.Value = False CheckBox3.Value = False End Sub   Private Sub checkbox3_afterupdate() CheckBox1.Value = False CheckBox2.Value = False End Sub

---

Donne, je crois, le résultat escompté.

Si ça peut convenir...

1. pour décocher une case à cocher, il faut mettre la propriété "TripleState" à "True" puis
2. Mettre "" (vide) dans la propriété "Value" de la case à cocher.

ESVBA

bonsoir,

Citation:

---

Ma première idée était d'utiliser des OptionButtons pour leur propriétés de sélection unique. le problème est que l'optionButton ne permet pas le décochage.

---

Tu peux gérer le "décochage" de l'OptionButton en gérant le click par un test de la propriété Value.

Comme suggéré dans ton post "outil de selection multti...", utiliser une ListBox pour une série d'option est parfois plus pratique
Les propriétés pour:
changer l'affichage de la liste en OptionButton ou Checkbox en fonction de la propriété MultiSelect

Code:

---

.ListStyle = fmListStyleOption

---

affichage ordinaire.

Code:

---

.ListStyle = fmListStylePlain

---

affichage optionButton

Code:

---

.MultiSelect = fmMultiSelectSingle

---

chekbox permettant plusieurs selections

Code:

---

.MultiSelect = fmMultiSelectMulti

---

chekbox ne permettant qu'une selection

Code:

---

.MultiSelect = fmMultiSelectExtended

---

La propriété

Code:

---

Selected (Index)

---

renvoi la valeur True ou False d'un élément. Propriété en Lecture/Ecriture.

en relisant le 1 post, si le problème est l'activation d'évènements non voulu, il y a deux possibilités :

1. Interdire l'exécution d'évènement (à désactiver avant le code puis à réactiver)
   
   Code:

   ---

   Application.EnabledEvents = True/False

   ---

2. L'utilisation d'une variable globale (ou static cas), d'affecter sa valeur au premier lancement et de faire un test dans la bonne boucle.

ESVBA

Bonjour à tous et merci de vos réponses.

Malheureusement, je n'ai toujours pas réussi à trouver de solution "satisfaisante" à mon souci.

- La solution de keygen08 est fonctionne mais la fonction de callback de mes optionbuttons/checkboxes est unique (les boutons sont différenciés par leur propriétés (numéros))

-L'utilisation de listboxes me ramène au problème de décochage+ au fait que mes listboxes devraient être liés entre elles ce qui ferait un joli sac de noeuds (je pense)

- enfin, l'utilisation De EnableEvents (ou de Triplestate) me semblait la meilleure solution mais n'empêche pas la fonction de s'auto-appeler dès la MAJ d'un des boutons (je pense que je l'utilise mal)

merci encore de vos réponses.

EB

Rebonjour,

j'ai réussi à trouver une solution. Comme préconisait ESVBA, j'utilise une variable globale d'autorisation de changement que je teste en début de fonction et que je réinitialise en fin pour que la fonction de MAJ ne puisse être appelée qu'une fois

Code:

---

1 2 3 4 5 6 7 8

If Change=True '...MAJ des data ... Change = False ListGraph(NumGraph).Item(NumFrame).Item(1).NewOptBouton = B1 ListGraph(NumGraph).Item(NumFrame).Item(2).NewOptBouton = B2 ListGraph(NumGraph).Item(NumFrame).Item(3).NewOptBouton = B3 Change = True End If

---

des fois les solutions les plus simples sont les meilleures^^