Recuperation d'une variable dans un second sub

Bonjour,

J'airais besoin de "récupérer" la valeur d'une variable d'un sous programme dands mon sub principal. Je m'explique :

Code:

---

1 2 3 4 5 6 7 8

sub prog_principal () blabla... if blabla then call prog_secondaire blabla... for u = 1 to ma_variable blabla... next u end sub

---

Code:

---

1 2 3

sub prog_secondaire ma_variable = blabla end sub

---

donc j'aimerais recuperer "ma_variable".

Je connais l'astuce consistant à stocker dans une cellule du fichier excel le contenu de la variable, puis le récupérer dès que l'on revient au sub principal puis à effecer cette cellule de stockage en fin de code. Mais je voudrais faire quelque chose de propre et carré si c'est possible.

Merci d'avance! :)

Salut,

Il faut que prog_secondaire soit déclaré comme une fonction

Code:

---

1 2 3

Public Function prog_secondaire () As TypeàRenvoyer prog_secondaire = blabla end Function

---

Code:

---

if blabla then Mavariable = prog_secondaire

---

;)

Tu peux aussi déclarer ta variable en Public.

Code:

---

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

Public ma_variable as letype   sub prog_principal () blabla... if blabla then call prog_secondaire blabla... for u = 1 to ma_variable blabla... next u end sub   sub prog_secondaire ma_variable = blabla end sub

---

Mais c'est moins sioux :(