Discussion :

[GoFio]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[parmi]

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

[GoFio]

Bonjour,
Merci pour ta réponse.

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.

[Phil'oche]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[GoFio]

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

[parmi]

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...

[GoFio]

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

[parmi]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[GoFio]

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