Discussion :

[bobmarley4444]

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 !

[Daniel.C]

Bonjour,

Poste ton code.

[bobmarley4444]

Voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[Daniel.C]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[bobmarley4444]

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...

[bobmarley4444]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !