Discussion :

[manu971]

Bonjour,

Je travaille avec les codes NAF (3 chiffres + 1 lettre) que j'ai besoin de trier par secteur d'activité.

Je voudrais faire quelquechose du genre :

Code :

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

1
2
3
4
5
6
7
8
 
select case code_naf
    case 01*                ' pour prendre tous ceux qui débutent par 01
        ........
    case 0520A to 0522B
        .............
     else case
end select

Le problème c'est que 01* ou "01*" ne passent pas.

Emmanuel

[manu971]

Une solution consiste à faire des "case" imbriqués en commençant par tester la chaine sur les 2 premiers caractères (left(var,2)), puis sur les 3 premiers (left(var,3)), puis sur la chaine entière (var).

Mais si quelqu'un a plus simple, je suis preneur.

Emmanuel

[mout1234]

TU as essayé avec quelque chose du genre?

Code :

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

Case "01000" To "01ZZZ"

[Tofalu]

Une autre solution :

tricher un peu avec le select case :

Code :

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

1
2
3
4
5
6
7
Dim code_naf As String
code_naf = "0523Z"
Select Case True
    Case code_naf Like "01*": MsgBox "Cas 1"
    Case code_naf >= "0520A" And code_naf <= "0522B": MsgBox "Cas 2"
    Case Else: MsgBox "Cas 3"
End Select

[mout1234]

Une autre solution :

tricher un peu avec le select case :

Code :

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

1
2
3
4
5
6
7
Dim code_naf As String
code_naf = "0523Z"
Select Case True
    Case code_naf Like "01*": MsgBox "Cas 1"
    Case code_naf >= "0520A" And code_naf <= "0522B": MsgBox "Cas 2"
    Case Else: MsgBox "Cas 3"
End Select

Sympa l'astuce
Mais dans ce cas, autant faire des if ...elseif ... non ?

[Tofalu]

Ben tu evites les imbrications, la maintenance et la lisibilité sont facilitées

[manu971]

C'est tout à fait ce qu'il me fallait, merci.

Emmanuel