Echange de variables entre plusieurs fonctions

Bonjour
J'ai un soucis.Voici mon problème.Je souhaiterai passer la valeur d'une variable contenu dans le fichier UserForm à un fichier module.

Code:

---

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

Private Sub CommandButton1_Click()   Dim mois As String Dim annee As Integer   'récupère les valeurs de la userform annee = TextBox1 mois = ListBox1.List(ListBox1.ListIndex)   'Ouverture Macro Resultats Resultats_Open   End Sub

---

Et je souhaiterai récuperer mes valeurs annee et mois.J'ai essayé celà mais ça ne marche pas

Code:

---

Sub Resultats_Open(annee As String, mois As String)

---

Merci d'avance.

Cdlt,

Vincent

Salut,
Le problème avec ton bouton c'est que tu es en Private => pas dispo dans les autres modules (il y a un bon tutos la dessus)
Par contre pas besoin d'affecter tes variables dans l'évènement du bouton, il peut retrouver la valeur d'une TextBox dans un module normal pour autant que tu précise quel l'UserForm qui le "contient".
Considérons que ton userform n'est pas renomé:

Code:

---

1 2 3 4 5

Private Sub CommandButton1_Click()   Resultats_Open 'Appelle la macro du même nom   End Sub

---

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Resultats_Open()   Dim mois As String Dim annee As Integer   'récupère les valeurs de la userform annee = UserForm1.TextBox1 mois = UserForm1.ListBox1.List(UserForm1.ListBox1.ListIndex)   End Sub

---

Attention, je me suis pas amusé à créer un UserForm pour tester mais sois assuré que je n'ai aucuns doutes concernant le TexBox, par contre listbox...

A+

Edit: Correction du code sur la ligne qui récupère le mois...pourquoi c'est toujours quand on a publié qu'on se rend compte de nos conn..... :aie:

Je vais faire comme tu me dis.
Merci pour l'info.

Vincent