Boucle sur CheckBox, OptionButton

Bonjour,

Alors voilà, j'ai pas mal cherché mais je n'ai pas vraiment trouver de réponses concrètes à mon problème.
En gros, une UserForm est générée, ensuite en fonction du nombre de cas, cela génère des "lignes" identiques (seul le nom du cas change)
Je dis ligne pour simplifier mais chaque ligne comporte
- une checkbox
- le nom du cas
- 2 OptionButton (avec le label associé)
Les "lignes" sont générées par une boucle For, leur nom dépendent de l'incrément i

Dans l'idéal, j'aimerais précocher la checkbox par défaut (ça c'est bon), ensuite si elle est décochée, je voudrais que les 2 OptionButton soient décochées et désactivées et que le texte de cette ligne soit grisé.
J'ai essayé pas mal de truc pour l'incrément, mais à chaque fois cela me renvoie une erreur.

Code:

---

1 2 3 4 5 6 7 8 9 10

' For i = 1 To Nbseq ' If UserForm3.Controls("CheckboxAct" & i).Value = False Then ' UserForm3.ActiveControl("OptionButtonTd" & i).Value = False ' UserForm3.ActiveControl("OptionButtonTd" & i).Enable = True ' UserForm3.OptionButtonTrTnd(i).Value = False ' UserForm3.OptionButtonTrTnd(i).Enable = True ' UserForm3.LabelTd(i).Color = &H8000000F ' UserForm3.Label(i).Color = &H8000000F ' End If ' Next i

---

Si vous avez une solution, ou une piste pour résoudre, je vous en serait reconnaissant.
Cordialement

Bonjour,

Ce serait bien de connaître le numéro et la description de l'erreur pour mieux t'aider.
Dans le cas d'OptionButton, il faut, en principe, que l'un ou l'autre d'une série soit sélectionné.
Peut-être est-ce là la source d'erreur (?)

Tu pourrais simplement les désactivé (Enabled = False), ce qui les grisera.
Pour la partie du code, plutôt que de vérifier si l'un ou l'autre est coché, tu pourrais vérifier s'ils sont Enabled = True

Bonjour,
Merci pour ta réponse.

Citation:

---

Erreur de Compilation
Membres de méthode ou données introuvables

---

En fait j'ai besoin de les décocher, car si ils sont cochés le calcul suivant va les prendre en compte, ce que je ne souhaite pas.

Est-ce que ça pourrait répondre à ton attente ?

Code:

---

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

Dim bEtat As Boolean   For i = 1 To Nbseq With UserForm3 bEtat = .Controls("CheckboxAct" & i).Value .Controls("OptionButtonTd" & i).Value = bEtat .Controls("OptionButtonTrTnd" & i).Value = bEtat .Controls("OptionButtonTd" & i).Enabled = bEtat .Controls("OptionButtonTrTnd" & i).Enabled = bEtat .Controls("LabelTd" & i).Enabled = bEtat End With Next i

---

Si j'ai bien compris ce que tu me proposes, ton code va juste regarder la valeur (true ou false) des boutons?
Pour le moment j'ai plus ou moins contourné le problème en créant un troisième OptionButton au lieu d'un Chexbox qui active ou non les deux autres (ceci pour chaque ligne). Mais c'est moins top pour l'esthétique de la UserForm.

Merci pour ta proposition ;)

Si tu veux pouvoir désactiver les 2 OptionButtons, pourquoi ne pas utiliser que des CheckBox ?
Lorsque tu décoches Controls("CheckboxAct" & i), tu décoches les 2 autres systématiquement...

En gros le programme crée un liste de cas.
Pour chaque cas on va effectuer un calcul suivant OptionButton1 ou OptionButton2 mais si la Chexbox est désactiver le calcul ne s'effectue pas.

ça se présente comme ça : je ne sais pas si c'est explicite :
Checkbox Cas 1 OptionButton1 OptionButton2
Checkbox Cas 2 OptionButton1 OptionButton2
Checkbox Cas 3 OptionButton1 OptionButton2
.
.
.
Checkbox Cas i OptionButton1 OptionButton 2

Je ne sais plus où tu en es avec ton erreur, mais ici ça devrait s'écrire Enabled et non pas Enable

Code:

---

UserForm3.ActiveControl("OptionButtonTd" & i).Enable = True

---

En fait j'ai un gros code à débugger.
Mais je ne l'ai pas sur mon pc, donc j'écris des trucs de mémoire ^^
Je comprends que du coup ça ne facilite pas votre aide.

Pour le moment, j'ai laissé un peu de coté cette partie de code. Je reviendrais dessus un peu plus tard.

Merci ;)