Discussion :

[vbword]

Bonjour à tous

Pour un document Word
J'ai un problème avec une UserForm nommée frmUserForm1 avec une textbox nommée txtdate_effrac, un bouton de commande nommé cmdRéférence et un Calendar nommé caleffrac

A ce bouton de commande, en cliquant, je souhaite l'ouverture d'un Calendar.
Une fois le Calendar ouvert, en double cliquant sur une date, je souhaite qu'il agrémente la date dans la dite textbox et qu'il ne s'affiche plus. Mais qu'il puisse revenir si je reclique sur le bouton de commande bien sûr.

Je n'arrive pas à les associer, et à généré les codes pour que ça fonctionne ...

Si vous avez moyen de m'aider ... grand merci d'avance

[ucfoutu]

Bonjour,

Un mécanisme aussi simple à établir ne peut que faire l'objet de son exposé (le code étant, lui, élémentaire)

- A la création : propriété Visible de ton Calendar = False
- Au click sur ton bouton de Commande ===>> propriété Visible de ton Calendar = True
- au click sur ton Calendar :
===>> tu donnes à ta textbox la valeur de ton Calendar (propriété Value)
===>> tu repasses à False la propriété Visible de ton Calendar.

On peut maintenant se demander pourquoi utiliser un bouton de commande, alors que tu l'on pourrait utiliser directement l'évènement Click de la TextBox...

[vbword]

Bonjour,

Un mécanisme aussi simple à établir ne peut que faire l'objet de son exposé (le code étant, lui, élémentaire)

- A la création : propriété Visible de ton Calendar = False
- Au click sur ton bouton de Commande ===>> propriété Visible de ton Calendar = True
- au click sur ton Calendar :
===>> tu donnes à ta textbox la valeur de ton Calendar (propriété Value)
===>> tu repasses à False la propriété Visible de ton Calendar.

On peut maintenant se demander pourquoi utiliser un bouton de commande, alors que tu l'on pourrait utiliser directement l'évènement Click de la TextBox...

Merci pour ta réponse, mais étant très novice dans ce domaine, ta réponse ne m'aide pas complètement ...

J'arrive à configurer la valeur du calendar pour la textbox

Code :

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

1
2
3
Private Sub txtdate_effrac_Click()
txtdate_effrac.Value = caleffrac.Value
End Sub

La propriété Visible du calendar = False ça c'est bon.
Je ne sais pas comment configurer la propriété Visible de mon Calendar = True quand on clique sur le bouton de commande
Je ne sais pas non plus comment configurer le retour à False la propriété du Calendar une fois qu'on a cliquer sur le Calendar

[Heureux-oli]

Salut,

Si tu veux modifier la propriété visible de ton Contrôle calendrier, il suffit de la remettre à True

Code :

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

1
2
3
 
Me.Calendar1.Visible = True
Me.Repaint

Et il faut réactualiser le UserForm pour l'afficher.

[ucfoutu]

- au click sur ton Calendar :
===>> tu donnes à ta textbox la valeur de ton Calendar (propriété Value)
===>> tu repasses à False la propriété Visible de ton Calendar.

et tu as écrit :

Code :

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

1
2
3
Private Sub txtdate_effrac_Click()
  txtdate_effrac.Value = caleffrac.Value
End Sub

Tu crois que tu as utilisé l'évènement click qui convient ?
Il me semble que tu as fait le contraire...

[vbword]

Salut,

Si tu veux modifier la propriété visible de ton Contrôle calendrier, il suffit de la remettre à True

Code :

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

1
2
3
 
Me.Calendar1.Visible = True
Me.Repaint

Et il faut réactualiser le UserForm pour l'afficher.

Merci à toi aussi pour ta réponse ... mais parce qu'il y en a toujours un de mais ... enfin là même plusieurs ...

Pour la propriété visible du calendrier c'est bon ... il s'affiche quand je clique sur le bouton de commande ... et la textbox s'agrémente bien avec la date ... sauf qu'en cliquant sur le calendrier, il reste toujours ouvert ...

[Heureux-oli]

Bien sur, il faut le cacher après son utilisation !

Code :

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

1
2
3
4
5
6
7
 
Private Sub Calendar1_Click()
 
Me.Calendar1.Visible = False
 
Me.Repaint
End Sub

[JackOuYA]

bonjour,

tu peu nous montrer où tu en est de ton code ?

[ucfoutu]

Ajoute donc, dans l'évènement click de ton calendrier (et après avoir passé sa valeur à ta texbox) que tu ne veux plus le voir ....

- au click sur ton Calendar :
===>> tu donnes à ta textbox la valeur de ton Calendar (propriété Value)
===>> tu repasses à False la propriété Visible de ton Calendar.

[vbword]

et tu as écrit :

Code :

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

1
2
3
Private Sub txtdate_effrac_Click()
  txtdate_effrac.Value = caleffrac.Value
End Sub

Tu crois que tu as utilisé l'évènement click qui convient ?
Il me semble que tu as fait le contraire...

Oui autant pour moi ... erreur de script ... j'ai changé c'est l'évènement Change ... donc ça c'est bon ...

Donc là tout fonctionne sauf le fait que le calendar doive se fermer quand on clique sur une date ... donc faire revenir la propriété Visible à False

**************************************************

C'est bon Messieurs, tout fonctionne nickel ...

Encore un grand merci à vous ...

Eu besoin plusieures fois et jamais déçu

Encore merci

[ucfoutu]

C'est à despérer ....
Ce n'est pas la nature de l'évènement, qui est concernée, mais l'objet auquel tu l'appliques ! (c'est l'évènement click de ton calendrier, qu'il faut utiliser, pas celui de ta textbox ....)

Bon...
Regarde maintenant comment te débarrasser de ce bouton de commande .
Philosophie : si l'utilisateur clique sur la textbox, c'est qu'il a l'intention de la modifier.===>> on affiche le calendrier ===>> l'utilisateur y choisit sa date ===>> s'il double-clique (ton voeu) ===>> on met à jour la textbox et on rend invisible le calendrier. On le rend également invisible si l'utilisateur abandonne le calendrier et se rend dans un autre contrôle que la textbox de date.

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
Private Sub caleffrac_DblClick()
  txtdate_effrac.Text = caleffrac.Value
  caleffrac.Visible = False
  Me.Repaint
End Sub
 
Private Sub txtdate_effrac_Click()
 caleffrac.Visible = True
 Me.Repaint
End Sub
 
Private Sub caleffrac_LostFocus()
  caleffrac.Visible = False
  Me.Repaint
End Sub

et on supprime le bouton de commande.

[vbword]

Je vais voir pour copier le fichier et vérifier la meilleure utilisation

Encore merci à toi