Discussion :

[vincedu74]

Bonjour ! je suis tout nouveau et essaye de coder un petit logiciel de gestion documentaire

J'ai écrit ce code et souhaiterai savoir si je ne peux pas l'améliorer par exemple avec un tableau.

Est ce que quelqu'un peut me donner un conseil....

merci et bonne journée.

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
  Select Case m
 
   Case 1
      .Range("A1:K3").AutoFilter Field:=3, Criteria1:=Opt(1)
 
    Case 2
     .Range("A1:K3").AutoFilter Field:=3, Criteria1:=Array(Opt(1), Opt(2)), Operator:=xlFilterValues
   Case 3
   .Range("A1:K3").AutoFilter Field:=3, Criteria1:=Array(Opt(1), Opt(2), Opt(3)), Operator:=xlFilterValues
   Case 4
   .Range("A1:K3").AutoFilter Field:=3, Criteria1:=Array(Opt(1), Opt(2), Opt(3), Opt(4)), Operator:=xlFilterValues
   Case 5
   .Range("A1:K3").AutoFilter Field:=3, Criteria1:=Array(Opt(1), Opt(2), Opt(3), Opt(4), opt(5)), Operator:=xlFilterValues
  End Select
End With

[vincedu74]

Bonjour à tous,

je me permets de relancer la communauté ...

je souhaiterai faire un tableau dans lequel je mets chacune des valeurs de opt(i) est ce que quelqu'un peut me dire si cest faisable et éventuellement me guider à sa réalisation....


merci !