Simplification d'un select case

Version imprimable

Bonjour,

j'aimerais savoir s'il existe un moyen de simplifier le code suivant:

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
Private Sub case_AT7_BeforeUpdate(Cancel As Integer)
 
    Select Case Case_AT7
        Case 1
            chk_yes.Visible = True
        Case 2
            chk_neutral.Visible = True
        Case 3
            chk_no.Visible = True
        Case Else
    End Select
 
    Call somme
 
End Sub
 
Private Sub case_AT8_BeforeUpdate(Cancel As Integer)
 
    Select Case Case_AT8
        Case 1
            chk_yes.Visible = True
        Case 2
            chk_neutral.Visible = True
        Case 3
            chk_no.Visible = True
        Case Else
    End Select
 
    Call somme
 
End Sub

Je vais devoir répéter au moins 20 fois la partie

Code:

Case1 ....End Select

. Y a t'il moyen pour éviter de tout réécrire ou pas ?

Merci d'avance pour votre aide.

dpo

Bonjour

Pourquoi ne mets tu pas cette partie dans une routine, ainsi
Code:

1 2 3 4 5 6 7 8 9 10 11 Public Sub ChkVisible() Select Case Case_AT7 Case 1 chk_yes.Visible = True Case 2 chk_neutral.Visible = True Case 3 chk_no.Visible = True Case Else End Select End Sub
et à chque fois que tu en as besoin tu fais un

Code:

Call ChkVisible

Non ! Si j'ai bien compris, car la j'ai un doute.
Si ce n'est pas cela peux-tu éclairer notre lanterne.

29/11/2007, 09h52
portecd

Merci,

je ne comprends malheureusement pas comment je peux lier la routine à une select case ?
Car pour chaque select case je suis censé indiqué le nom : "select case toto" puis dans une autre ce sera "select case titi" ect....

merci d'avance
29/11/2007, 10h36
random

en ajustant les valeurs scalaires du case avec d'autres valeurs scalaires celles de controles par exemple

Bonjour.

Dans chaque procédure évènementielle, tu appelles la procédure

Code:

1
2
3
4
5
6
7
8
9
10
11
Public Sub ChkVisible(ByVal iCase as integer)
    Select Case iCase
        Case 1
            chk_yes.Visible = True
        Case 2
            chk_neutral.Visible = True
        Case 3
            chk_no.Visible = True
        Case Else
    End Select
End Sub

comme

Code:

1
2
3
4
5
6
Private Sub case_AT7_BeforeUpdate(Cancel As Integer)
 
    call ChkVisible(case_AT7) 
    Call somme
 
End Sub

Bon courage,

PGZ

29/11/2007, 23h17
portecd

Merci beaucoup !

Ca marche !