choisir jour précis (lundi uniquement)dans un calendar

[pascal21]

bonsoir
j'ai un calendar dans un usf
l'utilisateur est obligé de cliquer sur une date tombant un lundi
comment si il y a une erreur de jour ne pas inscrire cette date (commandbutton1 pour valider) et avoir un msg d'avertissement (genre msg box)
demandant de bien vouloir cliquer sur la bonne date (non de diou!!!!!) lol!!!
donc je reprends:
userform avec calendar1
commandbutton pour valider la sélection du calendar1
si pas choisi une date tombant un lundi alors msg box d'avrtissement demandant de bien vouloir choisir une autre date
ou alors si pas choisi une autre date alors command button1 invisible et msgbox
merci

 

[Cousinhub]

Re : choisir jour précis (lundi uniquement)dans un calendar

Bonsoir,
insère ce test en début de code :

Private Sub Calendar1_Click()
If Weekday(Calendar1.Value, 2) <> 1 Then MsgBox "Pas un Lundi": Exit Sub
End Sub

 

[pascal21]

Re : choisir jour précis (lundi uniquement)dans un calendar

bonsoir bhbh
encore une fois tu tombes pile poil sur ce que je voulais
merci et bonne soirée