Bonsoir,
Un précédent post m'a permis de "pondre" ce bout de code qui permet de
tester la présence du date dans un textbox
Ca semble fonctionner sauf le SetFocus, le curseur ne vient jamais se
positionner sur Aff_dateSortie.Value Quelqu'un aurait-il une idée du
pourquoi ?
Merci
Domi
(Excel2000SP3 / WK2SP4)
Private Sub Aff_dateSortie_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.Aff_dateSortie.Value = "" Then Exit Sub Else
If IsDate(Aff_dateSortie.Value) Then Exit Sub Else
MsgBox "Date Sortie non valide"
Me.Aff_dateSortie.Value = ""
Aff_dateSortie.SetFocus
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
Clément Marcotte
Bonjour,
Chez moi non plus, avec Excel 2002. Mais je dois quitter pour une heure ou deux, puis ce sera le souper.
"Domi" a écrit dans le message de news:%
Bonsoir, Un précédent post m'a permis de "pondre" ce bout de code qui permet de
tester la présence du date dans un textbox Ca semble fonctionner sauf le SetFocus, le curseur ne vient jamais se
positionner sur Aff_dateSortie.Value Quelqu'un aurait-il une idée du
pourquoi ? Merci Domi (Excel2000SP3 / WK2SP4)
Private Sub Aff_dateSortie_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.Aff_dateSortie.Value = "" Then Exit Sub Else If IsDate(Aff_dateSortie.Value) Then Exit Sub Else MsgBox "Date Sortie non valide" Me.Aff_dateSortie.Value = "" Aff_dateSortie.SetFocus
End Sub
Bonjour,
Chez moi non plus, avec Excel 2002. Mais je dois quitter pour une
heure ou deux, puis ce sera le souper.
"Domi" <scrat83@free.fr> a écrit dans le message de
news:%23v8FYqbIFHA.1280@TK2MSFTNGP09.phx.gbl...
Bonsoir,
Un précédent post m'a permis de "pondre" ce bout de code qui permet
de
tester la présence du date dans un textbox
Ca semble fonctionner sauf le SetFocus, le curseur ne vient jamais
se
positionner sur Aff_dateSortie.Value Quelqu'un aurait-il une idée
du
pourquoi ?
Merci
Domi
(Excel2000SP3 / WK2SP4)
Private Sub Aff_dateSortie_Exit(ByVal Cancel As
MSForms.ReturnBoolean)
If Me.Aff_dateSortie.Value = "" Then Exit Sub Else
If IsDate(Aff_dateSortie.Value) Then Exit Sub Else
MsgBox "Date Sortie non valide"
Me.Aff_dateSortie.Value = ""
Aff_dateSortie.SetFocus
Chez moi non plus, avec Excel 2002. Mais je dois quitter pour une heure ou deux, puis ce sera le souper.
"Domi" a écrit dans le message de news:%
Bonsoir, Un précédent post m'a permis de "pondre" ce bout de code qui permet de
tester la présence du date dans un textbox Ca semble fonctionner sauf le SetFocus, le curseur ne vient jamais se
positionner sur Aff_dateSortie.Value Quelqu'un aurait-il une idée du
pourquoi ? Merci Domi (Excel2000SP3 / WK2SP4)
Private Sub Aff_dateSortie_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.Aff_dateSortie.Value = "" Then Exit Sub Else If IsDate(Aff_dateSortie.Value) Then Exit Sub Else MsgBox "Date Sortie non valide" Me.Aff_dateSortie.Value = "" Aff_dateSortie.SetFocus
End Sub
Sniper
Chez moi non plus, avec Excel 2002. Mais je dois quitter pour une
heure ou deux, puis ce sera le souper.
chez moi, Clément.SetFocus doesn't work also !
Chez moi non plus, avec Excel 2002. Mais je dois
quitter pour une
Chez moi non plus, avec Excel 2002. Mais je dois quitter pour une
heure ou deux, puis ce sera le souper.
chez moi, Clément.SetFocus doesn't work also !
MichDenis
Bonjour Domi,
Il te manque une ligne de code ...Tu dois d'abord annuler l'effet de l'événement "Exit" (sortie du contrôle) en passant "True" au paramètre "Cancel".
Private Sub Aff_dateSortie_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.Aff_dateSortie.Value = "" Then Exit Sub Else If IsDate(Aff_dateSortie.Value) Then Exit Sub Else CANCEL = TRUE MsgBox "Date Sortie non valide" Me.Aff_dateSortie.Value = "" Aff_dateSortie.SetFocus
End Sub
Salutations!
"Domi" a écrit dans le message de news: % Bonsoir, Un précédent post m'a permis de "pondre" ce bout de code qui permet de tester la présence du date dans un textbox Ca semble fonctionner sauf le SetFocus, le curseur ne vient jamais se positionner sur Aff_dateSortie.Value Quelqu'un aurait-il une idée du pourquoi ? Merci Domi (Excel2000SP3 / WK2SP4)
Private Sub Aff_dateSortie_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.Aff_dateSortie.Value = "" Then Exit Sub Else If IsDate(Aff_dateSortie.Value) Then Exit Sub Else MsgBox "Date Sortie non valide" Me.Aff_dateSortie.Value = "" Aff_dateSortie.SetFocus
End Sub
Bonjour Domi,
Il te manque une ligne de code ...Tu dois d'abord annuler l'effet de l'événement "Exit" (sortie du contrôle) en passant
"True" au paramètre "Cancel".
Private Sub Aff_dateSortie_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.Aff_dateSortie.Value = "" Then Exit Sub Else
If IsDate(Aff_dateSortie.Value) Then Exit Sub Else
CANCEL = TRUE
MsgBox "Date Sortie non valide"
Me.Aff_dateSortie.Value = ""
Aff_dateSortie.SetFocus
End Sub
Salutations!
"Domi" <scrat83@free.fr> a écrit dans le message de news: %23v8FYqbIFHA.1280@TK2MSFTNGP09.phx.gbl...
Bonsoir,
Un précédent post m'a permis de "pondre" ce bout de code qui permet de
tester la présence du date dans un textbox
Ca semble fonctionner sauf le SetFocus, le curseur ne vient jamais se
positionner sur Aff_dateSortie.Value Quelqu'un aurait-il une idée du
pourquoi ?
Merci
Domi
(Excel2000SP3 / WK2SP4)
Private Sub Aff_dateSortie_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.Aff_dateSortie.Value = "" Then Exit Sub Else
If IsDate(Aff_dateSortie.Value) Then Exit Sub Else
MsgBox "Date Sortie non valide"
Me.Aff_dateSortie.Value = ""
Aff_dateSortie.SetFocus
Il te manque une ligne de code ...Tu dois d'abord annuler l'effet de l'événement "Exit" (sortie du contrôle) en passant "True" au paramètre "Cancel".
Private Sub Aff_dateSortie_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.Aff_dateSortie.Value = "" Then Exit Sub Else If IsDate(Aff_dateSortie.Value) Then Exit Sub Else CANCEL = TRUE MsgBox "Date Sortie non valide" Me.Aff_dateSortie.Value = "" Aff_dateSortie.SetFocus
End Sub
Salutations!
"Domi" a écrit dans le message de news: % Bonsoir, Un précédent post m'a permis de "pondre" ce bout de code qui permet de tester la présence du date dans un textbox Ca semble fonctionner sauf le SetFocus, le curseur ne vient jamais se positionner sur Aff_dateSortie.Value Quelqu'un aurait-il une idée du pourquoi ? Merci Domi (Excel2000SP3 / WK2SP4)
Private Sub Aff_dateSortie_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.Aff_dateSortie.Value = "" Then Exit Sub Else If IsDate(Aff_dateSortie.Value) Then Exit Sub Else MsgBox "Date Sortie non valide" Me.Aff_dateSortie.Value = "" Aff_dateSortie.SetFocus
End Sub
Eric
Bonjour,
A la place de
Aff_dateSortie.SetFocus
je mettrai :
Cancel = True
et ca devrait faire l'affaire car tu dois empecher la sortie et non pas sortir pour revenir (avec le SetFocus).
A+ Eric
Bonsoir, Un précédent post m'a permis de "pondre" ce bout de code qui permet de tester la présence du date dans un textbox Ca semble fonctionner sauf le SetFocus, le curseur ne vient jamais se positionner sur Aff_dateSortie.Value Quelqu'un aurait-il une idée du pourquoi ? Merci Domi (Excel2000SP3 / WK2SP4)
Private Sub Aff_dateSortie_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.Aff_dateSortie.Value = "" Then Exit Sub Else If IsDate(Aff_dateSortie.Value) Then Exit Sub Else MsgBox "Date Sortie non valide" Me.Aff_dateSortie.Value = "" Aff_dateSortie.SetFocus
End Sub
Bonjour,
A la place de
Aff_dateSortie.SetFocus
je mettrai :
Cancel = True
et ca devrait faire l'affaire car tu dois empecher la sortie et non pas
sortir pour revenir (avec le SetFocus).
A+
Eric
Bonsoir,
Un précédent post m'a permis de "pondre" ce bout de code qui permet de
tester la présence du date dans un textbox
Ca semble fonctionner sauf le SetFocus, le curseur ne vient jamais se
positionner sur Aff_dateSortie.Value Quelqu'un aurait-il une idée du
pourquoi ?
Merci
Domi
(Excel2000SP3 / WK2SP4)
Private Sub Aff_dateSortie_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.Aff_dateSortie.Value = "" Then Exit Sub Else
If IsDate(Aff_dateSortie.Value) Then Exit Sub Else
MsgBox "Date Sortie non valide"
Me.Aff_dateSortie.Value = ""
Aff_dateSortie.SetFocus
et ca devrait faire l'affaire car tu dois empecher la sortie et non pas sortir pour revenir (avec le SetFocus).
A+ Eric
Bonsoir, Un précédent post m'a permis de "pondre" ce bout de code qui permet de tester la présence du date dans un textbox Ca semble fonctionner sauf le SetFocus, le curseur ne vient jamais se positionner sur Aff_dateSortie.Value Quelqu'un aurait-il une idée du pourquoi ? Merci Domi (Excel2000SP3 / WK2SP4)
Private Sub Aff_dateSortie_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.Aff_dateSortie.Value = "" Then Exit Sub Else If IsDate(Aff_dateSortie.Value) Then Exit Sub Else MsgBox "Date Sortie non valide" Me.Aff_dateSortie.Value = "" Aff_dateSortie.SetFocus
End Sub
Clément Marcotte
Bonjour,
Je me dois de nuancer ce que j'ai dit. Je n'ai pas essayé les réponses de Denis et d'Éric, mais j'ai passé une procédure remaniée au pas à pas.
En fait, SetFocus fonctionne, mais le Exit Sub transfère le focus sur un autre contrôle. C'est pour cela que l'on a l'impression que le focus n'est pas ramené sur le textbox d'origine.
"Sniper" a écrit dans le message de news:342e01c521c0$89e634d0$
Chez moi non plus, avec Excel 2002. Mais je dois quitter pour une
heure ou deux, puis ce sera le souper.
chez moi, Clément.SetFocus doesn't work also !
Bonjour,
Je me dois de nuancer ce que j'ai dit. Je n'ai pas essayé les réponses
de Denis et d'Éric, mais j'ai passé une procédure remaniée au pas à
pas.
En fait, SetFocus fonctionne, mais le Exit Sub transfère le focus sur
un autre contrôle. C'est pour cela que l'on a l'impression que le
focus n'est pas ramené sur le textbox d'origine.
"Sniper" <Sniper@intrus.com> a écrit dans le message de
news:342e01c521c0$89e634d0$a501280a@phx.gbl...
Chez moi non plus, avec Excel 2002. Mais je dois
quitter pour une
Je me dois de nuancer ce que j'ai dit. Je n'ai pas essayé les réponses de Denis et d'Éric, mais j'ai passé une procédure remaniée au pas à pas.
En fait, SetFocus fonctionne, mais le Exit Sub transfère le focus sur un autre contrôle. C'est pour cela que l'on a l'impression que le focus n'est pas ramené sur le textbox d'origine.
"Sniper" a écrit dans le message de news:342e01c521c0$89e634d0$
Chez moi non plus, avec Excel 2002. Mais je dois quitter pour une
