Discussion :

[Rogeure]

Bonjour,

Je souhaiterais avoir le focus dans la TxtBoxNISB mais avec l'instruction setfocus cela ne fonctionne pas....

Quelqu'un pourrait-il m'aider ?

Merci d'avance.


--- Mon code ---

Code :

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

1
2
3
4
5
6
7
8
9
10
'Vérification du numèro d'ISBN
Private Sub TxtBoxNISB_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
'Si le nombre de chiffres dans la TxtBoxNISB n'est pas égal à 10 ou à 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"
TxtBoxNISB.setfocus
End If
End Sub

[rvtoulon]

Bonjour,
essai en rajoutant cancel = True :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub TxtBoxNISB_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
'Si le nombre de chiffres dans la TxtBoxNISB n'est pas égal à 10 ou à 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
End Sub

[Rogeure]

Bonsoir,

Merci RVTOULON pour ta réponse. J'ai déjà testé avec Cancel=true mais je trouve cette solution un peu trop "radicale".
En effet, l'utilisateur est bloqué à travers cette solution, il ne peut pas sortir de la TxtBoxNISB ni même fermer la userform.

[casefayere]

Bonsoir,

la condition, si je comprends est "ou", alors il faut déjà corriger cette ligne :

Code :

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

1
2
'Si le nombre de chiffres dans la TxtBoxNISB n'est pas égal à 10 ou à 13
If Len(TxtBoxNISB.Value) <> 10 or Len(TxtBoxNISB.Value) <> 13 Then

Bonne soirée

[Rogeure]

Desole mais mon probleme ne porte que sur le fait de mettre le focus dans la TxtBoxNISB
Merci quand meme

[casefayere]

Une idée, au hasard
je ne sais pas quel est le controle suivant mais en imaginant que c'est un TextBox nommé "TextBox1"

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub TextBox1_Enter()
If Len(TxtBoxNISB.Value) <> 10 Then
 If Len(TxtBoxNISB.Value) <> 13 Then
    Beep
    MsgBox "Le numèro ISBN doit être une valeur numèrique de 10 ou 13 chiffres !", , "NUMERO ISBN"
    TxtBoxNISB.SetFocus
  End If
End If
End Sub

ça pourrait pallier à ton problème mais je doute que ça soit ce que tu cherches