Probleme selection datepicker

Bonjour a tous
Voila j'ai un probleme avec mon calendrier sur excel. Je dois empecher la selection des samedis et des dimanches, j'ai donc mis un message d'alerte lorsqu'on selectionne cette date. Mon probleme est que quand on passe au mois suivant pour chercher les dates plus loin, si la date tombe sur un week end le message s'affiche alors qu'on a pas selectionné la date (on tombe dessus par hasard)

exemple : on est jeudi 17 oct, je fais la fleche pour passer en novembre et comme c'est un dimanche, le message s'affiche.

Je debute en VBA si vous avez une idée pour regler ce probleme... :)

Merci par avance !

Bonjour,

Poste ton code.

Voici le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

Private Sub DTPicker1_Change()   Dim dt2 As Date today = Date today = today + 30 DTPicker1.MinDate = today   While Weekday(DTPicker1.MinDate) = vbSunday Or Weekday(DTPicker1.MinDate) = vbSaturday today = today + 1 DTPicker1.MinDate = today Wend   dt2 = DTPicker1.Value DTPicker2.MinDate = dt2 + 10   If DTPicker1.DayOfWeek = vbSunday Or DTPicker1.DayOfWeek = vbSaturday Then MsgBox ("Samedi, dimanche : jours non ouvrés. " & Chr(10) & "Merci de sélectionner une autre date.") DTPicker1.Value = today Else If DTPicker1.Value Like "25/12*" = True Or DTPicker1.Value Like "01/01*" Then   MsgBox ("Point de vigilance jour férié. Merci de sélectionner une autre date.") DTPicker1.Value = today End If   dt2 = DTPicker1.Value DTPicker2.MinDate = dt2 + 10   End If End Sub

---

Le premiere partie c'est pour empecher de selectionner une date inferieure a 30 jour apres la date actuelle (et ni un samedi ni un dimanche)

C'est la deuxieme partie qui plante.
En fait elle marche mais le message s'affiche meme si on ne selectionne pas la date, a partir du moment ou le defilement des mois fait que ca tombe un week end...
Si vous avez une idée... :)

et bonjour Daniel merci de prendre du temps pour m'aider :)

Je te joins mon fichier ce sera surement plus simple a comprendre (et tu vas tres vite cerner le probleme je pense) :)

Ton problème doit venir de ce que "DTPicker1.MinDate" est une date et que le compares avec du texte. ajoute :

Code:

---

1 2	Dim Dat As String Dat = Format(DTPicker1.MinDate, "dd/mm/yyyy")

---

et utilise "Dat" pour tes comparaisons avec des chaînes de caractères.

J'ai essayé mais ca ne change rien... J'ai aussi mis DayOfWeek dans une variable mais ca ne fais rien de different non plus.

En fait je voudrais que le message ne s'affiche que si on selectionne un jours du week end mais par defaut quand on fait defiler les mois, la date (ici le 18) reste selectionnée et si on tombe sur un jour de week end le message s'affiche meme si on a selectionné aucune date.

Par exemple si je veux aller en fevrier je dois faire defiler les mois et en passant par janvier la date préselectionnée est le 18 aussi (un samedi) et la il me met le message.

Je sais pas si je suis assez clair ou si c'est incomprehensible... :)

Finalement j'ai coutourné le probleme :) Pour info j'ai fait :

Code:

---

1 2 3

While DTPicker1.DayOfWeek = vbSunday Or DTPicker1.DayOfWeek = vbSaturday DTPicker1.Value = DTPicker1.Value + 1 Wend

---

Comme ca plus de messagebox ;)

Merci beaucoup pour tes reponses en tout cas et bonne continuation !