Discussion :

[Rogeure]

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é

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[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

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[Invité]

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!

[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

[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.