Discussion :

[vinystic]

Bonjour,
Sous excel, j'ai un programme dans un module qui fait appel à un certain moment à une
userform, afin de récupérer de l'utilisateur une date. Lorsque je clique sur OK de mon userform,
je reviens à la suite du code de mon module, mais je n'arrive pas à récupérer la date saisie dans le userform.

Merci

Ma userform:reunion

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub UserForm_initialize()
For i = 0 To 10
jo.AddItem Format(Date + i, "ddd dd.mm.yy")
Next i
jo.ListIndex = 0
End Sub
 
Private Sub CommandButton1_Click()
reunion.Hide
End Sub

Le code de mon module

Code :

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

1
2
3
4
5
6
................
Cells.Sort Key1:=Range("G2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
reunion.Show
jour = jo
..................

[JackOuYA]

voir la :
http://www.developpez.net/forums/d64...fert-variable/

ou la :

http://www.developpez.net/forums/d64...pres-userform/

[Fouinard]

tu devrais aussi pouvoir utiliser simplement une inputbox (quasiment la meme syntaxe que msgbox...)

[AlainTech]

Fouinard, tu fais comment pour mettre une ComboBox dans une InputBox?

[Fouinard]

Effectivement je n'avais pas jeté de coup d'oeil attentif au code (j'étais au boulot...) C'est vrai que si la date doit impérativement être choisie dans une liste l'inputbox ne convient pas !

Donc les infos se trouvent dans les liens donnés :
- Variable globale dans un module
- Affectation de cette variable par les méthodes de l'userform

Bonne soirée