Discussion :

[Vijinn]

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

[MarcelG]

Salut,

La méthode

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Patrice740]

Bonjour,

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.

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Vijinn]

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.

[Pierre Fauconnier]

Salut.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Vijinn]

Bonjour à tous.
Le Run provoque

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

[Pierre Fauconnier]

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.

[Vijinn]

Voilà le code simplifié :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pierre Fauconnier]

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

[Vijinn]

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

[Pierre Fauconnier]

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.

[Vijinn]

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.

[Pierre Fauconnier]

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