Discussion :

[baba89]

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 :

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

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

[EngueEngue]

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

[SfJ5Rpw8]

bonsoir,

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

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

[baba89]

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 :

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

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

[Invité]

les fonction retournent des valeurs:

Code :

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

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 :

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

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