Bonjour,
Je vous expose mon problème.
J'ai 50 Sub différentes, nommées Test1,...,Test50
Et je souhaiterai, en fonction d'une valeur rentrée dans une cellule exécuter ce nombre de Sub.
Par exemple si je rentre 5, je veux executer Test1, Test2, Test3, Test4, Test5.
Or je n'arrive pas à faire de boucle sur le numéro contenu dans le nom de ma Sub.
Donc pour le moment j'ai fait ça, mais c'est extrêmement lourd :
Code :
- Sub Extract()
- Dim n as Integer
- n = 0
- n = Sheets("Extraction_Launch" ).Cells(17, 2)
- Select Case n
- Case 1
- Call Test1
- Case 2
- Call Test1
- Call Test2
- Case 3
- Call Test1
- Call Test2
- Call Test3
- Case 4
- Call Test1
- Call Test2
- Call Test3
- Call Test4
- .
- .
- .
- .
- .
- .
|
Et ainsi de suite jusqu'au case 50 qui appelle mes 50 routines.
Si vous avez des solutions je suis preneur !
Merci d'avance
Lipix