Bonjours,
J'aimerais savoir comment créer une variable contenant plusieurs controles de mon sous-formulaire.
Ex: Variable A = controle 1,3,6,7,8,12,14
Variable B = controle 2,4,9,11
Merci
Bonjours,
J'aimerais savoir comment créer une variable contenant plusieurs controles de mon sous-formulaire.
Ex: Variable A = controle 1,3,6,7,8,12,14
Variable B = controle 2,4,9,11
Merci
Bonjour,
Il nous manque un peu de précision...Que souhaite tu faire exactement..
-récupérer les valeurs contenues dans plusieurs contrôles:
-récupérer un ensemble de contrôles pour pouvoir les "manipuler" en même temps..![]()
Récupérer un ensemble de controle pour pouvoir les manipuler.
Ce que je veux faire exactement: J'ai un controle case à cocher et lorsqu'il est coché je veux qu'un ensemble de controles (Variable A) soit vérrouillés et qu'un ensemble de controles (Variable B) prennent la couleur de vert.
Voici ce que j'ai en ce moment
Merci
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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77 Private Sub Form_Current() If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = False Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![ListeAnneeProjet].Locked = False If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = False Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![NumEntente].Locked = False If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = False Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![ListeGenre].Locked = False If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = False Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![ListeUniteAdmin].Locked = False If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = False Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![MontantRecommande].Locked = False If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = False Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![DateEnvoiLettreRefus].Locked = False If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = False Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![DateAbandon].Locked = False If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = False Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![DateS].Locked = False If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = False Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![Date1V].Locked = False If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = False Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![Date2V].Locked = False If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = False Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![Date3V].Locked = False If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = False Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![Date4V].Locked = False If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = False Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![Vers1].Locked = False If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = False Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![Vers2].Locked = False If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = False Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![Vers3].Locked = False If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = False Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![Vers4].Locked = False If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = True Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![ListeAnneeProjet].Locked = True If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = True Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![NumEntente].Locked = True If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = True Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![ListeGenre].Locked = True If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = True Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![ListeUniteAdmin].Locked = True If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = True Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![MontantRecommande].Locked = True If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = True Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![DateEnvoiLettreRefus].Locked = True If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = True Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![DateAbandon].Locked = True If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = True Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![DateS].Locked = True If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = True Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![Date1V].Locked = True If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = True Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![Date2V].Locked = True If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = True Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![Date3V].Locked = True If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = True Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![Date4V].Locked = True If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = True Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![Vers1].Locked = True If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = True Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![Vers2].Locked = True If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = True Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![Vers3].Locked = True If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = True Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![Vers4].Locked = True If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = False Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![ListeAnneeProjet].BackColor = &HFFFFFF If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = False Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![NumEntente].BackColor = &HFFFFFF If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = False Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![ListeGenre].BackColor = &HFFFFFF If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = False Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![ListeUniteAdmin].BackColor = &HFFFFFF If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = False Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![MontantRecommande].BackColor = &HFFFFFF If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = False Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![DateEnvoiLettreRefus].BackColor = &HFFFFFF If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = False Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![DateAbandon].BackColor = &HFFFFFF If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = False Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![DateS].BackColor = &HFFFFFF If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = False Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![Date1V].BackColor = &HFFFFFF If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = False Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![Date2V].BackColor = &HFFFFFF If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = False Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![Date3V].BackColor = &HFFFFFF If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = False Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![Date4V].BackColor = &HFFFFFF If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = False Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![Vers1].BackColor = &HFFFFFF If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = False Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![Vers2].BackColor = &HFFFFFF If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = False Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![Vers3].BackColor = &HFFFFFF If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = False Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![Vers4].BackColor = &HFFFFFF If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = True Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![ListeAnneeProjet].BackColor = &HCDDCAF If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = True Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![NumEntente].BackColor = &HCDDCAF If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = True Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![ListeGenre].BackColor = &HCDDCAF If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = True Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![ListeUniteAdmin].BackColor = &HCDDCAF If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = True Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![MontantRecommande].BackColor = &HCDDCAF If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = True Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![DateEnvoiLettreRefus].BackColor = &HCDDCAF If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = True Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![DateAbandon].BackColor = &HCDDCAF If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = True Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![DateS].BackColor = &HCDDCAF If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = True Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![Date1V].BackColor = &HCDDCAF If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = True Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![Date2V].BackColor = &HCDDCAF If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = True Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![Date3V].BackColor = &HCDDCAF If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = True Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![Date4V].BackColor = &HCDDCAF If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = True Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![Vers1].BackColor = &HCDDCAF If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = True Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![Vers2].BackColor = &HCDDCAF If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = True Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![Vers3].BackColor = &HCDDCAF If [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![CaseValidAnneeP] = True Then [Forms]![F_Suivi_Global]![SF_Suivi_Global_PARCI].[Form]![Vers4].BackColor = &HCDDCAF Me.Refresh End Sub
Re,
Une possibilité est d'utiliser la propriété "Remarque" (Tag) des contrôles..
..controles 1,3,6,7,8,12,14..mettre "Remarque" = A
..controles 2,4,9,11..mettre "Remarque" = B
Ensuite il te suffit en fonction de la valeur de la propriété "Tag" de tes contrôles de leurs appliquer tel ou tel propriété (Locked et BackColor)...
A tester.....et a adapter à ton application....
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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31 Private Sub Cocher0_Click() Dim Ctl As Control Select Case Cocher0.Value 'La case est cochée Case True For Each Ctl In Me.Controls If Ctl.Tag = "A" Then Ctl.Locked = True Else If Ctl.Tag = "B" Then Ctl.BackColor = vbGreen End If End If Next Ctl 'La case est décochée Case False For Each Ctl In Me.Controls If Ctl.Tag = "A" Then Ctl.Locked = False Else If Ctl.Tag = "B" Then Ctl.BackColor = vbWhite End If End If Next Ctl End Select Set Ctl = Nothing End Sub![]()
Merci ca fonctionne bien
Partager