Discussion :

[vivi4561]

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 :

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

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 :

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

Sub Resultats_Open(annee As String, mois As String)

Merci d'avance.

Cdlt,

Vincent

[Fvandermeulen]

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 :

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

1
2
3
4
5
Private Sub CommandButton1_Click()
 
Resultats_Open 'Appelle la macro du même nom
 
End Sub

Code :

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

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

[vivi4561]

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

Vincent