DTPICKER1 à la date du jour dans userform

Résolu
PYGOS69 Messages postés 452 Date d'inscription   Statut Membre Dernière intervention   -  
PYGOS69 Messages postés 452 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Dans un userform, j'ai un dtpicker (calendrier), mais à la commande Userform1.show, le calendrier affiche le 01/01/2019. Comment afficher la date du jour à l'ouverture du Userform (vba) ?

Merci d'avance !

Pygos69

Excel 2010

2 réponses

Réponse 1 / 2
JCB40 Messages postés 3013 Date d'inscription   Statut Membre Dernière intervention   463
 
Bonjour
Voir ci-dessous

Le contrôle DatePicker permet d'afficher un calendrier déroulant dans un UserForm.
Vous pouvez utiliser cet objet en sélectionnant "Microsoft Date and Time Picker Control 6.0" dans la liste des contrôles supplémentaires.

Cet exemple permet d'initialiser la date du jour dans le calendrier et affiche la date sélectionnée.
Vba

Private Sub UserForm_Initialize()
'spécifie la date du jour lors de l'affichage de l'USF
DTPicker1.Value = Now
End Sub

Private Sub DTPicker1_Change()
MsgBox DTPicker1.Value
End Sub

lorsque tu est dans ta fenetre vb, dans le module de l'userform, en haut tu as outils/controle supplementaire tu coche microsoft date and time pickers controle 6.0 (SP4) et tu pourras le rajouter a ton userform comme le reste

Cordialement
0
PYGOS69 Messages postés 452 Date d'inscription   Statut Membre Dernière intervention   21
 
Merci JCB40, pas d'amélioration,

0
PYGOS69 Messages postés 452 Date d'inscription   Statut Membre Dernière intervention   21
 
Voici le code, quand l'userform (Multi) s'affiche :

Sub MultiACC0()
'
'Entretien individuel
'
Multi.MultiPage1.Value = 0
Multi.Show
End Sub

Dois-je rajouter du code après Multi.Show ?
0
PYGOS69 Messages postés 452 Date d'inscription   Statut Membre Dernière intervention   21
 
exemple

0
Réponse 2 / 2
JCB40 Messages postés 3013 Date d'inscription   Statut Membre Dernière intervention   463
 
En principe, la date du jour est automatiquement affichée, mais si tu
souhaites forcer l'affichage, ceci devrait convenir:

Private Sub UserForm_Initialize()
DTPicker1.Day = Day(Date)
DTPicker1.Month = Month(Date)
DTPicker1.Year = Year(Date)
End Sub
0
PYGOS69 Messages postés 452 Date d'inscription   Statut Membre Dernière intervention   21
 
Désolé ! Cela ne fonctionne pas, lorsque je lance la macro Sub MultiACC0() , le calendrier indique la date du 01/01/2019 ....
0
PYGOS69 Messages postés 452 Date d'inscription   Statut Membre Dernière intervention   21
 
Propriété
0
PYGOS69 Messages postés 452 Date d'inscription   Statut Membre Dernière intervention   21
 
En modifiant CheckBox = True, il est possible de ne pas mettre de date dans la propriété Value....

Et lorsque le DTpicker s'affiche, c'est la date du jour qui est indiqué par défaut !
0