Possibilité d'appeler un autre Case dans un Select Case?

Bonjour à vous,

Premier message ici mais lecteur depuis longtemps. Malheureusement je trouve pas la réponse à ma question ce coup-ci.

J'aimerais pouvoir appeler dans un select case le code exécuté par un autre case. J'aimerais pour plus de clarté NE PAS COPIER/COLLER le code

Exemple :

Select Case TOTO
      Select case Choix1
             Code1
      End Select
      Select case Choix2 
             Code2
      End Select
      Select case Choix3 'en gros qui est choix1 + choix2
             ' ici j'aimerais appeler les codes précédents sans les c/c
             Code1 
             Code2
      End Select
End Select

Savez vous si c'est possible ? Avec Select ? Avec d'autres appels ?

Merci d'avance.

Bonjour et

Pour moi ce n'est pas possible puisque si le Select case est en choix 3 il ne passera pas dans choix1 et donc va ignorer ton code1

Par contre pour éviter de copier coller le code, Il te suffit de faire une procedure "Code1", une "Code2" et a l'interieur de tes select case :
- choix 1 => Procedure Code1
- choix 2 => Procedure Code2
- choix 3 => Procedure Code1 & Procedure Code2

A+

Bonjour,
Geof52 bonjour,

je ne comprends pas le double SELECT avec TOTO...
Select case Toto demande à VBA de choix un code en fonction de la valeur de TOTO

Si je comprend bien :

Select Case TOTO
      Case Choix1 ' si TOTO = Choix1
             Call Code1
      Case Choix2  ' si TOTO = Choix2
             Call Code2
      Case Else ' sinon
             Call Code1 
             Call Code2
End Select

@ bientôt

LouReeD

Ok donc j'écris mon code ailleurs dans le module ? (dans un sub propre ?) et j'appelle avec "Call" ?

Merci pour vos réponses