Bonjour,
j'aimerais savoir s'il existe un moyen de simplifier le code suivant:
Je vais devoir répéter au moins 20 fois la partie
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. Y a t'il moyen pour éviter de tout réécrire ou pas ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part Case1 ....End Select
Merci d'avance pour votre aide.
dpo
Partager