Discussion :

[GoFio]

Bonjour


Voici ma subroutine :

Code :

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

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 :

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

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

[illight]

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

Code :

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

Nbseq = calculernbseq()

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

[GoFio]

Merci pour ta réponse rapide

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 :

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

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

[GoFio]

RECTIFICATION

Code :

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

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

[illight]

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 :

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

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/

[GoFio]

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