OVH Cloud OVH Cloud

Un petit problème

2 réponses
Avatar
Loic
Bonsoir,

Je ne sais pas comment faire pour résoudre le problème suivant :

J'ai une interface graphique qui contient deux intitulés (C1, C2) et deux
zones de texte (T1, T2) associées respectivement à C1 & C2.
Le passage de T1 à T2 peut se faire par simple tabulation.

Lorsque je renseigne T1, un contrôle sur la longueur de la valeur à saisir
est fait. Mais avant de passer à T2 via la souris ou la tabulation, je fait
ledit contrôle et si jamais le résultat est négatif, j'affiche un message
d'alerte pour dire "attention, la valeur saisie n'est pas bonne".

Bref, je voudrais interdire tout passage de T1 à T2 via la souris ou la
tabulation tant que T1 n'est pas bien renseigné.

Merci pour vos réponses

2 réponses

Avatar
Vincent.
Salut
Je ne sais pas si ça fera l'affaire (pas sûr d'avoir tout
compris encore une fois moi), mais tu peux après avoir
fait apparaître la msgbox disant que la valeur saisie
n'était pas valide, redonner le focus au textbox faux avec
la méthode Tx.SetFocus.
Tout simplement...


-----Message d'origine-----
Bonsoir,

Je ne sais pas comment faire pour résoudre le problème
suivant :


J'ai une interface graphique qui contient deux intitulés
(C1, C2) et deux

zones de texte (T1, T2) associées respectivement à C1 &
C2.

Le passage de T1 à T2 peut se faire par simple tabulation.

Lorsque je renseigne T1, un contrôle sur la longueur de
la valeur à saisir

est fait. Mais avant de passer à T2 via la souris ou la
tabulation, je fait

ledit contrôle et si jamais le résultat est négatif,
j'affiche un message

d'alerte pour dire "attention, la valeur saisie n'est pas
bonne".


Bref, je voudrais interdire tout passage de T1 à T2 via
la souris ou la

tabulation tant que T1 n'est pas bien renseigné.

Merci pour vos réponses







.



Avatar
Ellimac
Bonjour,

Une procédure sue sortie du TextBox1 et une sur entrée du
TextBox2 qui renvoie sur le 1er si dépassement.

Private Sub TextBox1_Exit(ByVal Cancel As
MSForms.ReturnBoolean)
If Len(TextBox1) > 5 Then MsgBox "Trop long!!!!"
End Sub

Private Sub TextBox2_Enter()
If Len(TextBox1) > 5 Then TextBox1.SetFocus
End Sub

Camille

-----Message d'origine-----
Bonsoir,

Je ne sais pas comment faire pour résoudre le problème
suivant :


J'ai une interface graphique qui contient deux intitulés
(C1, C2) et deux

zones de texte (T1, T2) associées respectivement à C1 &
C2.

Le passage de T1 à T2 peut se faire par simple tabulation.

Lorsque je renseigne T1, un contrôle sur la longueur de
la valeur à saisir

est fait. Mais avant de passer à T2 via la souris ou la
tabulation, je fait

ledit contrôle et si jamais le résultat est négatif,
j'affiche un message

d'alerte pour dire "attention, la valeur saisie n'est pas
bonne".


Bref, je voudrais interdire tout passage de T1 à T2 via
la souris ou la

tabulation tant que T1 n'est pas bien renseigné.

Merci pour vos réponses







.