boucle et fonction

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 !

Bonjour,

As-tu tenté un :

Code:

---

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

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

Dans un premier module tu mets :

Code:

---

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:

---

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:ccool:

bonne chance pour la suite !

Salut DeaD78 et le forum
Sans trop me fouler

Code:

---

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+

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:

---

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

---

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:

---

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

effectivement, plus simple ! comme cela fonctionnait, je ne suis pas allé chercher plus loin (ou moins loin à vrai dire...)
mais ma fonction_i est une "function" donc renvoie un résultat ! Je n'ai pas excel sous la main, donc je ne pourrais tester que demain, mais je ne vois pas comment utiliser le "run" pour récupérer le résultat de fonction_i qui a la forme :

Code:

---

1 2 3 4 5 6

public function fonction_i()   fonction_i = a*b+c   end function

---

Salut
Run te renvoie ce que la function appelée lui renvoie

Code:

---

Retour = run .....

---

a++
Qwaz