Sortir d'une textbox

Version imprimable

Bonjour,

J'utilise une textbox pour obliger l'utilisateur à saisir une valeur de 10 et 13 caractères.

J'aimerais toutefois que l'utilisateur puisse cliquer sur un bouton de commande (FERMER) s'il a commencé la saisie mais qu'il change d'avis, à savoir, ressaisir ce numéro un autre jour.

L'histoire de l'arroseur arrosé :P

Merci pour votre réponse et bonne journée.
Code:

1 2 3 4 5 6 7 8 9 'Vérification du numéro d'ISBN (10 ou 13 chiffres) Private Sub TxtBoxNISB_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) 'Si le nombre de chiffres dans la TxtBoxNISN n'est pas égal à 10 et à 13 If Len(TxtBoxNISB.Value) <> 10 And Len(TxtBoxNISB.Value) <> 13 Then 'Emettre un bip et afficher un message d'erreur Beep MsgBox "Le numéro ISBN doit être une valeur numérique de 10 ou 13 chiffres !", , "NUMERO ISBN" Cancel = True End If

19/07/2013, 08h50
Invité

Bonjour,

Juste comme ça, je passe par hazard.
~~Je suis entrain de me demander si la condition "ET" ne devrai pas être une condition "OU" ?~~ Je n'ai rien dis :D
19/07/2013, 08h53
Rogeure

Bonjour,

Merci pour ta réponse mais c'est bien un ET qu'il faut.

Mais mon problème ne vient pas de là mais du fait qu'il me faille sortir de ma textbox pour cliquer sur un bouton FERMER

Bonjour, test ça

Code:

If MsgBox("Le numéro ISBN doit être une valeur numérique de 10 ou 13 chiffres !", vbYesNo, "NUMERO ISBN") = vbYes Then Cancel = True

Code:

1
2
3
4
5
6
If trim("" & TxtBoxNISB=<>"" and (Len(TxtBoxNISB.Value) < 10 OR Len(TxtBoxNISB.Value) > 13 ) Then
    'Emettre un bip et afficher un message d'erreur
    Beep
    MsgBox "Le numéro ISBN doit être une valeur numérique de 10 ou 13 chiffres !", , "NUMERO ISBN"
    Cancel = True
End If

panachage des 2:
I

Code:

1
2
3
4
5
f trim("" & TxtBoxNISB=<>"" and (Len(TxtBoxNISB.Value) < 10 OR Len(TxtBoxNISB.Value) > 13 ) Then
    'Emettre un bip et afficher un message d'erreur
    Beep
   If MsgBox("Le numéro ISBN doit être une valeur numérique de 10 ou 13 chiffres !" & vbCrLf & "Voulez-vous le faire quand même.", vbYesNo + vbQuestion, "NUMERO ISBN") = vbYes Then Cancel = True
End If

19/07/2013, 09h40
Rogeure

Bonjour rdurupt,

Merci pour ta réponse mais je ne souhaite pas que l'utilisateur ait le choix de la longueur de sa saisie.

En lui permettant de sortir de cette "satanée" textbox, il cliquera sur le bouton FERMER qui annulera sa saisie et fermera la boîte de dialogue.
19/07/2013, 09h48
Invité

1 pièce(s) jointe(s)

dans cas, ne fais pas ton contrôle dans TxtBoxNISB_BeforeUpdate, mais sur le bouton valider: donc si il valide le message apparait, si il ferme rien ne s’affiche!
19/07/2013, 10h14
Didier Gonard

Bonjour,

Les Textbox ont une propriété MaxLength qui sert justement à définir de façon native le nombre maxi de caractères quelles peuvent contenir…

Si, comme ta question au niveau du bouton quitter semble le sous-entendre, tu utilises un USF juste pour demander le N° ISBN, l’outil le plus approprié serait d’utiliser la Méthode InputBox de l’objet Application qui par défaut :
- Te permet de définir que c’est un nombre qui est attendu en saisie et envoie un message d'erreur sinon.
- Comporte un bouton Annuler.

cordialement,

Didier
19/07/2013, 10h55
Rogeure

Effectivement rdurupt, tu as raison, je m'obstine à vérifier la saisie à la sortie de la textbox alors que je peux le faire à la sortie de la boite de dialogue.

Merci pour ton idée et bonne journée.

Bonjour Ormonth,

Merci pour ta réponses mais je n'utilise pas mon USF uniquement avec une seule textbox mais avec plusieurs.

Merci pour ta réponse et bonne journée.