Discussion :

[moilou2]

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

[Le Pierre]

bonjour

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

à plus

[moilou2]

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

Merci quand même c'est cool

[Invité]

Bonjour

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 :

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

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

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 :

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

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

[moilou2]

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 :

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

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 :

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

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

[moilou2]

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

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

[Le Pierre]

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 :

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

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