Cases d'options avec code.
Bonsoir,
Dans un formulaire j'ai créé un cadre avec trois options :
valeur : 1 - 2 - 3
avec ce code lorsque je clique sur un choix ça fonctionne bien, mais je pense que l'on peut faire plus simple dans l'écriture de ce code, merci de me dire si cela est possible.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| Private Sub Trier_Click()
If Me.Trier = 1 Then
Me.ListeCat.Visible = False
Me.ListeFil.Visible = False
Me.ListeLot.Visible = True
Else
If Me.Trier = 2 Then
Me.ListeLot.Visible = False
Me.ListeFil.Visible = False
Me.ListeCat.Visible = True
Else
If Me.Trier = 3 Then
Me.ListeLot.Visible = False
Me.ListeCat.Visible = False
Me.ListeFil.Visible = True
End If
End If
End If
End Sub |
Merci d'avance. ;)
