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 -
PYGOS69 Messages postés 452 Date d'inscription Statut Membre Dernière intervention -
2 réponses
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
Sub MultiACC0()
'
'Entretien individuel
'
Multi.MultiPage1.Value = 0
Multi.Show
End Sub
Dois-je rajouter du code après Multi.Show ?