Contrôle Calendar dans UserForm

Bonjour j'ai deux petite question à ce sujet:

1)Existe t-il un moyen que le calendrier se mette à la date système à chaque ouverture?

2)Peut t-on directement récupérer la valeur du calendrier lorsque l'on clique sur une de ces cases, et que cette date se mette dans une tectbox?

Merci

bonjour

tu pourrais t'inspirer de ceci : http://cjoint.com/?evqWxW7WgQ

à plus

Re en fait j'y arrive mais je n'arrive pas à le mettre a jour!

Merci quand même c'est cool:)

Bonjour

Citation:

---

Envoyé par moilou2

1)Existe t-il un moyen que le calendrier se mette à la date système à chaque ouverture?

---

Sur l'évènement Activate de ton UserForm tu mets

Code:

---

1 2 3

Private Sub UserForm_Activate() Me.Calendar1.Value = Now End Sub

---

Citation:

---

2)Peut t-on directement récupérer la valeur du calendrier lorsque l'on clique sur une de ces cases, et que cette date se mette dans une textbox?

---

Su l'évènement Click de ton calendrier, tests

Code:

---

1 2 3

Private Sub Calendar1_Click() Me.TextBox1.Value = Me.Calendar1.Value End Sub

---

Le tout à remplacer bien sûr par les noms de ton calendrier et de ta zonz de texte.

Starec

;)Re, j'ai un autre petit problème.

J'ai mon user form multipage, qui me sert de formulaire. J'ai plusieurs champs avec des dates, dans lequels je me sert du contrôle calendar. Mon idée a été de créer un Userform avec un contrôle calendar, pour chaque champs date. C'est à dire que sur chacun de mes champs dates, j'ai mis un code similaire à celui ci:

Code:

---

1 2 3

Private Sub TxtDateDebut_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) USFDateDebut.Show End Sub

---

J'ai donc ensuite un userform avec un calendrier qui s'ouvre. ce que je voudrais, c'est que lorsque j'ai choisi une date du calendrier, j'appuye sur le bouton ok de ce Userform, et que la date choisie aille s'inscrire dans ma text box dans laquel j'ai cliqué au début. J'ai docn utilisé le code suivant:

Code:

---

1 2 3

Private Sub CommandButton1_Click() TxtDateDebut = CldDateDebut.Value End Sub

---

Mais cela ne marche pas!

Quelqu'un peut t'il m'aider?

Merci

Re, j'ai peut être pas été clair désolé!!! :cry:

En fait se que je cherche à faire, c'est cliquer sur une textbox d'un formulaire "A", que cela m'appel un formulaire "B" contenant un calendrier. Que je clique sur la date du calendrier qui m'intéresse, que je clique sur le outon "OK" de mon formulaire "B", et que la date aille se mettre dans la textBox de mon formulaire "A".

Se que je cherche en fait, c'es le code à mettre dans mon bouton "Ok" de mon formulaire "B"

Merci

bonjour

le code à mettre n'est pas dans le bouton qui ferme la forme contenant le calendrier mais dans le Textbox où tu as fait un double click.

Code:

---

1 2 3 4

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Grille_Calendrier.Show TextBox1.Value = Grille_Calendrier.Calendar1.Value End Sub

---

à plus