VBA- Call d'un module via un userform

Bonjour à tous,

Débutante en VBA, j'ai un programme qui tourne assez bien mais je souhaietrais l'optimiser et le rentre plus "claire".

Pour cela j'aimerais appeler des modules afin de pourvoir utiliser la même fonction plusieurs fois, mais egalement pour ne pas exécuter mes fonctions les unes après les autres

Plus d'info sur le contexte :

J'ai mon userform qui s'ouvre lorsque je clique sur un bouton. J'ai des combobox, textbox et checkbox dedans et deux boutons validé, annulé.
Lorsque l'on clique sur validé, je récupère les infos dans des variables et lances plusieurs fonctions.
Aucun problème si mes fonctions sont écrites dans mon userform mais si j'ai testé de les écrire dans des modules et impossible de les appeler avec "call".

Version code USERFORM
Fonction Opdaily (WorkCat)

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub CommandButton1_Click() ' Get values from the userform 'CmboxBox1 : Work category Dim WorkCat As String WorkCat = ComboBox1.Value   'Run OpDaily OpDaily WorkCat End Sub

---

version code module
Nom du module MacroDaily, nom de la fonction Daily()

Code:

---

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

Sub CommandButton1_Click() ' Get values from the userform 'CmboxBox1 : Work category Dim WorkCat As String WorkCat = ComboBox1.Value   'Run Daily Call Daily ''Compile error : Sub or Function not defined Call MacroDaily ''Compile error : Expected variable or procedure, not module Call MacroDaily WorkCat ''Compile error : Expected : end of state   End Sub

---

Des idées pour m'aider à résoudre ce problème ?

Merci d'avance

Salut,

2 choses a faire :

1 - adopter une portee public pour les fonctions et procedures dans le module

Code:

---

Public MaSuperFonction() As Integer

---

2 - t'affranchir du Call en appelant directement la fonction/procedure

Code:

---

1 2 3

a= MaSuperFonction() 'ou MaSuperProc

---

Bonjour,
personnellement j'opterai pour un passage de paramétré qui permettrait le cas échéant la ré-utilisabilité du code!

Code:

---

1 2 3

sub Daily(WorkCat As String) MsgBox WorkCat End Sub

---

Code:

---

1 2 3 4

Sub CommandButton1_Click() Call Daily(ComboBox1.Value) End Sub

---

Code:

---

1 2 3

Sub Test() Daily "TOTO" End Sub

---

Merci à tous pour vos conseils. J'ai choisi la solution de mettre mes fonctions en mode public en fesant attention à ne pas mélanger mes variables