Bonjour, après mes ListBox, mes SetFocus
J'ai 8 TextBox controlé par :
Private Sub COSF_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.COSF.Value > Me.CEQP + 5 Or Me.COSF < Me.CEQP Then
Me.COSF.SetFocus 'ne fonctionne pas
MsgBox "Dossord interdit"
Exit Sub
End If
End Sub
Nota : Au changement de TextBox par la touche Tab ou Enter, Tout fonctionne
sauf le Setfocus qui ne revient pas sur le TextBox erroné, mais sur
le TextBox suivant
Mes TextBox font partie d'une Frame
L'ordre des textbox est défini dans les propriété de Me
J'y perd mon latin !!
Merci d'avance
--
Cordialement
jpmonnier-no-spam@neuf.fr
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
lSteph
Bonjour, Peut-être ceci:
Private Sub COSF_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Me.COSF.Value = "" Then MsgBox "Saisir": Cancel = True: Exit Sub 'au cas où If Me.COSF.Value > Me.CEQP + 5 Or Me.COSF < Me.CEQP Then MsgBox "Dossord interdit": Cancel = True: Exit Sub end if end sub
'lSteph
On 1 juil, 10:20, "JPMonnier" wrote:
Bonjour, après mes ListBox, mes SetFocus J'ai 8 TextBox controlé par :
Private Sub COSF_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Me.COSF.Value > Me.CEQP + 5 Or Me.COSF < Me.CEQP Then Me.COSF.SetFocus 'ne fonctionne pas MsgBox "Dossord interdit" Exit Sub End If End Sub
Nota : Au changement de TextBox par la touche Tab ou Enter, Tout fonctionn e sauf le Setfocus qui ne revient pas sur le TextBox erroné, mais sur le TextBox suivant Mes TextBox font partie d'une Frame L'ordre des textbox est défini dans les propriété de Me J'y perd mon latin !! Merci d'avance -- Cordialement
Bonjour,
Peut-être ceci:
Private Sub COSF_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.COSF.Value = "" Then MsgBox "Saisir": Cancel = True: Exit Sub
'au cas où
If Me.COSF.Value > Me.CEQP + 5 Or Me.COSF < Me.CEQP Then
MsgBox "Dossord interdit": Cancel = True: Exit Sub
end if
end sub
'lSteph
On 1 juil, 10:20, "JPMonnier" <jpmonnier-nos...@neuf.fr> wrote:
Bonjour, après mes ListBox, mes SetFocus
J'ai 8 TextBox controlé par :
Private Sub COSF_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.COSF.Value > Me.CEQP + 5 Or Me.COSF < Me.CEQP Then
Me.COSF.SetFocus 'ne fonctionne pas
MsgBox "Dossord interdit"
Exit Sub
End If
End Sub
Nota : Au changement de TextBox par la touche Tab ou Enter, Tout fonctionn e
sauf le Setfocus qui ne revient pas sur le TextBox erroné, mais sur
le TextBox suivant
Mes TextBox font partie d'une Frame
L'ordre des textbox est défini dans les propriété de Me
J'y perd mon latin !!
Merci d'avance
--
Cordialement
jpmonnier-no-s...@neuf.fr
Private Sub COSF_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Me.COSF.Value = "" Then MsgBox "Saisir": Cancel = True: Exit Sub 'au cas où If Me.COSF.Value > Me.CEQP + 5 Or Me.COSF < Me.CEQP Then MsgBox "Dossord interdit": Cancel = True: Exit Sub end if end sub
'lSteph
On 1 juil, 10:20, "JPMonnier" wrote:
Bonjour, après mes ListBox, mes SetFocus J'ai 8 TextBox controlé par :
Private Sub COSF_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Me.COSF.Value > Me.CEQP + 5 Or Me.COSF < Me.CEQP Then Me.COSF.SetFocus 'ne fonctionne pas MsgBox "Dossord interdit" Exit Sub End If End Sub
Nota : Au changement de TextBox par la touche Tab ou Enter, Tout fonctionn e sauf le Setfocus qui ne revient pas sur le TextBox erroné, mais sur le TextBox suivant Mes TextBox font partie d'une Frame L'ordre des textbox est défini dans les propriété de Me J'y perd mon latin !! Merci d'avance -- Cordialement
JPMonnier
Merci LStheph, Ca marche, mais je ne récupère pas le focus sur ma TextBox (ME.COSF), c'est bien là que le problème persiste ! -- Cordialement
"lSteph" a écrit dans le message de news: Bonjour, Peut-être ceci:
Private Sub COSF_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Me.COSF.Value = "" Then MsgBox "Saisir": Cancel = True: Exit Sub 'au cas où If Me.COSF.Value > Me.CEQP + 5 Or Me.COSF < Me.CEQP Then MsgBox "Dossord interdit": Cancel = True: Exit Sub end if end sub
'lSteph
On 1 juil, 10:20, "JPMonnier" wrote:
Bonjour, après mes ListBox, mes SetFocus J'ai 8 TextBox controlé par :
Private Sub COSF_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Me.COSF.Value > Me.CEQP + 5 Or Me.COSF < Me.CEQP Then Me.COSF.SetFocus 'ne fonctionne pas MsgBox "Dossord interdit" Exit Sub End If End Sub
Nota : Au changement de TextBox par la touche Tab ou Enter, Tout fonctionne sauf le Setfocus qui ne revient pas sur le TextBox erroné, mais sur le TextBox suivant Mes TextBox font partie d'une Frame L'ordre des textbox est défini dans les propriété de Me J'y perd mon latin !! Merci d'avance -- Cordialement
Merci LStheph,
Ca marche, mais je ne récupère pas le focus sur ma TextBox (ME.COSF), c'est
bien là que le problème persiste !
--
Cordialement
jpmonnier-no-spam@neuf.fr
"lSteph" <gmLSteph@gmail.com> a écrit dans le message de
news:dffe2bd9-8b52-46bb-93d2-2e455915e04d@59g2000hsb.googlegroups.com...
Bonjour,
Peut-être ceci:
Private Sub COSF_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.COSF.Value = "" Then MsgBox "Saisir": Cancel = True: Exit Sub
'au cas où
If Me.COSF.Value > Me.CEQP + 5 Or Me.COSF < Me.CEQP Then
MsgBox "Dossord interdit": Cancel = True: Exit Sub
end if
end sub
'lSteph
On 1 juil, 10:20, "JPMonnier" <jpmonnier-nos...@neuf.fr> wrote:
Bonjour, après mes ListBox, mes SetFocus
J'ai 8 TextBox controlé par :
Private Sub COSF_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.COSF.Value > Me.CEQP + 5 Or Me.COSF < Me.CEQP Then
Me.COSF.SetFocus 'ne fonctionne pas
MsgBox "Dossord interdit"
Exit Sub
End If
End Sub
Nota : Au changement de TextBox par la touche Tab ou Enter, Tout
fonctionne
sauf le Setfocus qui ne revient pas sur le TextBox erroné, mais
sur
le TextBox suivant
Mes TextBox font partie d'une Frame
L'ordre des textbox est défini dans les propriété de Me
J'y perd mon latin !!
Merci d'avance
--
Cordialement
jpmonnier-no-s...@neuf.fr
Merci LStheph, Ca marche, mais je ne récupère pas le focus sur ma TextBox (ME.COSF), c'est bien là que le problème persiste ! -- Cordialement
"lSteph" a écrit dans le message de news: Bonjour, Peut-être ceci:
Private Sub COSF_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Me.COSF.Value = "" Then MsgBox "Saisir": Cancel = True: Exit Sub 'au cas où If Me.COSF.Value > Me.CEQP + 5 Or Me.COSF < Me.CEQP Then MsgBox "Dossord interdit": Cancel = True: Exit Sub end if end sub
'lSteph
On 1 juil, 10:20, "JPMonnier" wrote:
Bonjour, après mes ListBox, mes SetFocus J'ai 8 TextBox controlé par :
Private Sub COSF_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Me.COSF.Value > Me.CEQP + 5 Or Me.COSF < Me.CEQP Then Me.COSF.SetFocus 'ne fonctionne pas MsgBox "Dossord interdit" Exit Sub End If End Sub
Nota : Au changement de TextBox par la touche Tab ou Enter, Tout fonctionne sauf le Setfocus qui ne revient pas sur le TextBox erroné, mais sur le TextBox suivant Mes TextBox font partie d'une Frame L'ordre des textbox est défini dans les propriété de Me J'y perd mon latin !! Merci d'avance -- Cordialement
lSteph
??..Théoriquement, en invoquant le cancel on a pas besoin de récupèrer le focus sur le txtbox vu qu'en annulant ainsi le exit on ne l'a pas quitté!
Ou un truc m'échappe dans le contexte.
Cordialement.
-- lSteph
On 1 juil, 11:55, "JPMonnier" wrote:
Merci LStheph, Ca marche, mais je ne récupère pas le focus sur ma TextBox (ME.COSF), c'est bien là que le problème persiste ! -- Cordialement
"lSteph" a écrit dans le message denews:dffe2bd9-8 Bonjour, Peut-être ceci:
Private Sub COSF_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Me.COSF.Value = "" Then MsgBox "Saisir": Cancel = True: Exit Sub 'au cas où If Me.COSF.Value > Me.CEQP + 5 Or Me.COSF < Me.CEQP Then MsgBox "Dossord interdit": Cancel = True: Exit Sub end if end sub
'lSteph
On 1 juil, 10:20, "JPMonnier" wrote:
> Bonjour, après mes ListBox, mes SetFocus > J'ai 8 TextBox controlé par :
> Private Sub COSF_Exit(ByVal Cancel As MSForms.ReturnBoolean) > If Me.COSF.Value > Me.CEQP + 5 Or Me.COSF < Me.CEQP Then > Me.COSF.SetFocus 'ne fonctionne pas > MsgBox "Dossord interdit" > Exit Sub > End If > End Sub
> Nota : Au changement de TextBox par la touche Tab ou Enter, Tout > fonctionne > sauf le Setfocus qui ne revient pas sur le TextBox erroné, ma is > sur > le TextBox suivant > Mes TextBox font partie d'une Frame > L'ordre des textbox est défini dans les propriété de Me > J'y perd mon latin !! > Merci d'avance > -- > Cordialement >
??..Théoriquement, en invoquant le cancel on a pas besoin de
récupèrer le focus sur le txtbox vu qu'en annulant ainsi le exit on ne
l'a pas quitté!
Ou un truc m'échappe dans le contexte.
Cordialement.
--
lSteph
On 1 juil, 11:55, "JPMonnier" <jpmonnier-nos...@neuf.fr> wrote:
Merci LStheph,
Ca marche, mais je ne récupère pas le focus sur ma TextBox (ME.COSF), c'est
bien là que le problème persiste !
--
Cordialement
jpmonnier-no-s...@neuf.fr
"lSteph" <gmLSt...@gmail.com> a écrit dans le message denews:dffe2bd9-8 b52-46bb-93d2-2e455915e04d@59g2000hsb.googlegroups.com...
Bonjour,
Peut-être ceci:
Private Sub COSF_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.COSF.Value = "" Then MsgBox "Saisir": Cancel = True: Exit Sub
'au cas où
If Me.COSF.Value > Me.CEQP + 5 Or Me.COSF < Me.CEQP Then
MsgBox "Dossord interdit": Cancel = True: Exit Sub
end if
end sub
'lSteph
On 1 juil, 10:20, "JPMonnier" <jpmonnier-nos...@neuf.fr> wrote:
> Bonjour, après mes ListBox, mes SetFocus
> J'ai 8 TextBox controlé par :
> Private Sub COSF_Exit(ByVal Cancel As MSForms.ReturnBoolean)
> If Me.COSF.Value > Me.CEQP + 5 Or Me.COSF < Me.CEQP Then
> Me.COSF.SetFocus 'ne fonctionne pas
> MsgBox "Dossord interdit"
> Exit Sub
> End If
> End Sub
> Nota : Au changement de TextBox par la touche Tab ou Enter, Tout
> fonctionne
> sauf le Setfocus qui ne revient pas sur le TextBox erroné, ma is
> sur
> le TextBox suivant
> Mes TextBox font partie d'une Frame
> L'ordre des textbox est défini dans les propriété de Me
> J'y perd mon latin !!
> Merci d'avance
> --
> Cordialement
> jpmonnier-no-s...@neuf.fr
??..Théoriquement, en invoquant le cancel on a pas besoin de récupèrer le focus sur le txtbox vu qu'en annulant ainsi le exit on ne l'a pas quitté!
Ou un truc m'échappe dans le contexte.
Cordialement.
-- lSteph
On 1 juil, 11:55, "JPMonnier" wrote:
Merci LStheph, Ca marche, mais je ne récupère pas le focus sur ma TextBox (ME.COSF), c'est bien là que le problème persiste ! -- Cordialement
"lSteph" a écrit dans le message denews:dffe2bd9-8 Bonjour, Peut-être ceci:
Private Sub COSF_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Me.COSF.Value = "" Then MsgBox "Saisir": Cancel = True: Exit Sub 'au cas où If Me.COSF.Value > Me.CEQP + 5 Or Me.COSF < Me.CEQP Then MsgBox "Dossord interdit": Cancel = True: Exit Sub end if end sub
'lSteph
On 1 juil, 10:20, "JPMonnier" wrote:
> Bonjour, après mes ListBox, mes SetFocus > J'ai 8 TextBox controlé par :
> Private Sub COSF_Exit(ByVal Cancel As MSForms.ReturnBoolean) > If Me.COSF.Value > Me.CEQP + 5 Or Me.COSF < Me.CEQP Then > Me.COSF.SetFocus 'ne fonctionne pas > MsgBox "Dossord interdit" > Exit Sub > End If > End Sub
> Nota : Au changement de TextBox par la touche Tab ou Enter, Tout > fonctionne > sauf le Setfocus qui ne revient pas sur le TextBox erroné, ma is > sur > le TextBox suivant > Mes TextBox font partie d'une Frame > L'ordre des textbox est défini dans les propriété de Me > J'y perd mon latin !! > Merci d'avance > -- > Cordialement >
JPMonnier
Tu as forcémént raison rien ne t'échappe ! Alors,le comble, sur mes 8 textbox, les 2 (1er et 2ème) fonctionnent nickel, les 6 autres fonctionnent pour la valeur hors limites, mais ne fonctionnent pas si je frappe tab ! ils passent au textbox suivant en ignorant le vide!! j'ai supprimé ceux qui ne fonctionnent pas, et les ai recréé, toujours pareil ! avec des noms différents ! Au secours ! -- Cordialement
"lSteph" a écrit dans le message de news: ??..Théoriquement, en invoquant le cancel on a pas besoin de récupèrer le focus sur le txtbox vu qu'en annulant ainsi le exit on ne l'a pas quitté!
Ou un truc m'échappe dans le contexte.
Cordialement.
-- lSteph
On 1 juil, 11:55, "JPMonnier" wrote:
Merci LStheph, Ca marche, mais je ne récupère pas le focus sur ma TextBox (ME.COSF), c'est bien là que le problème persiste ! -- Cordialement
"lSteph" a écrit dans le message denews: Bonjour, Peut-être ceci:
Private Sub COSF_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Me.COSF.Value = "" Then MsgBox "Saisir": Cancel = True: Exit Sub 'au cas où If Me.COSF.Value > Me.CEQP + 5 Or Me.COSF < Me.CEQP Then MsgBox "Dossord interdit": Cancel = True: Exit Sub end if end sub
'lSteph
On 1 juil, 10:20, "JPMonnier" wrote:
> Bonjour, après mes ListBox, mes SetFocus > J'ai 8 TextBox controlé par :
> Private Sub COSF_Exit(ByVal Cancel As MSForms.ReturnBoolean) > If Me.COSF.Value > Me.CEQP + 5 Or Me.COSF < Me.CEQP Then > Me.COSF.SetFocus 'ne fonctionne pas > MsgBox "Dossord interdit" > Exit Sub > End If > End Sub
> Nota : Au changement de TextBox par la touche Tab ou Enter, Tout > fonctionne > sauf le Setfocus qui ne revient pas sur le TextBox erroné, mais > sur > le TextBox suivant > Mes TextBox font partie d'une Frame > L'ordre des textbox est défini dans les propriété de Me > J'y perd mon latin !! > Merci d'avance > -- > Cordialement >
Tu as forcémént raison rien ne t'échappe !
Alors,le comble, sur mes 8 textbox, les 2 (1er et 2ème) fonctionnent nickel,
les 6 autres fonctionnent pour la valeur hors limites, mais ne fonctionnent
pas si je frappe tab ! ils passent au textbox suivant en ignorant le vide!!
j'ai supprimé ceux qui ne fonctionnent pas, et les ai recréé, toujours
pareil ! avec des noms différents !
Au secours !
--
Cordialement
jpmonnier-no-spam@neuf.fr
"lSteph" <gmLSteph@gmail.com> a écrit dans le message de
news:4d45b996-47ff-4048-a8d4-ac2f51bd53bd@59g2000hsb.googlegroups.com...
??..Théoriquement, en invoquant le cancel on a pas besoin de
récupèrer le focus sur le txtbox vu qu'en annulant ainsi le exit on ne
l'a pas quitté!
Ou un truc m'échappe dans le contexte.
Cordialement.
--
lSteph
On 1 juil, 11:55, "JPMonnier" <jpmonnier-nos...@neuf.fr> wrote:
Merci LStheph,
Ca marche, mais je ne récupère pas le focus sur ma TextBox (ME.COSF),
c'est
bien là que le problème persiste !
--
Cordialement
jpmonnier-no-s...@neuf.fr
"lSteph" <gmLSt...@gmail.com> a écrit dans le message
denews:dffe2bd9-8b52-46bb-93d2-2e455915e04d@59g2000hsb.googlegroups.com...
Bonjour,
Peut-être ceci:
Private Sub COSF_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.COSF.Value = "" Then MsgBox "Saisir": Cancel = True: Exit Sub
'au cas où
If Me.COSF.Value > Me.CEQP + 5 Or Me.COSF < Me.CEQP Then
MsgBox "Dossord interdit": Cancel = True: Exit Sub
end if
end sub
'lSteph
On 1 juil, 10:20, "JPMonnier" <jpmonnier-nos...@neuf.fr> wrote:
> Bonjour, après mes ListBox, mes SetFocus
> J'ai 8 TextBox controlé par :
> Private Sub COSF_Exit(ByVal Cancel As MSForms.ReturnBoolean)
> If Me.COSF.Value > Me.CEQP + 5 Or Me.COSF < Me.CEQP Then
> Me.COSF.SetFocus 'ne fonctionne pas
> MsgBox "Dossord interdit"
> Exit Sub
> End If
> End Sub
> Nota : Au changement de TextBox par la touche Tab ou Enter, Tout
> fonctionne
> sauf le Setfocus qui ne revient pas sur le TextBox erroné, mais
> sur
> le TextBox suivant
> Mes TextBox font partie d'une Frame
> L'ordre des textbox est défini dans les propriété de Me
> J'y perd mon latin !!
> Merci d'avance
> --
> Cordialement
> jpmonnier-no-s...@neuf.fr
Tu as forcémént raison rien ne t'échappe ! Alors,le comble, sur mes 8 textbox, les 2 (1er et 2ème) fonctionnent nickel, les 6 autres fonctionnent pour la valeur hors limites, mais ne fonctionnent pas si je frappe tab ! ils passent au textbox suivant en ignorant le vide!! j'ai supprimé ceux qui ne fonctionnent pas, et les ai recréé, toujours pareil ! avec des noms différents ! Au secours ! -- Cordialement
"lSteph" a écrit dans le message de news: ??..Théoriquement, en invoquant le cancel on a pas besoin de récupèrer le focus sur le txtbox vu qu'en annulant ainsi le exit on ne l'a pas quitté!
Ou un truc m'échappe dans le contexte.
Cordialement.
-- lSteph
On 1 juil, 11:55, "JPMonnier" wrote:
Merci LStheph, Ca marche, mais je ne récupère pas le focus sur ma TextBox (ME.COSF), c'est bien là que le problème persiste ! -- Cordialement
"lSteph" a écrit dans le message denews: Bonjour, Peut-être ceci:
Private Sub COSF_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Me.COSF.Value = "" Then MsgBox "Saisir": Cancel = True: Exit Sub 'au cas où If Me.COSF.Value > Me.CEQP + 5 Or Me.COSF < Me.CEQP Then MsgBox "Dossord interdit": Cancel = True: Exit Sub end if end sub
'lSteph
On 1 juil, 10:20, "JPMonnier" wrote:
> Bonjour, après mes ListBox, mes SetFocus > J'ai 8 TextBox controlé par :
> Private Sub COSF_Exit(ByVal Cancel As MSForms.ReturnBoolean) > If Me.COSF.Value > Me.CEQP + 5 Or Me.COSF < Me.CEQP Then > Me.COSF.SetFocus 'ne fonctionne pas > MsgBox "Dossord interdit" > Exit Sub > End If > End Sub
> Nota : Au changement de TextBox par la touche Tab ou Enter, Tout > fonctionne > sauf le Setfocus qui ne revient pas sur le TextBox erroné, mais > sur > le TextBox suivant > Mes TextBox font partie d'une Frame > L'ordre des textbox est défini dans les propriété de Me > J'y perd mon latin !! > Merci d'avance > -- > Cordialement >
JPMonnier
Steph, mes excuses les plus plates pour le dérangement ! Mes 2 TextBox qui fonctionnaient était en Exit(ByVal Cancel As MSForms.ReturnBoolean) Les autres étaient en Change() !
Ane que je suis ! Encore merci -- Cordialement
"lSteph" a écrit dans le message de news: ??..Théoriquement, en invoquant le cancel on a pas besoin de récupèrer le focus sur le txtbox vu qu'en annulant ainsi le exit on ne l'a pas quitté!
Ou un truc m'échappe dans le contexte.
Cordialement.
-- lSteph
On 1 juil, 11:55, "JPMonnier" wrote:
Merci LStheph, Ca marche, mais je ne récupère pas le focus sur ma TextBox (ME.COSF), c'est bien là que le problème persiste ! -- Cordialement
"lSteph" a écrit dans le message denews: Bonjour, Peut-être ceci:
Private Sub COSF_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Me.COSF.Value = "" Then MsgBox "Saisir": Cancel = True: Exit Sub 'au cas où If Me.COSF.Value > Me.CEQP + 5 Or Me.COSF < Me.CEQP Then MsgBox "Dossord interdit": Cancel = True: Exit Sub end if end sub
'lSteph
On 1 juil, 10:20, "JPMonnier" wrote:
> Bonjour, après mes ListBox, mes SetFocus > J'ai 8 TextBox controlé par :
> Private Sub COSF_Exit(ByVal Cancel As MSForms.ReturnBoolean) > If Me.COSF.Value > Me.CEQP + 5 Or Me.COSF < Me.CEQP Then > Me.COSF.SetFocus 'ne fonctionne pas > MsgBox "Dossord interdit" > Exit Sub > End If > End Sub
> Nota : Au changement de TextBox par la touche Tab ou Enter, Tout > fonctionne > sauf le Setfocus qui ne revient pas sur le TextBox erroné, mais > sur > le TextBox suivant > Mes TextBox font partie d'une Frame > L'ordre des textbox est défini dans les propriété de Me > J'y perd mon latin !! > Merci d'avance > -- > Cordialement >
Steph, mes excuses les plus plates pour le dérangement !
Mes 2 TextBox qui fonctionnaient était en Exit(ByVal Cancel As
MSForms.ReturnBoolean)
Les autres étaient en Change() !
Ane que je suis !
Encore merci
--
Cordialement
jpmonnier-no-spam@neuf.fr
"lSteph" <gmLSteph@gmail.com> a écrit dans le message de
news:4d45b996-47ff-4048-a8d4-ac2f51bd53bd@59g2000hsb.googlegroups.com...
??..Théoriquement, en invoquant le cancel on a pas besoin de
récupèrer le focus sur le txtbox vu qu'en annulant ainsi le exit on ne
l'a pas quitté!
Ou un truc m'échappe dans le contexte.
Cordialement.
--
lSteph
On 1 juil, 11:55, "JPMonnier" <jpmonnier-nos...@neuf.fr> wrote:
Merci LStheph,
Ca marche, mais je ne récupère pas le focus sur ma TextBox (ME.COSF),
c'est
bien là que le problème persiste !
--
Cordialement
jpmonnier-no-s...@neuf.fr
"lSteph" <gmLSt...@gmail.com> a écrit dans le message
denews:dffe2bd9-8b52-46bb-93d2-2e455915e04d@59g2000hsb.googlegroups.com...
Bonjour,
Peut-être ceci:
Private Sub COSF_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.COSF.Value = "" Then MsgBox "Saisir": Cancel = True: Exit Sub
'au cas où
If Me.COSF.Value > Me.CEQP + 5 Or Me.COSF < Me.CEQP Then
MsgBox "Dossord interdit": Cancel = True: Exit Sub
end if
end sub
'lSteph
On 1 juil, 10:20, "JPMonnier" <jpmonnier-nos...@neuf.fr> wrote:
> Bonjour, après mes ListBox, mes SetFocus
> J'ai 8 TextBox controlé par :
> Private Sub COSF_Exit(ByVal Cancel As MSForms.ReturnBoolean)
> If Me.COSF.Value > Me.CEQP + 5 Or Me.COSF < Me.CEQP Then
> Me.COSF.SetFocus 'ne fonctionne pas
> MsgBox "Dossord interdit"
> Exit Sub
> End If
> End Sub
> Nota : Au changement de TextBox par la touche Tab ou Enter, Tout
> fonctionne
> sauf le Setfocus qui ne revient pas sur le TextBox erroné, mais
> sur
> le TextBox suivant
> Mes TextBox font partie d'une Frame
> L'ordre des textbox est défini dans les propriété de Me
> J'y perd mon latin !!
> Merci d'avance
> --
> Cordialement
> jpmonnier-no-s...@neuf.fr
Steph, mes excuses les plus plates pour le dérangement ! Mes 2 TextBox qui fonctionnaient était en Exit(ByVal Cancel As MSForms.ReturnBoolean) Les autres étaient en Change() !
Ane que je suis ! Encore merci -- Cordialement
"lSteph" a écrit dans le message de news: ??..Théoriquement, en invoquant le cancel on a pas besoin de récupèrer le focus sur le txtbox vu qu'en annulant ainsi le exit on ne l'a pas quitté!
Ou un truc m'échappe dans le contexte.
Cordialement.
-- lSteph
On 1 juil, 11:55, "JPMonnier" wrote:
Merci LStheph, Ca marche, mais je ne récupère pas le focus sur ma TextBox (ME.COSF), c'est bien là que le problème persiste ! -- Cordialement
"lSteph" a écrit dans le message denews: Bonjour, Peut-être ceci:
Private Sub COSF_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Me.COSF.Value = "" Then MsgBox "Saisir": Cancel = True: Exit Sub 'au cas où If Me.COSF.Value > Me.CEQP + 5 Or Me.COSF < Me.CEQP Then MsgBox "Dossord interdit": Cancel = True: Exit Sub end if end sub
'lSteph
On 1 juil, 10:20, "JPMonnier" wrote:
> Bonjour, après mes ListBox, mes SetFocus > J'ai 8 TextBox controlé par :
> Private Sub COSF_Exit(ByVal Cancel As MSForms.ReturnBoolean) > If Me.COSF.Value > Me.CEQP + 5 Or Me.COSF < Me.CEQP Then > Me.COSF.SetFocus 'ne fonctionne pas > MsgBox "Dossord interdit" > Exit Sub > End If > End Sub
> Nota : Au changement de TextBox par la touche Tab ou Enter, Tout > fonctionne > sauf le Setfocus qui ne revient pas sur le TextBox erroné, mais > sur > le TextBox suivant > Mes TextBox font partie d'une Frame > L'ordre des textbox est défini dans les propriété de Me > J'y perd mon latin !! > Merci d'avance > -- > Cordialement >
LSteph
Bonsoir JP,
> Ane que je suis !
;-) Bienvenue au troupeau!
On galère encore mieux sur un truc tout simple, juste et précisément quand on ne l'a pas vu.
@+
-- lSteph
JPMonnier a écrit :
Steph, mes excuses les plus plates pour le dérangement ! Mes 2 TextBox qui fonctionnaient était en Exit(ByVal Cancel As MSForms.ReturnBoolean) Les autres étaient en Change() !
Ane que je suis ! Encore merci
Bonsoir JP,
> Ane que je suis !
;-) Bienvenue au troupeau!
On galère encore mieux sur un truc tout simple, juste et précisément
quand on ne l'a pas vu.
@+
--
lSteph
JPMonnier a écrit :
Steph, mes excuses les plus plates pour le dérangement !
Mes 2 TextBox qui fonctionnaient était en Exit(ByVal Cancel As
MSForms.ReturnBoolean)
Les autres étaient en Change() !
On galère encore mieux sur un truc tout simple, juste et précisément quand on ne l'a pas vu.
@+
-- lSteph
JPMonnier a écrit :
Steph, mes excuses les plus plates pour le dérangement ! Mes 2 TextBox qui fonctionnaient était en Exit(ByVal Cancel As MSForms.ReturnBoolean) Les autres étaient en Change() !