[XL-2002] Rendre le nom d'une procédure dynamique [Résolu]

[johan89]

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.

[Daniel.C]

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

[johan89]

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)

[Daniel.C]

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

[patricktoulon]

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

[johan89]

Merci beaucoup

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