Une difficulté avec Select Case

[Magic_Doctor]

Bonsoir,

J'ai rédigé cette procédure :

Sub MiseEnFormeColonnes(x As Byte)
Select Case x
Case 1
'blablabla
Case 2
'blablabla
Case 3
'blablabla
Case 4
'blablabla
End Select

Ça marche. Seulement voilà, dans une situation déterminée pour laquelle j'attribuerai à x la valeur 0, je voudrais que les Case 2, 3 & 4 s'effectuent.

Est-ce possible ?

Merci d'avance pour m'éclairer.

 

[kjin]

Re : Une difficulté avec Select Case

Bonsoir,

Select Case x
Case 0
'blablabla
'blablabla
'blablabla
Case 1
'blablabla
Case 2
'blablabla
Case 3
'blablabla
Case 4
'blablabla
End Select

C'est d'une logique imparable mais c'est une réponse aussi lapidaire que la question !
A+
kjin

 

[Magic_Doctor]

Re : Une difficulté avec Select Case

Merci à tous les 2,
Ça marche sans problème, mais je pensais que peut-être au moyen d'une condition et d'une boucle on aurait pu éviter les redondances des actions. Comme quoi, il faut voir les choses plus simplement.
Bonne soirée.