Nom de Sub en variable

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:

---

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:

---

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

Salut,

La méthode

Code:

---

Application.Run

---

accepte pour argument une chaîne de caractères.
Il te sera donc facile d'utiliser une concaténation intégrée à une boucle For.

Bonjour,

Citation:

---

Envoyé par Vijinn

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

---

C'est une excellente méthode pour avoir une architecture claire et facile à comprendre, et donc à maintenir.

Citation:

---

Envoyé par Vijinn

Pour faire simple, j'ai appelé les Sub "Procedure_1", Procedure_2", etc.

---

Là, tu perds tout l’intérêt de la méthode !!!
Ton code sera imbuvable !!!
Il est nettement préférable de choisir des noms de procédure représentatifs de ce qu'elles réalisent, par exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Routine() Call PetitDejeuner Call Metro Call Boulot Call Dejeuner Call Boulot Call Metro Call Diner Call Dodo End Sub

---

Bonjour et merci de vos réponse. Désolé d'avoir tardé, mais le mail de notification de réponse était allé se loger dans mes spams...
Pour répondre à Patrice, si j'ai choisi une dénomination peu explicite, c'est qu'il y a beaucoup de procédures et que leur ordre est primordial. Alors j'avais le choix entre nommer selon son utilité et mettre son numéro d'ordre en commentaire ou nommer selon son numéro d'ordre et mettre son utilité en commentaire. J'ai choisi la deuxième solution, notamment parce que la procédure de lancement s'en trouve simplifiée.
Pour répondre à Marcel, je regarde ça dès demain !
Merci à tous.

Salut.

Run permet de faire ce genre de chose, comme le dit Marcel (Hello)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Sub Test() Dim Proc As String Dim Func As String Dim Result As Long   Proc = "Bonjour" Run Proc Proc = "Bonsoir" Run Proc   Func = "Multiplie" Result = Run(Func, 5, 4) MsgBox Result End Sub   Sub Bonjour() MsgBox "Bonjour" End Sub   Sub Bonsoir() MsgBox "Bonsoir" End Sub   Function Multiplie(A As Long, B As Long) As Long Multiplie = A * B End Function

---

J'en illustre une utilisation dans ce billet de blog, sous le titre Code du userform où je montre comment passer à un userform le nom d'une fonction de vérification qui se trouve hors userform.

Bonjour à tous.
Le Run provoque

Citation:

---

Erreur d'exécution '1004'

Impossible d'exécuter la macro 'Procedure_1'. Il est possible qu'elle ne soit pas disponible dans ce classeur ou que toutes les macros soient désactivées.

---

Les macros sont pourtant toutes dans le même module et sont déclarées en Public...

Donne plus de code, car 'procedure_1', ce n'est pas correct. Assure-toi également que les procédures sont bien dans un module standard ET que leur nom est unique dans le projet.

Voilà le code simplifié :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub Toutes_les_procedures() Dim NomProcedure As String Dim Numero As Byte   Numero = 1 NomProcedure = "Procedure_" & Numero Run NomProcedure   End Sub   Sub Procedure_1() MsgBox "Procedure_1" End Sub

---

Chez moi, le code que tu donnes fonctionne, sous réserve de mes précédentes remarques (Procedure_1 est unique dans le projet ET se trouve dans un module Standard).

J'ai vérifié, le nom "procedure_1" est bien unique et le tout est bien dans un module standard (enfin je crois : l’icône du module est composé de 5 petits cubes rouge, vert, bleu, jaune, c'est différent du module de classe)...

Les icônes changent avec les versions. Ce qui importe, c'est que le module soit présent dans le dossier des modules du projet.

Pièce jointe 577534

Il s'agit bien d'un module présent dans le projet.
Je laisse tomber mon idée de boucle, ce n'est pas grave, cela ne m'empêchera pas de continuer.
Merci pour vos réponses.

Tu peux donner ton classeur, si tu veux qu'on regarde