Discussion :

[ankoubzh]

Bonjour,
Dans une procédure, j'ai un grand nombre de fonction à appeler, qui plus est, variable. Elles ont toutes un nom de la même forme, disons fonction01, fonction02, ...
Comment faire une boucle qui les appelle successivement ? Suis-je obligé de créer dynamiquement la procédure qui doit appeler ces fonctions ?
Merci !

[DeaD78]

Bonjour,

As-tu tenté un :

Code :

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

1
2
3
For i = 1 to 100
    Call Fonction & i
Next

Ca appellera tes fonctions "Fonction1", "Fonction2" etc...

Je ne sais pas si ça marche, tu n'as qu'à tenter pour moi

EDIT : ça ne marche pas mais on va bien trouver autre chose

[DeaD78]

Ah ben j'ai trouvé. C'est moins compliqué que ça en a l'air.

Dans un premier module tu mets :

Code :

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

1
2
3
4
5
6
7
Sub fonction1()
    MsgBox "test1"
End Sub
 
Sub fonction2()
    MsgBox "test2"
End Sub

Puis, dans un second (pas le même !) :

Code :

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

1
2
3
4
5
6
7
8
9
Sub main()
    Dim temp As String
    temp = ""
 
    For i = 1 To 2
        temp = "fonction" & i
        Run temp
    Next
End Sub

Je viens de tester, ça marche niquel. A toi d'adapter en fonction du nombre de procédures que tu as et de leur nom

bonne chance pour la suite !

[Gorfael]

Salut DeaD78 et le forum
Sans trop me fouler

Code :

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

1
2
3
4
5
6
7
8
9
Sub main()
    Dim temp As String
    temp = ""
 
    For i = 1 To 2
        temp = "fonction" & format(i,"00")
        Run temp
    Next
End Sub

Pour répondre au sujet initial
A+

[ankoubzh]

merci à vous deux !
mes fonctions ayants des arguments, j'ai du créer d'autres procédures pour utiliser les fonctions, en mettant certains arguments en variables publiques (dans mon exemple, k et l)
Je mets (de mémoire) le code utilisé, sorte de "compil" des deux solutions proposées, au cas où ça serve à quelqu'un...
L'exemple remplit un ensemble de cellules de la worksheet "ma_feuille" avec le résultat de la fonction_i, où chaque colonne i utilise une fonction_i différente

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
sub model_i()
sheets("ma_feuille").cells(k,i) = fonction_i(a,b,c,d)
end sub
 
 
sub boucle_model()
dim temp as string
for i = 0 to nb_model
     temp = "model" & format(i,"00") 
     run temp
next i
end sub

[Qwazerty]

Salut
F1 sur Run t'aurait donné la solution, il y a une série d'argument que tu peux mettre a la suite et qui représente les argument de ta function
En reprenant un des exemple plus haut.

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
Sub fonction1(Texte1 As String, InTest1 As Integer)
    MsgBox Texte1 & Str(InTest1)
End Sub
 
Sub fonction2(Texte2 As String, InTest2 As Integer)
    MsgBox Texte2 & Str(InTest2)
End Sub
 
 
 
Sub main()
    Dim temp As String
    temp = ""
 
    For i = 1 To 2
        temp = "fonction" & i
        Run temp, "Peut etre", 10
    Next
End Sub

A++
Qwaz