Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel VBA : imposer un lundi dans un textbox

VBA : imposer un lundi dans un textbox

3 réponses
Avatar
Domi
Bonsoir,
J'utilise ce code pour imposer la saisie d'une date ou rien dans un textbox.
Je voudrai ajouter une condition supplémentaire, à savoir la date doit
obligatoirement correspondre à un Lundi.
J'ai ajouté une ligne If Weekday(DateDebut.... mais ça ne marche pas...

Private Sub DateDebut_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.DateDebut.Value = "" Then Exit Sub Else
If IsDate(DateDebut.Value) Then Exit Sub Else

If Weekday(DateDebut.Value) = vbMonday Then Exit Sub Else 'ca ne marche
pas

MsgBox "Date non valide"
Cancel = True
End Sub

Merci pour votre aide
Domi
Signaler un problème avec ce contenu

3 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
isabelle
bonjour Domi,

If Application.Weekday(DateDebut.Value, 2) = 1 Then Exit Sub

isabelle


Bonsoir,
J'utilise ce code pour imposer la saisie d'une date ou rien dans un textbox.
Je voudrai ajouter une condition supplémentaire, à savoir la date doit
obligatoirement correspondre à un Lundi.
J'ai ajouté une ligne If Weekday(DateDebut.... mais ça ne marche pas...

Private Sub DateDebut_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.DateDebut.Value = "" Then Exit Sub Else
If IsDate(DateDebut.Value) Then Exit Sub Else

If Weekday(DateDebut.Value) = vbMonday Then Exit Sub Else 'ca ne marche
pas

MsgBox "Date non valide"
Cancel = True
End Sub

Merci pour votre aide
Domi




Avatar
isabelle
oups,

If Application.Weekday(DateDebut.Value, 2) <> 1 Then Exit Sub

isabelle

bonjour Domi,

If Application.Weekday(DateDebut.Value, 2) = 1 Then Exit Sub

isabelle


Bonsoir,
J'utilise ce code pour imposer la saisie d'une date ou rien dans un
textbox.
Je voudrai ajouter une condition supplémentaire, à savoir la date doit
obligatoirement correspondre à un Lundi.
J'ai ajouté une ligne If Weekday(DateDebut.... mais ça ne marche pas...

Private Sub DateDebut_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.DateDebut.Value = "" Then Exit Sub Else
If IsDate(DateDebut.Value) Then Exit Sub Else

If Weekday(DateDebut.Value) = vbMonday Then Exit Sub Else 'ca ne
marche
pas

MsgBox "Date non valide"
Cancel = True
End Sub

Merci pour votre aide
Domi






Avatar
Domi
Merci ;o)
Domi

"isabelle" a écrit dans le message de
news:
oups,

If Application.Weekday(DateDebut.Value, 2) <> 1 Then Exit Sub

isabelle

bonjour Domi,

If Application.Weekday(DateDebut.Value, 2) = 1 Then Exit Sub

isabelle


Bonsoir,
J'utilise ce code pour imposer la saisie d'une date ou rien dans un
textbox.
Je voudrai ajouter une condition supplémentaire, à savoir la date doit
obligatoirement correspondre à un Lundi.
J'ai ajouté une ligne If Weekday(DateDebut.... mais ça ne marche pas...

Private Sub DateDebut_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.DateDebut.Value = "" Then Exit Sub Else
If IsDate(DateDebut.Value) Then Exit Sub Else

If Weekday(DateDebut.Value) = vbMonday Then Exit Sub Else 'ca ne
marche
pas

MsgBox "Date non valide"
Cancel = True
End Sub

Merci pour votre aide
Domi