Discussion :

[portecd]

Bonjour,

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

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

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

Case1 ....End Select

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

Merci d'avance pour votre aide.

dpo

[Invité]

Bonjour

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

Code :

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

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 :

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

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.

[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

[random]

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

[pgz]

Bonjour.

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

Code :

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

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 :

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

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

[portecd]

Merci beaucoup !

Ca marche !