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
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
2 réponses
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
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
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
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
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
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
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
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 ....
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
3 avril 2019 à 14:55
Propriété
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
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 !
Et lorsque le DTpicker s'affiche, c'est la date du jour qui est indiqué par défaut !
3 avril 2019 à 14:18
3 avril 2019 à 14:25
Sub MultiACC0()
'
'Entretien individuel
'
Multi.MultiPage1.Value = 0
Multi.Show
End Sub
Dois-je rajouter du code après Multi.Show ?
3 avril 2019 à 14:28