Changement Format (.Value & .Enabled) suivant la valeur d'une CheckBox dépendant de i

Bonjour


Voici ma subroutine :

Code:

---

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

Private Sub UserForm_Activate()   Dim Nbseq As Integer, m As Integer   Nbseq = calculernbseq()   For m = 1 To Nbseq Controls("OptionButtonTd" & m).Value = Not Controls("CheckboxCas" & m).Value Controls("OptionButtonTrTnd" & m).Value = Not Controls("CheckboxCas" & m).Value Controls("OptionButtonTd" & m).Enabled = Not Controls("CheckboxCas" & m).Value Controls("OptionButtonTrTnd" & m).Enabled = Not Controls("CheckboxCas" & m).Value Next   End Sub

---

Lorsque je lance le code, rien ne se passe pour cette partie codée.

Tous les objets sont créés de cette manière :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Set Obj = UserForm3.Controls.Add("forms.checkbox.1") With Obj .Name = "CheckboxCas" & i .Left = 38 'position par rapport au rebord gauche de l'UserForm .Top = 27 * i + 37 + decalver 'position par rapport au haut de l'UserForm .Width = 35 'largeur de la zone d'écriture .Height = 10 'hauteur de la zone d'écriture .Value = False .Visible = True .Font.Size = 8 End With

---

i correspond à m dans l'autre partie du code (cette juste qu'il est dans une subroutine différente)

Mon souhait est qu'a l'activation de la Userform :
- Les CheckBoxCas (1 à Nbseq) est la valeur False
- Les 2 OptionButton (Td/TrTnd) (1 à Nbseq) est la valeur False et Enabled
Cette partie c'est bon avec la valeur du .Value et .Enabled à la creation des Objets

Ensuite ça se complique pour moi :
Lorsque la Userform est activité, je souhaiterais que lorsque l'on coche le CheckBoxCas & m les 2 OptionButton (du même m) se dé-Enabled (passe de True à False) et qu'un des deux OptionButton (Td par Exemple) passe de valeur False à True.

J'avais déjà fais appelle à votre aide pour un problème similaire mais ici, c'est plus compliqué. Je ne peux pas double cliquer sur l'objet et écrire un code associé (Private Sub CheckBoxCas_Click() par exemple) car ils ne sont pas présent dans la UserForm car ils sont générés au lancement du code.

J'espère avoir été assez explicite, si vous avez besoin de plus de précision dites le moi :)


Cordialement

Je n'ai pas vu ton code, mais cette ligne m'interpelle :

Code:

---

Nbseq = calculernbseq()

---

Que vaut "calculernbseq" ? à priori c'est une fonction, ça renvoie une valeur ?

Merci pour ta réponse rapide :)

Citation:

---

Que vaut "calculernbseq" ? à priori c'est une fonction, ça renvoie une valeur ?

---

Oui, tout à fait.
Elle renvoie un entier. La valeur dépend du dossier sélectionné, on ne la connait pas à l'avance.
En générale entre 1 et 50.
Mais du coup c'est ça qui me pose problème.

Code:

---

1 2 3

For m = 1 To Nbseq Controls("LabelTd" & m).Enabled = Not (OptionButton2.Value) Next

---

Par exemple ce bout de code fonctionne parfaitement car j'ai "dessiné" OptionButton2 sur la UserForm
Mais si la partie à droite n'a pas été "dessinée" sur la UserForm, je suis bloqué car elle dépend de l'incrément.

J'ai essayé également le Test en créant une Private Sub juste pour m=1 mais ça ne fonctionne pas non plus.

Donc je ne sais pas si c'est possible de réaliser ce que je souhaiterai faire :)

RECTIFICATION

Code:

---

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

Private Sub UserForm_Activate()   Dim Nbseq As Integer, m As Integer   Nbseq = calculernbseq()   For m = 1 To Nbseq Controls("OptionButtonTd" & m).Value = Controls("CheckboxCas" & m).Value Controls("OptionButtonTrTnd" & m).Value = Controls("CheckboxCas" & m).Value Controls("OptionButtonTd" & m).Enabled = Not Controls("CheckboxCas" & m).Value Controls("OptionButtonTrTnd" & m).Enabled = Not Controls("CheckboxCas" & m).Value Next   End Sub

---

Ce code fonctionne, un troisième OptionButton (que je souhaite supprimer avec cette mise à jour du code) qui était coché par défaut m'empêchait de voir que le code fonctionnait.


Mon problème maintenant est que si je décoche la CheckBoxCas & m, rien ne se passe.
Je pense que c'est parce que j'ai écrit des la partie Private Sub UserForm_Activate().
Du coup je ne sais pas où écrire le code pour qu'à chaque cochage/décochage d'une CheckBoxCas les formats des OptionButton s'actualisent.


Cordialement

Citation:

---

Envoyé par GoFio

Mon problème maintenant est que si je décoche la CheckBoxCas & m, rien ne se passe.
Je pense que c'est parce que j'ai écrit des la partie Private Sub UserForm_Activate().
Du coup je ne sais pas où écrire le code pour qu'à chaque cochage/décochage d'une CheckBoxCas les formats des OptionButton s'actualisent.
Cordialement

---

Il faut que tu mettes cela sur l'évènement de la CheckBox directement :

Code:

---

Private Sub CheckBox1_Click()

---

Le problème que tu vas avoir est que tes CheckBox sont dynamiques :?

j'avais vu u n sujet de ce type déjà sur ce forum, si je le retrouve je te met le lien ;)

Regarde ici, je crois que ça correspondrait peut-être à ton besoin :)

http://www.developpez.net/forums/d14...ck-checkboxpi/

Merci !
Par contre tout ça m'a l'ai un peu compliqué pour mon niveau.
Donc je laisse le sujet en suspend le temps de lire plus en détails et d'analyser les exemples que j'ai pu trouver sur internet.
Mais maintenant je sais qu'elle direction je dois prendre pour résoudre le problème.

A bientôt ;)