Sur un Userform il y a un calendrier, un checkbox et un textbox. D=E8s
que l'utilisateur coche le checkbox, la date affich=E9e au calendrier
s'inscrit dans le textbox.
Ma question est la suivante: comment obliger l'utilisateur de choisir
un samedi? Voici o=F9 j'en suis:
If CDate(TextBox21.Value) <> vbSaturday Then
Msg =3D "Veuillez choisir un samedi comme date de d=E9part"
dialogstyle =3D vbOKOnly
Title =3D ""
reponse =3D MsgBox(Msg, dialogstyle, Title)
Textbox21.Value =3D ""
TextBox21.SetFocus
Exit Sub
End If
Ca ne marche pas. Excel me dit sans cesse que je n'ai pas choisis un
samedi m=EAme quand c'est le cas....Quelqu'un aurait une petite id=E9e?
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
JB
Bonjour,
If Weekday(CDate(TextBox21.Value) )<> 7 Then
JB
Bonjour à tous,
Sur un Userform il y a un calendrier, un checkbox et un textbox. Dès que l'utilisateur coche le checkbox, la date affichée au calendrier s'inscrit dans le textbox.
Ma question est la suivante: comment obliger l'utilisateur de choisir un samedi? Voici où j'en suis:
If CDate(TextBox21.Value) <> vbSaturday Then Msg = "Veuillez choisir un samedi comme date de départ" dialogstyle = vbOKOnly Title = "" reponse = MsgBox(Msg, dialogstyle, Title) Textbox21.Value = "" TextBox21.SetFocus Exit Sub End If
Ca ne marche pas. Excel me dit sans cesse que je n'ai pas choisis un samedi même quand c'est le cas....Quelqu'un aurait une petite idée?
Merci
Denys
Bonjour,
If Weekday(CDate(TextBox21.Value) )<> 7 Then
JB
Bonjour à tous,
Sur un Userform il y a un calendrier, un checkbox et un textbox. Dès
que l'utilisateur coche le checkbox, la date affichée au calendrier
s'inscrit dans le textbox.
Ma question est la suivante: comment obliger l'utilisateur de choisir
un samedi? Voici où j'en suis:
If CDate(TextBox21.Value) <> vbSaturday Then
Msg = "Veuillez choisir un samedi comme date de départ"
dialogstyle = vbOKOnly
Title = ""
reponse = MsgBox(Msg, dialogstyle, Title)
Textbox21.Value = ""
TextBox21.SetFocus
Exit Sub
End If
Ca ne marche pas. Excel me dit sans cesse que je n'ai pas choisis un
samedi même quand c'est le cas....Quelqu'un aurait une petite idée?
Sur un Userform il y a un calendrier, un checkbox et un textbox. Dès que l'utilisateur coche le checkbox, la date affichée au calendrier s'inscrit dans le textbox.
Ma question est la suivante: comment obliger l'utilisateur de choisir un samedi? Voici où j'en suis:
If CDate(TextBox21.Value) <> vbSaturday Then Msg = "Veuillez choisir un samedi comme date de départ" dialogstyle = vbOKOnly Title = "" reponse = MsgBox(Msg, dialogstyle, Title) Textbox21.Value = "" TextBox21.SetFocus Exit Sub End If
Ca ne marche pas. Excel me dit sans cesse que je n'ai pas choisis un samedi même quand c'est le cas....Quelqu'un aurait une petite idée?
Merci
Denys
Denys
Bonjour JB,
Merci beaucoup
Bonne journée
Denys
Bonjour,
If Weekday(CDate(TextBox21.Value) )<> 7 Then
JB
Bonjour à tous,
Sur un Userform il y a un calendrier, un checkbox et un textbox. Dès que l'utilisateur coche le checkbox, la date affichée au calendrier s'inscrit dans le textbox.
Ma question est la suivante: comment obliger l'utilisateur de choisir un samedi? Voici où j'en suis:
If CDate(TextBox21.Value) <> vbSaturday Then Msg = "Veuillez choisir un samedi comme date de départ" dialogstyle = vbOKOnly Title = "" reponse = MsgBox(Msg, dialogstyle, Title) Textbox21.Value = "" TextBox21.SetFocus Exit Sub End If
Ca ne marche pas. Excel me dit sans cesse que je n'ai pas choisis un samedi même quand c'est le cas....Quelqu'un aurait une petite idée?
Merci
Denys
Bonjour JB,
Merci beaucoup
Bonne journée
Denys
Bonjour,
If Weekday(CDate(TextBox21.Value) )<> 7 Then
JB
Bonjour à tous,
Sur un Userform il y a un calendrier, un checkbox et un textbox. Dès
que l'utilisateur coche le checkbox, la date affichée au calendrier
s'inscrit dans le textbox.
Ma question est la suivante: comment obliger l'utilisateur de choisir
un samedi? Voici où j'en suis:
If CDate(TextBox21.Value) <> vbSaturday Then
Msg = "Veuillez choisir un samedi comme date de départ"
dialogstyle = vbOKOnly
Title = ""
reponse = MsgBox(Msg, dialogstyle, Title)
Textbox21.Value = ""
TextBox21.SetFocus
Exit Sub
End If
Ca ne marche pas. Excel me dit sans cesse que je n'ai pas choisis un
samedi même quand c'est le cas....Quelqu'un aurait une petite idée?
Sur un Userform il y a un calendrier, un checkbox et un textbox. Dès que l'utilisateur coche le checkbox, la date affichée au calendrier s'inscrit dans le textbox.
Ma question est la suivante: comment obliger l'utilisateur de choisir un samedi? Voici où j'en suis:
If CDate(TextBox21.Value) <> vbSaturday Then Msg = "Veuillez choisir un samedi comme date de départ" dialogstyle = vbOKOnly Title = "" reponse = MsgBox(Msg, dialogstyle, Title) Textbox21.Value = "" TextBox21.SetFocus Exit Sub End If
Ca ne marche pas. Excel me dit sans cesse que je n'ai pas choisis un samedi même quand c'est le cas....Quelqu'un aurait une petite idée?
Merci
Denys
MichDenis
Si tu saisis manuellement tes dates dans ton textbox, il est toujours préférable de débuter ta procédure par un test afin de déterminer si l'information tapée dans le textbox correspond au moins à une date quelconque sinon, une erreur va être généré.
if isdate(Me.textbox1) then 'ton code Else msgbox "Textbox n'est pas une date end if
"Denys" a écrit dans le message de news:
Bonjour JB,
Merci beaucoup
Bonne journée
Denys
Bonjour,
If Weekday(CDate(TextBox21.Value) )<> 7 Then
JB
Bonjour à tous,
Sur un Userform il y a un calendrier, un checkbox et un textbox. Dès que l'utilisateur coche le checkbox, la date affichée au calendrier s'inscrit dans le textbox.
Ma question est la suivante: comment obliger l'utilisateur de choisir un samedi? Voici où j'en suis:
If CDate(TextBox21.Value) <> vbSaturday Then Msg = "Veuillez choisir un samedi comme date de départ" dialogstyle = vbOKOnly Title = "" reponse = MsgBox(Msg, dialogstyle, Title) Textbox21.Value = "" TextBox21.SetFocus Exit Sub End If
Ca ne marche pas. Excel me dit sans cesse que je n'ai pas choisis un samedi même quand c'est le cas....Quelqu'un aurait une petite idée?
Merci
Denys
Si tu saisis manuellement tes dates dans ton textbox,
il est toujours préférable de débuter ta procédure par
un test afin de déterminer si l'information tapée dans
le textbox correspond au moins à une date quelconque
sinon, une erreur va être généré.
if isdate(Me.textbox1) then
'ton code
Else
msgbox "Textbox n'est pas une date
end if
"Denys" <denys.perreault@rbc.com> a écrit dans le message de news:
1159878468.979590.268710@e3g2000cwe.googlegroups.com...
Bonjour JB,
Merci beaucoup
Bonne journée
Denys
Bonjour,
If Weekday(CDate(TextBox21.Value) )<> 7 Then
JB
Bonjour à tous,
Sur un Userform il y a un calendrier, un checkbox et un textbox. Dès
que l'utilisateur coche le checkbox, la date affichée au calendrier
s'inscrit dans le textbox.
Ma question est la suivante: comment obliger l'utilisateur de choisir
un samedi? Voici où j'en suis:
If CDate(TextBox21.Value) <> vbSaturday Then
Msg = "Veuillez choisir un samedi comme date de départ"
dialogstyle = vbOKOnly
Title = ""
reponse = MsgBox(Msg, dialogstyle, Title)
Textbox21.Value = ""
TextBox21.SetFocus
Exit Sub
End If
Ca ne marche pas. Excel me dit sans cesse que je n'ai pas choisis un
samedi même quand c'est le cas....Quelqu'un aurait une petite idée?
Si tu saisis manuellement tes dates dans ton textbox, il est toujours préférable de débuter ta procédure par un test afin de déterminer si l'information tapée dans le textbox correspond au moins à une date quelconque sinon, une erreur va être généré.
if isdate(Me.textbox1) then 'ton code Else msgbox "Textbox n'est pas une date end if
"Denys" a écrit dans le message de news:
Bonjour JB,
Merci beaucoup
Bonne journée
Denys
Bonjour,
If Weekday(CDate(TextBox21.Value) )<> 7 Then
JB
Bonjour à tous,
Sur un Userform il y a un calendrier, un checkbox et un textbox. Dès que l'utilisateur coche le checkbox, la date affichée au calendrier s'inscrit dans le textbox.
Ma question est la suivante: comment obliger l'utilisateur de choisir un samedi? Voici où j'en suis:
If CDate(TextBox21.Value) <> vbSaturday Then Msg = "Veuillez choisir un samedi comme date de départ" dialogstyle = vbOKOnly Title = "" reponse = MsgBox(Msg, dialogstyle, Title) Textbox21.Value = "" TextBox21.SetFocus Exit Sub End If
Ca ne marche pas. Excel me dit sans cesse que je n'ai pas choisis un samedi même quand c'est le cas....Quelqu'un aurait une petite idée?
Merci
Denys
Denys
Bonjour Denis,
Excellente idée......Merci beaucoup
Denys
Si tu saisis manuellement tes dates dans ton textbox, il est toujours préférable de débuter ta procédure par un test afin de déterminer si l'information tapée dans le textbox correspond au moins à une date quelconque sinon, une erreur va être généré.
if isdate(Me.textbox1) then 'ton code Else msgbox "Textbox n'est pas une date end if
"Denys" a écrit dans le message de news:
Bonjour JB,
Merci beaucoup
Bonne journée
Denys
Bonjour,
If Weekday(CDate(TextBox21.Value) )<> 7 Then
JB
Bonjour à tous,
Sur un Userform il y a un calendrier, un checkbox et un textbox. Dès que l'utilisateur coche le checkbox, la date affichée au calendrier s'inscrit dans le textbox.
Ma question est la suivante: comment obliger l'utilisateur de choisir un samedi? Voici où j'en suis:
If CDate(TextBox21.Value) <> vbSaturday Then Msg = "Veuillez choisir un samedi comme date de dépar t" dialogstyle = vbOKOnly Title = "" reponse = MsgBox(Msg, dialogstyle, Title) Textbox21.Value = "" TextBox21.SetFocus Exit Sub End If
Ca ne marche pas. Excel me dit sans cesse que je n'ai pas choisis un samedi même quand c'est le cas....Quelqu'un aurait une petite idé e?
Merci
Denys
Bonjour Denis,
Excellente idée......Merci beaucoup
Denys
Si tu saisis manuellement tes dates dans ton textbox,
il est toujours préférable de débuter ta procédure par
un test afin de déterminer si l'information tapée dans
le textbox correspond au moins à une date quelconque
sinon, une erreur va être généré.
if isdate(Me.textbox1) then
'ton code
Else
msgbox "Textbox n'est pas une date
end if
"Denys" <denys.perreault@rbc.com> a écrit dans le message de news:
1159878468.979590.268710@e3g2000cwe.googlegroups.com...
Bonjour JB,
Merci beaucoup
Bonne journée
Denys
Bonjour,
If Weekday(CDate(TextBox21.Value) )<> 7 Then
JB
Bonjour à tous,
Sur un Userform il y a un calendrier, un checkbox et un textbox. Dès
que l'utilisateur coche le checkbox, la date affichée au calendrier
s'inscrit dans le textbox.
Ma question est la suivante: comment obliger l'utilisateur de choisir
un samedi? Voici où j'en suis:
If CDate(TextBox21.Value) <> vbSaturday Then
Msg = "Veuillez choisir un samedi comme date de dépar t"
dialogstyle = vbOKOnly
Title = ""
reponse = MsgBox(Msg, dialogstyle, Title)
Textbox21.Value = ""
TextBox21.SetFocus
Exit Sub
End If
Ca ne marche pas. Excel me dit sans cesse que je n'ai pas choisis un
samedi même quand c'est le cas....Quelqu'un aurait une petite idé e?
Si tu saisis manuellement tes dates dans ton textbox, il est toujours préférable de débuter ta procédure par un test afin de déterminer si l'information tapée dans le textbox correspond au moins à une date quelconque sinon, une erreur va être généré.
if isdate(Me.textbox1) then 'ton code Else msgbox "Textbox n'est pas une date end if
"Denys" a écrit dans le message de news:
Bonjour JB,
Merci beaucoup
Bonne journée
Denys
Bonjour,
If Weekday(CDate(TextBox21.Value) )<> 7 Then
JB
Bonjour à tous,
Sur un Userform il y a un calendrier, un checkbox et un textbox. Dès que l'utilisateur coche le checkbox, la date affichée au calendrier s'inscrit dans le textbox.
Ma question est la suivante: comment obliger l'utilisateur de choisir un samedi? Voici où j'en suis:
If CDate(TextBox21.Value) <> vbSaturday Then Msg = "Veuillez choisir un samedi comme date de dépar t" dialogstyle = vbOKOnly Title = "" reponse = MsgBox(Msg, dialogstyle, Title) Textbox21.Value = "" TextBox21.SetFocus Exit Sub End If
Ca ne marche pas. Excel me dit sans cesse que je n'ai pas choisis un samedi même quand c'est le cas....Quelqu'un aurait une petite idé e?
