Sujet Précédent Sujet Suivant

DTPICKER1 à la date du jour dans userform

Résolu/Fermé
PYGOS69 Messages postés 452 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023 - 3 avril 2019 à 13:56
PYGOS69 Messages postés 452 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023 - 3 avril 2019 à 15:10
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 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 461
3 avril 2019 à 14:11
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 jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023 21
3 avril 2019 à 14:18
Merci JCB40, pas d'amélioration,

0
PYGOS69 Messages postés 452 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023 21
3 avril 2019 à 14:25
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 jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023 21
3 avril 2019 à 14:28
exemple

0
Réponse 2 / 2
JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 461
3 avril 2019 à 14:36
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 jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023 21
Modifié le 3 avril 2019 à 14:55
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 jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023 21
3 avril 2019 à 14:55
Propriété
0
PYGOS69 Messages postés 452 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023 21
3 avril 2019 à 15:10
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