Rendre le nom d'une procédure dynamique

Bonjour,

Je cherche la syntaxe pour rendre le nom d'une procédure dynamique.
Ma procédure s'appelle SearchDevise.
J'aimerai savoir s'il est possible de créer n procédure différentes :
SearchDevise1
SearchDevise2
...
SearchDevisen
avec une variable "num_procédure" qui s'incrémente dans ma boucle.

Bonjour,

Un exemple à adapter :

Code:

---

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

Sub test() For i = 1 To 2 Run "test" & i Next i End Sub   Sub test1() MsgBox "toto" End Sub   Sub test2() MsgBox "tutu" End Sub

---

Ok, merci, mais dans ce cas, nous sommes toujours obligé de "détaillé" chaque procédure. Seule l'exécution est dynamique.

N'y a-t-il pas un moyen de déclarer qu'une seule procédure du genre :

Code:

---

1 2 3 4 5

For i = 1 to num_procédure sub SearchDevise & num_procédure & () ...<contenu de la procédure dynamique lui aussi> end sub next i

---

(syntaxe fausse bien entendu)

Pas comme ça, tu ne peux pas mettre une sub à l'intérieur d'un code. Pourquoi ne pas passer un paramètre à la macro :

Code:

---

1 2 3 4 5 6 7 8 9

Sub test3() For i = 1 To num_procédure SearchDevise num_procédure Next i End Sub   Sub SearchDevise(paramètre) 'xxx End Sub

---

Sinon, tu peux construire du code dynamiquement :(

bonjour


ici on peut parler d'argument
c'est a dire transporter une variable ou une constante entre plusieurs macro ou fonctions

comme te la suggéré daniel.cmais avec une petite nuance on va faire la memchose dans la meme macro

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub test() For i = 1 To 3 ma_sub (i) Next i End Sub   Sub ma_sub(num_procédure As Variant)   Select Case num_procédure   Case 1 MsgBox "riri" Case 2 MsgBox "fifi" Case 3 MsgBox "loulou" End Select End Sub

---

voila tu a tes trois sub dans la meme sub

on pourrait meme faire une fonction de la meme maniere

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub test() For i = 1 To 3 MsgBox le_nom(i) 'ici dans le message box le nom s'affichera en fonction de la variable i Next i End Sub   Public Function le_nom(num_procédure As Variant) ' ici la variable num_procédure correspondra a i de la sub "test"   Select Case num_procédure   Case 1 le_nom = "riri" Case 2 le_nom = "fifi" Case 3 le_nom = "loulou" End Select End Function

---

voila j'espere que ces explications te seront plus parlantes
au plaisir

Merci beaucoup :)

Et si mon nombre de procédure est dynamique ... ? :)
Je vais tester de faire une boucle sur les Case.