errhandler: MsgBox "saissez une date au format XX/XX/XX"
End Sub
Michel
Bonjour Philippe et merci pour ton aide En fait je souhaite que si l'utilisateur saisit une date de WE un msgbox apparaît et efface le textbox je n'arrive pas à le faire fonctionner les 2 msgbox apparaissent l'un après l'autre ?? Michel
"Philippe.R" a écrit dans le message de news: OM$
Bonjour Michel, Essaie :
On Error GoTo errhandler
TextBox1.Value = CDate(TextBox1.Value)
If application.WorksheetFunction.Weekday(TextBox1.Value, 2) = 6 Or _ application.WorksheetFunction.Weekday(TextBox1.Value, 2) = 7 Then
errhandler: MsgBox "saissez une date au format XX/XX/XX"
End Sub
Bonjour Philippe et merci pour ton aide
En fait je souhaite que si l'utilisateur saisit une date de WE
un msgbox apparaît et efface le textbox
je n'arrive pas à le faire fonctionner
les 2 msgbox apparaissent l'un après l'autre ??
Michel
"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message de news:
OM$dLBjUFHA.3584@TK2MSFTNGP14.phx.gbl...
Bonjour Michel,
Essaie :
On Error GoTo errhandler
TextBox1.Value = CDate(TextBox1.Value)
If application.WorksheetFunction.Weekday(TextBox1.Value, 2) = 6 Or _
application.WorksheetFunction.Weekday(TextBox1.Value, 2) = 7 Then
Bonjour Philippe et merci pour ton aide En fait je souhaite que si l'utilisateur saisit une date de WE un msgbox apparaît et efface le textbox je n'arrive pas à le faire fonctionner les 2 msgbox apparaissent l'un après l'autre ?? Michel
"Philippe.R" a écrit dans le message de news: OM$
Bonjour Michel, Essaie :
On Error GoTo errhandler
TextBox1.Value = CDate(TextBox1.Value)
If application.WorksheetFunction.Weekday(TextBox1.Value, 2) = 6 Or _ application.WorksheetFunction.Weekday(TextBox1.Value, 2) = 7 Then
errhandler: MsgBox "saissez une date au format XX/XX/XX"
End Sub
Michel
Bonjour, j'ai transmis cette proc et cela fonctionne chez lui apparemment, car je n'ai pas eu de retour. je ne comprends pas le "WE" et le "numéro avec non we" ce que je souhaiterai dans la mesure du possible, c'est que si une date et saisie le WE, cela lance un msgbox afin de prévenir l'utilisateur, et efface le textbox dans ce cas, si je saisis 08/05/05 cela lance le msgbox nonwe si je saisie 09/05/05 cela lance également nonwe ??? Je n'y comprends pas grand-chose Michel
"anonymousA" a écrit dans le message de news: 427b5a29$0$11698$
bonjour,
QU'est ce qui ne marche pas , car cette proc t'a été communiquée il y a maintenant quelques mois et ne semble pas t'avoir posé souci depuis lors.
A+
Bonjour Je souhaite faire fonctionner cette procédure j'ai un textbox sur un userform cela ne fonctionne pas Merci
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
errhandler: MsgBox "saissez une date au format XX/XX/XX"
End Sub
Bonjour,
j'ai transmis cette proc et cela fonctionne chez lui apparemment, car je
n'ai pas eu de retour.
je ne comprends pas le "WE" et le "numéro avec non we"
ce que je souhaiterai dans la mesure du possible, c'est que si une date et
saisie le WE, cela lance un msgbox afin de prévenir l'utilisateur, et efface
le textbox
dans ce cas, si je saisis 08/05/05 cela lance le msgbox nonwe si je saisie
09/05/05 cela lance également nonwe ???
Je n'y comprends pas grand-chose
Michel
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
427b5a29$0$11698$8fcfb975@news.wanadoo.fr...
bonjour,
QU'est ce qui ne marche pas , car cette proc t'a été communiquée il y a
maintenant quelques mois et ne semble pas t'avoir posé souci depuis lors.
A+
Bonjour
Je souhaite faire fonctionner cette procédure
j'ai un textbox sur un userform
cela ne fonctionne pas
Merci
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
Bonjour, j'ai transmis cette proc et cela fonctionne chez lui apparemment, car je n'ai pas eu de retour. je ne comprends pas le "WE" et le "numéro avec non we" ce que je souhaiterai dans la mesure du possible, c'est que si une date et saisie le WE, cela lance un msgbox afin de prévenir l'utilisateur, et efface le textbox dans ce cas, si je saisis 08/05/05 cela lance le msgbox nonwe si je saisie 09/05/05 cela lance également nonwe ??? Je n'y comprends pas grand-chose Michel
"anonymousA" a écrit dans le message de news: 427b5a29$0$11698$
bonjour,
QU'est ce qui ne marche pas , car cette proc t'a été communiquée il y a maintenant quelques mois et ne semble pas t'avoir posé souci depuis lors.
A+
Bonjour Je souhaite faire fonctionner cette procédure j'ai un textbox sur un userform cela ne fonctionne pas Merci
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
errhandler: MsgBox "saissez une date au format XX/XX/XX"
End Sub
A+
Bonjour, j'ai transmis cette proc et cela fonctionne chez lui apparemment, car je n'ai pas eu de retour. je ne comprends pas le "WE" et le "numéro avec non we" ce que je souhaiterai dans la mesure du possible, c'est que si une date et saisie le WE, cela lance un msgbox afin de prévenir l'utilisateur, et efface le textbox dans ce cas, si je saisis 08/05/05 cela lance le msgbox nonwe si je saisie 09/05/05 cela lance également nonwe ??? Je n'y comprends pas grand-chose Michel
"anonymousA" a écrit dans le message de news: 427b5a29$0$11698$
bonjour,
QU'est ce qui ne marche pas , car cette proc t'a été communiquée il y a maintenant quelques mois et ne semble pas t'avoir posé souci depuis lors.
A+
Bonjour Je souhaite faire fonctionner cette procédure j'ai un textbox sur un userform cela ne fonctionne pas Merci
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
errhandler:
MsgBox "saissez une date au format XX/XX/XX"
End Sub
A+
Bonjour,
j'ai transmis cette proc et cela fonctionne chez lui apparemment, car je
n'ai pas eu de retour.
je ne comprends pas le "WE" et le "numéro avec non we"
ce que je souhaiterai dans la mesure du possible, c'est que si une date et
saisie le WE, cela lance un msgbox afin de prévenir l'utilisateur, et efface
le textbox
dans ce cas, si je saisis 08/05/05 cela lance le msgbox nonwe si je saisie
09/05/05 cela lance également nonwe ???
Je n'y comprends pas grand-chose
Michel
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
427b5a29$0$11698$8fcfb975@news.wanadoo.fr...
bonjour,
QU'est ce qui ne marche pas , car cette proc t'a été communiquée il y a
maintenant quelques mois et ne semble pas t'avoir posé souci depuis lors.
A+
Bonjour
Je souhaite faire fonctionner cette procédure
j'ai un textbox sur un userform
cela ne fonctionne pas
Merci
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
errhandler: MsgBox "saissez une date au format XX/XX/XX"
End Sub
A+
Bonjour, j'ai transmis cette proc et cela fonctionne chez lui apparemment, car je n'ai pas eu de retour. je ne comprends pas le "WE" et le "numéro avec non we" ce que je souhaiterai dans la mesure du possible, c'est que si une date et saisie le WE, cela lance un msgbox afin de prévenir l'utilisateur, et efface le textbox dans ce cas, si je saisis 08/05/05 cela lance le msgbox nonwe si je saisie 09/05/05 cela lance également nonwe ??? Je n'y comprends pas grand-chose Michel
"anonymousA" a écrit dans le message de news: 427b5a29$0$11698$
bonjour,
QU'est ce qui ne marche pas , car cette proc t'a été communiquée il y a maintenant quelques mois et ne semble pas t'avoir posé souci depuis lors.
A+
Bonjour Je souhaite faire fonctionner cette procédure j'ai un textbox sur un userform cela ne fonctionne pas Merci
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
errhandler: MsgBox "saissez une date au format XX/XX/XX"
End Sub
A+
Bonjour, j'ai transmis cette proc et cela fonctionne chez lui apparemment, car je n'ai pas eu de retour. je ne comprends pas le "WE" et le "numéro avec non we" ce que je souhaiterai dans la mesure du possible, c'est que si une date et saisie le WE, cela lance un msgbox afin de prévenir l'utilisateur, et efface le textbox dans ce cas, si je saisis 08/05/05 cela lance le msgbox nonwe si je saisie 09/05/05 cela lance également nonwe ??? Je n'y comprends pas grand-chose Michel
"anonymousA" a écrit dans le message de news: 427b5a29$0$11698$
bonjour,
QU'est ce qui ne marche pas , car cette proc t'a été communiquée il y a maintenant quelques mois et ne semble pas t'avoir posé souci depuis lors.
A+
Bonjour Je souhaite faire fonctionner cette procédure j'ai un textbox sur un userform cela ne fonctionne pas Merci
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
errhandler:
MsgBox "saissez une date au format XX/XX/XX"
End Sub
A+
Bonjour,
j'ai transmis cette proc et cela fonctionne chez lui apparemment, car je
n'ai pas eu de retour.
je ne comprends pas le "WE" et le "numéro avec non we"
ce que je souhaiterai dans la mesure du possible, c'est que si une date
et
saisie le WE, cela lance un msgbox afin de prévenir l'utilisateur, et
efface
le textbox
dans ce cas, si je saisis 08/05/05 cela lance le msgbox nonwe si je
saisie
09/05/05 cela lance également nonwe ???
Je n'y comprends pas grand-chose
Michel
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
427b5a29$0$11698$8fcfb975@news.wanadoo.fr...
bonjour,
QU'est ce qui ne marche pas , car cette proc t'a été communiquée il y a
maintenant quelques mois et ne semble pas t'avoir posé souci depuis
lors.
A+
Bonjour
Je souhaite faire fonctionner cette procédure
j'ai un textbox sur un userform
cela ne fonctionne pas
Merci
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
errhandler: MsgBox "saissez une date au format XX/XX/XX"
End Sub
A+
Bonjour, j'ai transmis cette proc et cela fonctionne chez lui apparemment, car je n'ai pas eu de retour. je ne comprends pas le "WE" et le "numéro avec non we" ce que je souhaiterai dans la mesure du possible, c'est que si une date et saisie le WE, cela lance un msgbox afin de prévenir l'utilisateur, et efface le textbox dans ce cas, si je saisis 08/05/05 cela lance le msgbox nonwe si je saisie 09/05/05 cela lance également nonwe ??? Je n'y comprends pas grand-chose Michel
"anonymousA" a écrit dans le message de news: 427b5a29$0$11698$
bonjour,
QU'est ce qui ne marche pas , car cette proc t'a été communiquée il y a maintenant quelques mois et ne semble pas t'avoir posé souci depuis lors.
A+
Bonjour Je souhaite faire fonctionner cette procédure j'ai un textbox sur un userform cela ne fonctionne pas Merci
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