Comment forcer l'ouverture d'un datepicker sur une date précise?

jofdm

XLDnaute Occasionnel
Bonjour,
J'ai un fichier avec 12 onglets représentant les 12 mois de l'année.
J'ai créé un Userform dans lequel une combobox me permet de sélectionner l'onglet dans lequel envoyer les données.
Dans cet userform, j'ai inséré un DatePicker.
Ma question est la suivante : comment puis-je relier le DatePicker et la combobox ? Pour être le plus explicite possible, j'aimerais que, par exemple, lorsque je sélectionne "Mars" dans la combobox, le DatePicker s'ouvre automatiquement sur Mars.
Merci d'avance pour votre aide
 

RENAUDER

Nous a quitté
Repose en paix
Re : Comment forcer l'ouverture d'un datepicker sur une date précise?

Bonjour,
Dans ta Combobox, tu récupères le N° d'item sélectionné
Janvier=0
Février=1
Mars =2
Sur Selection_Change de ta Combobox tu ajoutes
Me.DataPicker1.Value="01/" & Me.Combobox.List(Me.ListIndex) & "/2008"
Code:
Private Sub ComboBox1_Change()
    Me.DTPicker1.Value = "01/" & Me.ComboBox1.List(Me.ComboBox1.ListIndex)
End Sub
Private Sub UserForm_Activate()
    Me.ComboBox1.AddItem "Janvier"
    Me.ComboBox1.AddItem "Février"
    Me.ComboBox1.AddItem "Mars"
End Sub
Je pense que ça devrais fonctionner dans ton cas
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
312 842
Messages
2 092 745
Membres
105 519
dernier inscrit
faivre-roussel.ivan@orang