Problème d'extraction de date d'un DTPicker

Bonjour,

Voilà, je suis novice en userform sur VBA et j'ai un souci. J'ai cherché partout une réponse à ma question mais rien n'y fait.
Voilà mon problème: sur mon userform, j'ai ajouté un dtpicker avec le format de date en longdate, c'est à dire que sur mon dtpicker s'affiche la date en toutes lettres du jour. J'aimerais, pour mon projet, en fonction du jour de la semaine séléctionné dans le DTpicker, avoir des valeurs différentes dans une listbox. Je m'explique mon projet concerne les différentes séances pour un cinéma. Ainsi, si le jour de la semaine sélectionné dans le dtpicker est un lundi, alors une listbox apparaîtra et prendra la valeur de "20h", si c'est mardi, les valeurs seront "18h" et "20h", etc...
J'ai utilisé la fonction Weekday mais je n'arrive pas à la relier au DTPicker.
Si vous pouviez m'aider, j'en serais très reconnaissante.

Merci d'avance de votre réponse.:D

Bonjour,

Je n’ai pas dtpicker mais avec un MonthView

Ça donnerait

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub MonthView1_DateClick(ByVal DateClicked As Date) Select Case MonthView1.DayOfWeek Case 1 'Dimanche TextBox1.Value = "" Case 2 'Lundi TextBox1.Value = "20h" Case 3 'Mardi TextBox1.Value = "18h" Case 4 'Mercredi TextBox1.Value = "20h" Case 5 'Jeudi TextBox1.Value = "18h" Case 6 'Vendredi TextBox1.Value = "20h" Case 7 'Samedi TextBox1.Value = "18h" End Select End Sub

---

Bon courage