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