Discussion :

[ericdev67]

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 :

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

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 :

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

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+

[Phil'oche]

Salut,

Vois peut-être avec textbox5_Enter, qui se déclenche lorsque ton TextBox reçoit le focus...

[jijie]

et comme ceci

Code :

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

choixdate.show 0

[ericdev67]

Merci Phil'oche,


Effectivement le "_Enter" déclenche bien....je ne connaissais pas......Merci !

par contre, j'ai un souci : je suis sur ma Textbox5, lorsque je clique dessus, cela déclenche le calendrier, je sélectionne ma date, mais je n'arrive pas à la rapatrier...j'ai mis

Code :

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

1
2
3
4
5
Private Sub TextBox5_Enter()
Choixdate.Show
TextBox5.Value = Calendar1.Value
 
End Sub

et il renvoie à l'erreur "connais pas "Calendar1". Je me suis dit, normal, puisque pas déclarée, et j'ai donc essayé de faire

Code :

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

global calendar1 as date

et cela ne me prend pas le "Global".

Comment faire ?

Merci

A+




Merci Jijie,

J'ai essayé

Code :

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

choixdate.show 0

, mais cela n'a pas fonctionné....merci tout de même

A+

[jijie]

Code :

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

1
2
 
TextBox5.Value = Choixdate.Calendar1.Value

[ericdev67]

merci Jijie,

Je savais que cela serait simple....et tellement simple que je n'ai pas trouvé......

merci !

dernière question : lorsque la date est reportée dans mon tableau, elle est sous forme de texte...(=quand je fais format/cellule, c'est un texte et non pas une date).

Une manip particulière à faire ? je ne comprends pas puisque "textbox5.value" devrait bien reprendre la valeur (=date) ...

merci,

A+