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

[cami67]

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.

[Jean-Pierre49]

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