Focus dans une txtbox

Version imprimable

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:

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

Bonjour,
essai en rajoutant cancel = True :

Code:

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

10/06/2013, 20h09
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.

Bonsoir,

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

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

10/06/2013, 22h44
Rogeure

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

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:

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

11/06/2013, 13h00
Rogeure

Bonjour,

En effet, ce n'est pas ce que je recherche.

Merci pour ta réponse qui était pertinente.