Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Sans W.E. dan un textbox

Sans W.E. dan un textbox

2 réponses
Avatar
Vincent
Bonjour à toutes et tous
Je souhaite pouvoir interdire la saisie de dates le Week-end dans un textbox
Merci à toutes et tous
Bon dimanche
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
user
bonjour,

pour donner une idée du principe

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 à toutes et tous
Je souhaite pouvoir interdire la saisie de dates le Week-end dans un textbox
Merci à toutes et tous
Bon dimanche




Avatar
Vincent
Je te remercie

a écrit dans le message de news:
%
bonjour,

pour donner une idée du principe

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 à toutes et tous
Je souhaite pouvoir interdire la saisie de dates le Week-end dans un
textbox
Merci à toutes et tous
Bon dimanche