Bonjour à tous.

Je travaille sur un projet très long de formatage et transfert de données.
Pour plus de souplesse dans l'écriture du projet, je l'ai partitionné en plusieurs Sub qui s'enchainent les uns à la suite des autres. Pour faire simple, j'ai appelé les Sub "Procedure_1", Procedure_2", etc.
J'ai fait un petit Sub initial destiné à lancer successivement les Sub dans le bon ordre. Alors bien sûr, je pourrais faire comme ça :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Sub Toutes_les_procedures()
 
Procedure_1
Procedure_2
Procedure_3
' etc.
 
End Sub
Mais j'aimerais beaucoup simplifier l'écriture avec une boucle du genre :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub Toutes_les_procedures()
 
Dim NumeroProcedure As Byte
Dim NomProcedure As String
 
For NumeroProcedure= 1 To 27 'on dira qu'il y a 27 Sub à enchaîner...
  NomProcedure = "Procedure_" & NumeroProcedure
  Call NomProcedure
Next NumeroProcedure
 
End Sub
Bien sûr dans cet exemple, Call NomProcedure ne marche pas puisque NomProcedure est un String et pas un Sub, mais vous voyez mon souhait.
Est-ce possible de placer un nom de Sub en variable pour l'appeler dans une boucle ?

Merci