Insérer date dans TextBox à partir d'un calendrier

blue100 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Excel 2007 - VBA

J'ai un UserForm dans lequel je click sur un CommandButton_date pour faire apparaître un Calendar1.

Je veux sélectionner une date dans ce calendrier, qu'elle s'insère dans mon TextBox5 et que le calendrier disparaissent ensuite. J'ai essayé plusieurs commande mais la date ne se transfère pas... est-ce que quelqu'un peu m'aider ???

voici ce que j'ai essayé:


Private Sub CommandButton_Date_Click()

Calendar1.Visible = True

End Sub


Private Sub Calender1_click()

With Selection
TextBox5.Value = Format(Calendar1.Value, "dd/mmmm/yy")
End With

Unload Me

End Sub


Merci beaucoup!!!
A voir également:

2 réponses

Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
Bonjour,
Difficile de vous donner la bonne solution sans connaitre le genre de calendrier que vous avez utilisée (DTPiker, calendar......etc.). Pouvez vous mettre le fichier sur https://www.cjoint.com/ et poster le lien.
0
Maurice
 
Bonjour
Mettre le nom de Usf de la textbox

UserForm1.TextBox5.Value = Format(Calendar1.Value, "dd/mmmm/yy")

A+
Maurice
-1
blue100 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
Je l'ai fait mais ça ne change rien.... et d'ailleurs mon Unload me ne fonctionne pas non plus, c'est comme si mon Private Sub Calender1_click ne fonctionnait pas du tout...
0