Discussion :

[Daniel-Gérald]

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

[FreeAccess]

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

[Daniel-Gérald]

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

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

Merci

[FreeAccess]

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

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

A tester.....et a adapter à ton application....

[Daniel-Gérald]

Merci ca fonctionne bien