Grouper action de plusieur textbox

Version imprimable

Bonjour à tous,

voilà le petit soucis que je rencontre.

J'ai un userform qui comprends 4 checkbox et 30 textbox

en cliquant sur le premier textbox
j'ai 5 textbox qui doivent se dévérouiller.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub CbxCOM_Click() If CbxCOM.Value = True Then Textbox1.Enabled = True Textbox3.Enabled = True Textbox7.Enabled = True Textbox8.Enabled = True Textbox10.Enabled = True else: end if end sub
je cherche le moyen de regrouper ses 5 lignes en 1.
du style :
Code:

1 2 3 4 5 6 7 8 Private Sub CbxCOM_Click() If CbxCOM.Value = True Then Textbox(1,3,7,8,10).Enabled = True else: end if end sub
Naturellement cela ne marche pas. Je ne sait pas si cela est possible ou pas.

Et par anticipation à la question "pourquoi ?":
Ben parce que :lol:
Sérieusement, je sait que le code marche , mais j'aime bien que les codes soit épurée

D'avance un grand merci pour votre aide :ccool:

02/12/2010, 15h58
jfontaine

Bonjour,

Une solution simple est de placer les txtbox dans une frame que tu rendras Enabled = False quand tu voudras bloquer les txtbox
02/12/2010, 16h15
Souri84

A ma connaissance, il n'est pas possible de le faire....

Après peut être que je me trompe... et si c'est le cas, je suis preneur de la solution...
02/12/2010, 16h32
Titans36

J'y ai pensé mais le soucis c'est que:

Avec la 1 checkbox je dois deverouiller
Textbox1
Textbox3
Textbox7
Textbox8
Textbox10

et avec le second je prends
Textbox2
Textbox6
Textbox7
Textbox8
Textbox12

Et donc de ce faite sa bloque ...
02/12/2010, 16h35
jfontaine

Dans ce cas, tu ne peux pas faire plus court

Bonjour,

Pour le 1er checbox

Code:

1
2
3
4
5
6
7
8
9
 
Private Sub CbxCOM_Click()
If CbxCOM.Value = True Then
    Dim i
    For Each i In Array(1, 3, 7, 8, 10)
        Me.Controls("Textbox" & i).Enabled = True
    Next i
End If
end sub

ctac

Génial, ca marche nikel et le code est beaucoup plus "BEAU" ;)

Code:

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
 
Private Sub CbxEU_Click()
 
If CbxEU.Value = True Then
CbxT.Value = False
CbxCOM.Value = False
CbxEX.Value = False
 
Tb3.Enabled = True
Tb4.Enabled = True
Tb5.Enabled = True
Tb6.Enabled = True
Tb9.Enabled = True
Tb10.Enabled = True
Tb13.Enabled = True
Tb14.Enabled = True
Tb16.Enabled = True
Tb19.Enabled = True
Tb20.Enabled = True
Tb28.Enabled = True
Tb29.Enabled = True
Tb30.Enabled = True
 
Tb3.BackColor = RGB(255, 255, 255)
Tb4.BackColor = RGB(255, 255, 255)
Tb5.BackColor = RGB(255, 255, 255)
Tb6.BackColor = RGB(255, 255, 255)
Tb9.BackColor = RGB(255, 255, 255)
Tb10.BackColor = RGB(255, 255, 255)
Tb13.BackColor = RGB(255, 255, 255)
Tb14.BackColor = RGB(255, 255, 255)
Tb16.BackColor = RGB(255, 255, 255)
Tb19.BackColor = RGB(255, 255, 255)
Tb20.BackColor = RGB(255, 255, 255)
Tb28.BackColor = RGB(255, 255, 255)
Tb29.BackColor = RGB(255, 255, 255)
Tb30.BackColor = RGB(255, 255, 255)
 
Else
 
Tb3.Enabled = False
Tb4.Enabled = False
Tb5.Enabled = False
Tb6.Enabled = False
Tb9.Enabled = False
Tb10.Enabled = False
Tb13.Enabled = False
Tb14.Enabled = False
Tb16.Enabled = False
Tb19.Enabled = False
Tb20.Enabled = False
Tb28.Enabled = False
Tb29.Enabled = False
Tb30.Enabled = False
 
Tb3.BackColor = RGB(224, 224, 224)
Tb4.BackColor = RGB(224, 224, 224)
Tb5.BackColor = RGB(224, 224, 224)
Tb6.BackColor = RGB(224, 224, 224)
Tb9.BackColor = RGB(224, 224, 224)
Tb10.BackColor = RGB(224, 224, 224)
Tb13.BackColor = RGB(224, 224, 224)
Tb14.BackColor = RGB(224, 224, 224)
Tb16.BackColor = RGB(224, 224, 224)
Tb19.BackColor = RGB(224, 224, 224)
Tb20.BackColor = RGB(224, 224, 224)
Tb28.BackColor = RGB(224, 224, 224)
Tb29.BackColor = RGB(224, 224, 224)
Tb30.BackColor = RGB(224, 224, 224)
 
End If
 
End sub

Ce code est quand meme beaucoup plus lisible ( à mon gouts!)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Private Sub CbxEU_Click()
 
Call Annulation
 
If CbxEU.Value = True Then
   CbxT.Value = False
   CbxCOM.Value = False
   CbxEX.Value = False
 
    For Each i In Array(3, 4, 5, 6, 9, 10, 13, 14, 16, 19, 20, 28, 29, 30)
        Controls("Tb" & i).Enabled = True
        Controls("Tb" & i).BackColor = RGB(255, 255, 255)
    Next i
 
Else
    For Each i In Array(3, 4, 5, 6, 9, 10, 13, 14, 16, 19, 20, 28, 29, 30)
        Controls("Tb" & i).Enabled = False
        Controls("Tb" & i).BackColor = RGB(224, 224, 224)
    Next i
 
End If
 
End Sub

Un grand grand merci Ctac, ce bouts de code va m'être bien utile.

Titans