Déclenchement d'un USERFORM dans un autre USERFORM
Bonjour,
J'ai un userform, qui ressemble un peu à un formulaire : il me permet de mettre en forme sous forme "lisible" un ensemble de données contenues dans un tableau sous forme de lignes et colonnes: utilisation de textbox, optionbutton, etc…. Jusque là, tout fonctionne bien.
par contre dans une des colonnes, j'ai des dates. j'ai utilisé un userform trouvé dans les forums.
Le code est
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
| 'Private Sub Calendar1_Click()
'TextBox1.Value = Calendar1.Value
'End Sub
Private Sub Cmdquitter_Click()
Choixdate.Hide
End Sub
Private Sub cmdvalider_Click()
'mettre une date dans le textbox1
If Not IsDate(Calendar1) Then
MsgBox ("Choisir une date")
Me.Calendar1.SetFocus
'TextBox1.Value = Calendar1.Value
Exit Sub
End If
'If Calendar1 < Now Then
'MsgBox ("La date de relance doit être supérieure à cette date...")
'Exit Sub
'End If
Range("A1").Value = Calendar1
Me.Calendar1.Value = ""
Choixdate.Hide
End Sub
Private Sub UserForm_Initialize()
'spécifie la date du jour lors de l'affichage de l'USF
Calendar1.Value = Now
End Sub |
c'est un userform qui une fois appelé, permet de sélectionner une date sur un calendrier….
Mon problème est simple :
Dans mon userform initial (appelé "Visu"), j'ai un textbox dans lequel je rentre une date. Afin d'éviter des erreurs de saisie, je souhaite "appeler" le userform "choixdate" (=le code ci dessus)
Et je n'y arrive pas……j'ai essayé plusieurs choses, notamment dans le textbox5_change (:textbox5 étant une une date)
Code:
1
2
3
| sub clickdate()
choixdate.show
end sub |
par exemple, mais cela ne fonctionne pas, j'ai essayé textbox5_click, idem….
Je pense que la manip doit être simplisme, mais je ne trouve pas….
Une petite aide ?
merci,
A+
