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 ?