Sujet Précédent Sujet Suivant

Afficher sur USF Monthview

Fermé
dudulleray - Modifié par dudulleray le 20/10/2013 à 15:22
Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 - 21 oct. 2013 à 10:54
Bonjour a toutes et tous, Forum bonjour

EXCEL 2007 - VBA

Voila j'ai un Userform avec un Textbox4 dans une Frame10

j'ai également inserer le calendrier Monthview

je souhaiterai svp avec le Textbox4 en cliquant dessus afficher ou pas afficher le Monthview sur l'USF

malgré mes divers essais avec les codes ci-dessous, je ni parvient pas.

A savoir: lorsque j'ouvre mon fichier excel, l'USF s'affiche ainsi que le Monthview

alors que je souhaiterai seulement que lorsque je clic sur le Texbox4 afficher le calendrier
et après sélection d'une Date et transfert dans le Textbox4
un autre clic dans le Textbox4 pour effacer le calendrier 



'Private Sub TextBox4_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Private Sub TextBox4_Click()
MonthView1.Visible = False
'MonthView1.Visible = True
End Sub

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
TextBox4.Value = Format(Me.MonthView1.Value, "dd/mmm/yyyy")
End Sub

Merci beaucoup par avance pour votre temps et pour votre aide

Bon Dimanche a tous

Cordialement

1 réponse

Réponse 1 / 1
Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
21 oct. 2013 à 10:54
Re,

Pour faire le va-et-vient, je pense : 
Private Sub TextBox4_Click()
MonthView1.Visible = Not(MonthView1.Visible)
End Sub

et pour la saisie : 

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
TextBox4.Value = DateClicked
End Sub

A+
0

Discussions similaires

Où sont affichés les FPS Minecraft
Guerric -
malekpe -

9 réponses