Setfocus

Le
JPMonnier
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
lSteph
Le #11160841
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"
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
Le #11161261
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" 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"
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
Le #11162341
??..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"
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" 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"
> 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
Le #11162721
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" 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"
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" 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"
> 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
Le #11162941
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" 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"
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" 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"
> 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
Le #11166121
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


Publicité
Poster une réponse
Anonyme