Select Case et plusieurs instructions [Résolu]

[sony25]

Bonjour,

J'utilise la fct Select Case.
Mais j'aimerai l'utiliser pour plusieurs instructions.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
 
Select Case TOTO
    Case "UN"
            [Instruction 1]
            [Instruction 2] 
    Case "DEUX"
            [Instruction 1]
            [Instruction 2] 
            [Instruction 3] 
    Case "TROIS"
            [Instruction 1]
End Select

Y a-t-il une solution pour select case ou est elle prévu que pour une Seule instruction.
Sinon je peux faire avec des IF, mais ça va être vite l'usine à gaz...
Connaissez vous une solution.
Merci.

[Philippe JOCHMANS]

Bonjour

Il n'y a aucune contre indication pour travailler de cette sorte.

Philippe

[sony25]

Ben pourtant je n'y arrive pas...
Je fais un truc comme ça:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
    'Position par rapport à la date du jour
    mois = Month(Now)
    Select Case mois
        Case "01"
            Sheets(1).Select
            Sheets(1).Range("R4").Select
        Case "02"
            Sheets(2).Select
            Sheets(2).Range("R4").Select
        Case "03"
            Sheets(3).Select
            Sheets(3).Range("R4").Select
    End select

[bbil]

on ne vois pas la déclaration des variables... mais Month renvoi un entier je suppose que Mois est un entier...

modifie les case :

Code :

   Case 1

sinon à quoi servent tout ces selects ? dans 90% des cas select est inutile et n'est qu'une probable source de problème ..

[mercatog]

Bonjour
En complément à la réponse de Bbil, pour ce cas précis, tu peux t'en passer du Select Case (d'au moins si tu as 12 feuilles dans ton classeur, et chaque feuille à la même position que le mois) comme ceci

Code :

1
2
3
4
5
6
Dim Mois As Byte
 
Mois = Month(Date)
MsgBox ThisWorkbook.Worksheets(Mois).Range("R4")
'OU
ThisWorkbook.Worksheets(Mois).Range("R4")="Toto"

[sony25]

A oui, en fait c'est aussi bien!!
Merci à tous!!!