OVH Cloud OVH Cloud

Interdire la saisie de date samedi et dimanche

4 réponses
Avatar
Michel.Girard
Bonjour
Je souhaite interdire la saisie de date le week-end dans un textbox
si date le week-end then msgbox ...
Merci beaucoup
Michel

4 réponses

Avatar
anonymousA
re,

utiliser l'evenement exit si c'est un textbox de userform et verifier la
nature du jour en utilisant le format date et la fonction weekday as
long as I remember.

A+

Bonjour
Je souhaite interdire la saisie de date le week-end dans un textbox
si date le week-end then msgbox ...
Merci beaucoup
Michel




Avatar
Michel.Girard
Bonjour AnonymousA
Merci pour ta célérité
Euh...
Je ne comprends pas grand-chose ;-)
Michel

"anonymousA" a écrit dans le message de news:
4224b91e$0$3130$
re,

utiliser l'evenement exit si c'est un textbox de userform et verifier la
nature du jour en utilisant le format date et la fonction weekday as long
as I remember.

A+

Bonjour
Je souhaite interdire la saisie de date le week-end dans un textbox
si date le week-end then msgbox ...
Merci beaucoup
Michel




Avatar
anonymousA
re,

p.e

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

On Error GoTo errhandler

TextBox1.Value = CDate(TextBox1.Value)

If WorksheetFunction.Weekday(TextBox1.Value, 2) = 6 Or
WorksheetFunction.Weekday(TextBox1.Value, 2) = 7 Then

MsgBox WorksheetFunction.Weekday(TextBox1.Value, 2) & "WE"
Cancel = True
Else

MsgBox WorksheetFunction.Weekday(TextBox1.Value, 2) & "non We"

End If
Exit Sub

errhandler:
MsgBox "saissez une date au format XX/XX/XX"

End Sub

A+

Bonjour AnonymousA
Merci pour ta célérité
Euh...
Je ne comprends pas grand-chose ;-)
Michel

"anonymousA" a écrit dans le message de news:
4224b91e$0$3130$

re,

utiliser l'evenement exit si c'est un textbox de userform et verifier la
nature du jour en utilisant le format date et la fonction weekday as long
as I remember.

A+


Bonjour
Je souhaite interdire la saisie de date le week-end dans un textbox
si date le week-end then msgbox ...
Merci beaucoup
Michel









Avatar
Michel.Girard
Merci beaucoup AnonymousA
Très sympa de ta part
Bonne soirée
Michel

"anonymousA" a écrit dans le message de news:
4224c858$0$3130$
re,

p.e

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

On Error GoTo errhandler

TextBox1.Value = CDate(TextBox1.Value)

If WorksheetFunction.Weekday(TextBox1.Value, 2) = 6 Or
WorksheetFunction.Weekday(TextBox1.Value, 2) = 7 Then

MsgBox WorksheetFunction.Weekday(TextBox1.Value, 2) & "WE"
Cancel = True
Else

MsgBox WorksheetFunction.Weekday(TextBox1.Value, 2) & "non We"

End If
Exit Sub

errhandler:
MsgBox "saissez une date au format XX/XX/XX"

End Sub

A+

Bonjour AnonymousA
Merci pour ta célérité
Euh...
Je ne comprends pas grand-chose ;-)
Michel

"anonymousA" a écrit dans le message de news:
4224b91e$0$3130$

re,

utiliser l'evenement exit si c'est un textbox de userform et verifier la
nature du jour en utilisant le format date et la fonction weekday as long
as I remember.

A+


Bonjour
Je souhaite interdire la saisie de date le week-end dans un textbox
si date le week-end then msgbox ...
Merci beaucoup
Michel