Réduction de code

**mouaa** · 27/12/2007, 13h40

Bonjour, il m'arrive un truc tout bête, et je suis persuadée qu'il existe une solution simple et efficace:
tout d'abord, voilà mon code:

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
Public Function DesactiverUO(i As Integer)
If i = 0 Then
    Me.code.Enabled = False
    Me.nombd.Enabled = False
    Me.nomproduit.Enabled = False
    Me.designation.Enabled = False
    Me.activities.Enabled = False
    Me.technologies.Enabled = False
    Me.volume.Enabled = False
    Me.type.Enabled = False
    Me.competences.Enabled = False
    Me.price.Enabled = False
    Me.version.Enabled = False
    Me.pc.Enabled = False
    Me.alea.Enabled = False
    Me.HiddenUO.Enabled = False
    Me.nom_coeff_UO_1.Enabled = False
    Me.nom_coeff_UO_2.Enabled = False
    Me.nom_coeff_UO_3.Enabled = False
    Me.nom_coeff_UO_4.Enabled = False
    Me.CocheUO.Enabled = False
    Me.DecocheUO.Enabled = False
Else
    Me.code.Enabled = True
    Me.nombd.Enabled = True
    Me.nomproduit.Enabled = True
    Me.designation.Enabled = True
    Me.activities.Enabled = True
    Me.technologies.Enabled = True
    Me.volume.Enabled = True
    Me.type.Enabled = True
    Me.competences.Enabled = True
    Me.price.Enabled = True
    Me.version.Enabled = True
    Me.pc.Enabled = True
    Me.alea.Enabled = True
    Me.HiddenUO.Enabled = True
    Me.nom_coeff_UO_1.Enabled = True
    Me.nom_coeff_UO_2.Enabled = True
    Me.nom_coeff_UO_3.Enabled = True
    Me.nom_coeff_UO_4.Enabled = True
    Me.CocheUO.Enabled = True
    Me.DecocheUO.Enabled = True
End If
End Function

Comme on peut le voir, ce code est TRES long et ne fait pas grand chose.
Je suis persuadée qu'il existe une solution plus brève pour ce code, mais je n'ai pas trouvé.

Vous connaissez vous ?

**Louis-Guillaume Morand** · 27/12/2007, 13h54

ca dépend. ce sont tous les controles de ton formulaire ou juste certains?

sinon, tu peux dejà les mettre sur la meme ligne mais ce sera moins lisible.

**mouaa** · 27/12/2007, 13h57

ce sont pour la majorité des cases à cocher.
les 2 derniers sont des boutons.

**Jean-Philippe André** · 27/12/2007, 13h59

je propose (mais LGM confirmera ou non) de tout passer à false

Code :

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

1
2
3
4
dim temp as control 
for each temp in Me.Controls
temp.enabled = true
next

et de mettre juste les 2 boutons à true

et vice versa.

**mouaa** · 27/12/2007, 14h03

pfff j'avais pas bien compris la question.

malheureusement ce ne sont pas tous les contrôles du form, il y en a de nombreux autres

**Lou Pitchoun** · 27/12/2007, 14h05

Salut,

La solution à partir de cette contribution et ceci

Code :

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

If TypeOf MyControl Is CheckBox Then

**mouaa** · 27/12/2007, 14h09

ça serait parfait.... si je n'avais pas plein d'autres checkbox dans mon form....

**mouaa** · 27/12/2007, 14h13

peut-être qu'en renommant toutes mes checkbox en les différenciant par les 2 premières lettres de leut nom ça pourrait le faire...

par exemple, je pourrait regarder dans tous mes contrôles ceux qui sont des checkbox puis regarder si les 2 premières lettres de leur nom sont "UO" par exemple, et appliquer la modif....

qu'en pensez-vous ?

**Lou Pitchoun** · 27/12/2007, 14h13

Ce qui veut dire ??

Il va falloir que tu expliques en quoi la solution ne va pas répondre à ta question.

**mouaa** · 27/12/2007, 14h18

oui tu m'as bien donné la bonne solution !
par contre je n'arrive pas à accéder au nom du contrôle dans la boucle.
je pensais qu'un "ctrl.name" suffirait, mais access ne reconnait pas....

**fold85** · 27/12/2007, 14h22

Essaie déjà cette méthode qui réduit ton code de moitié:

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
 
Public Function DesactiverUO(i As Integer)
Dim blnActif As Boolean
 
blnActif = Not (i = 0)
 
    Me.code.Enabled = blnActif 
    Me.nombd.Enabled = blnActif 
    Me.nomproduit.Enabled = blnActif 
    Me.designation.Enabled = blnActif 
    Me.activities.Enabled = blnActif 
    Me.technologies.Enabled = blnActif 
    Me.volume.Enabled = blnActif 
    Me.type.Enabled = blnActif 
    Me.competences.Enabled = blnActif 
    Me.price.Enabled = blnActif 
    Me.version.Enabled = blnActif 
    Me.pc.Enabled = blnActif 
    Me.alea.Enabled = blnActif 
    Me.HiddenUO.Enabled = blnActif 
    Me.nom_coeff_UO_1.Enabled = blnActif 
    Me.nom_coeff_UO_2.Enabled = blnActif 
    Me.nom_coeff_UO_3.Enabled = blnActif 
    Me.nom_coeff_UO_4.Enabled = blnActif 
    Me.CocheUO.Enabled = blnActif 
    Me.DecocheUO.Enabled = blnActif 
 
End Function

**mouaa** · 27/12/2007, 14h22

non il le reconnait pas à la saisie, mais il en veut bien quand même....

bizarre bizarre.

enfin bon, je devrais pouvoir m'en sortir !

merci pour votre aide à tous !

**Louis-Guillaume Morand** · 27/12/2007, 14h40

Envoyé par jpcheck

je propose (mais LGM confirmera ou non) de tout passer à false

Code :

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

1
2
3
4
dim temp as control 
for each temp in Me.Controls
temp.enabled = true
next

et de mettre juste les 2 boutons à true

et vice versa.

je confirme rien, j'ai jamais fait d'Access de ma vie

mais c'est exactement ce à quoi (ton code) que je pensais.
la solution de lou pitchoum ciblant encore plus les checkbox. il n'y a aucun intéret à connaitre le nom des checkbox puisqu'on les met toutes à false.

**mouaa** · 27/12/2007, 14h45

pour info, voici mon code final, qui fonctionne à merveille !

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
Function test(Groupe As String, TypeOperation As String)
Dim Ctrl As Control
    For Each Ctrl In Me.Controls
        Debug.Print Ctrl.name
        If Left(Ctrl.name, 2) = Groupe Then
            If TypeOf Ctrl Is CheckBox Then
                Select Case TypeOperation
                    Case "cocher": Ctrl.Value = -1
                    Case "decocher": Ctrl.Value = 0
                    Case "activer": Ctrl.Enabled = True
                    Case "desactiver": Ctrl.Enabled = False
                End Select
            Else
                Select Case TypeOperation
                    Case "activer": Ctrl.Enabled = True
                    Case "desactiver": Ctrl.Enabled = False
                End Select
            End If
        End If
    Next Ctrl
End Function

voilà !

pour ceux qui en auraient besoin un jour !

Réduction de code

VBA Access

Discussions similaires

Partager

Partager