Synthaxe passage de variables

Bonjour,

J'avais une macro Excel un peu lourde et qui était écrite tout en "enfilade", que je voudrais séparer proprement par modules.

Mon idée c'est d'avoir une procédure principale qui appelle ensuite différente procédures en fonction de la réponse à une checkbox userform.


Voici grossièrement l'architecture :

Code:

---

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

Sub Main()   Call SelectFile ' Cette procédure doit retourner plusieurs variables comme "FileName" and "Path"   Call UserForm(FileName, Path) 'Cette procédure se sert des variables de la précédentes et doit en renvoyer d'autres, "x1","x2","x3"   If x2=True Then Call Import(FileName,x1)   If x3=False Then Call Average(Path, FileName, x2) 'etc etc

---

Voilà le principe, je veux transmettre des variables de procédures à procédures en repassant par la procédure principale.

Malheureusement je bute complètement dessus, je ne vois pas par quel outil passer.


Merci par avance,

baba89

Passe par des variables globales qui seront utilisées par tes subs ou alors passe par des fonctions

bonsoir,

tu peu aussi passer des variables par référence

Code:

---

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

Sub Main() Dim stFileName As String Dim stPath As String SelectFile stFileName, stPath ' Cette procédure doit retourner plusieurs variables comme "FileName" and "Path" UserForm stFileName, stPath End Sub     Sub SelectFile(ByRef stNomFichier As String, ByRef stRep As String) stNomFichier = ThisWorkbook.Name stRep = ThisWorkbook.Path End Sub   Sub UserForm(ByRef st1 As String, ByRef st2 As String) MsgBox st2 & "\" & st1 End Sub

---

Merci pour vos réponses.

EngueEngue, je ne veux pas trop passer par des variables globales car j'en ai beaucoup et qu'en fonction des réponses de l'userForm, je ne me sers pas tout le temps des mêmes.
L'approche par fonction semble pas mal, mais si j'ai bien compris, ça n'utilise et ne renvoie qu'une seule variable ?

bbil, si je comprends bien ton code, la ligne :

Code:

---

SelectFile stFileName, stPath

---

appelle la procédure SelectFile et modifie les valeurs des deux arguments dans la procédure Main ?

Je vais tester ça, merci encore

les fonction retournent des valeurs:

Code:

---

1 2 3 4 5 6

Sub test() MsgBox FonctionTest("Test") End Sub Function FonctionTest(Valeur) As String FonctionTest = "la veleur retournée est : " & Valeur End Function

---

utilises des variables globales si tu n'as pas d'autre possibilité. passer le variable en références est plus facilement gérable.

de plus si tu passe des valeurs par référence, tu peux les modifier. su tu n'utilise pas toutes les variables tu peux les déclarer en optionnel.

Code:

---

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

Sub test() Dim txt As String MyTest 1, txt MsgBox txt MyTest 2, B:=txt MsgBox txt End Sub Sub MyTest(Opreration As Integer, Optional A As String, Optional B As String) Select Case Opreration Case 1 A = "TOTO" Case 2 B = "TITI" End Select End Sub

---