Afficher sur USF Monthview

dudulleray -
Zoul67 Messages postés 1959 Date d'inscription Statut Membre Dernière intervention - 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

A voir également:

Afficher sur USF Monthview
Afficher appdata - Guide
Afficher taille dossier windows - Guide
Windows 11 afficher d'autres options - Guide
Afficher mot de passe wifi android - Guide
Afficher calendrier outlook dans google agenda - Guide

1 réponse

Réponse 1 / 1

Zoul67 Messages postés 1959 Date d'inscription Statut Membre Dernière intervention 149

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+

Discussions similaires

Afficher toutes les lignes masquées excel

Durée d'une diapositive animée

Où sont affichés les FPS Minecraft

Votre réponse

Discussions similaires