Select Case et plusieurs instructions

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... :roll:
Connaissez vous une solution.
Merci.

Bonjour

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

Philippe

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

---

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

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"

---

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