Discussion :

[Nounours1]

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 :

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

[Maxence HUBICHE]

ca ira comme ça ?

Code :

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

1
2
3
4
5
Private Sub Trier_Click()
Me.ListeCat.Visible = (Me.Trier = 2)
Me.ListeFil.Visible = (Me.Trier = 3)
Me.ListeLot.Visible = (Me.Trier = 1)
End Sub

[Nounours1]

Merci beaucoup pour la réponse, Joyeux Noël.

@+