Discussion :

[gdeon]

Bonjour,

J'utilise Excel 2003.

J'ai un userform avec 2 textbox, lorsque je clic sur les textbox j'affiche un 2eme userform dans lequel il y a un calendrier (calendar) : voici l'evenement

Code :

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

1
2
3
Private Sub textbox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
C.Show
End Sub

Voici mon problème : Comment mettre la date choisie dans le calendrier, dans la textbox sur laquelle j'ai cliqué pour afficher le calendrier ?

Exemples

Je clic sur textbox1 --> Le calendrier s'affiche --> Je clic sur une date --> le calendrier se ferme --> la date choisie se met dans textbox1

Ou

Je clic sur textbox2 --> Le calendrier s'affiche --> Je clic sur une date --> le calendrier se ferme --> la date choisie se met dans textbox2
Sachant que :

1. Je veux utiliser qu'un seul calendrier.
2. Je veux pouvoir utiliser "cette méthode" dans d'autres userform
3. Avant j'utilisais 2 MonthView, c'était parfais, mais un beau jour ce contrôle a disparu (y compris de la liste des contrôles supplèmentaires de la boite à outils) et même en réinstallant Office ils ne sont pas revenus

J'espère avoir été assez clair.

Merci

[JackOuYA]

Bonsoir, ..

Bon pour commencer je suis pas sur du forum .. Project c'est le logiciel Project , pas un "projet"..


tu peu par exemple utiliser la varibale Tag de ton calendar pour mémoriser le textbox concerné..

le code pour ton premier UserForm (UserForm1) celui au 2 textbox :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
   UserForm2.Calendar1.Tag = "1"
   UserForm2.Show
End Sub
Private Sub TextBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
   UserForm2.Calendar1.Tag = "2"
   UserForm2.Show
End Sub

Le code pour le bouton valider de ton userForm2

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
 Select Case Calendar1.Tag
   Case "1"
     UserForm1.TextBox1 = Calendar1.Value
   Case "2"
     UserForm1.TextBox2 = Calendar1.Value
 End Select
 
 Hide
 
End Sub

Je te conseille quand même de jeter un oeil au contrôle DTPicker, recherche "Microsoft Date and Time Picker" dans la liste des contrôles supplémentaires.

[gdeon]

Je vais tester ta solution.

Je sais que le contrôle date time picker est plus adapté ainsi que le Monthview, car je les ai utilisés (justement pour cette partie de programme) mais un beau jour ces 2 contrôles ont disparu et impossible de les retrouver dans "les contrôle supplémentaires".
Avant d'utiliser le calendrier j'ai réinstallé Office mais ils ne sont pas "revenus".

J'ai même télécharger les dll correspondantes au MonthView et DTPicker mais malgrès ça je ne les ai toujours pas dans la liste des contrôles supplementaires.

C'et pour cela que je me suis rabattu sur le calendrier.

Je te tiens au courrant.

En effet j'ai mal placé ce post et je m'en escuse

[gdeon]

Merci ta solution est exactement la bonne.

Pour retrouver MonthView et DTPicker il faut ajouter MSCOMCT2.ocx sur le site Microsoft