probleme avec setfocus

Bonjour à tous,

je doit réaliser un formulaire de saisie sous Excel et mettre plusieurs contrôles sur les textbox pour vérifier la longueur de ce qui est saisie. J'arrive à réaliser le controle mais j'aimerais que une fois que le controle est fait il retourne dans la textbox souhaité, et c'est là que ça coince. Y a t il un probleme avec le setfocus.

Voila mon bout de code : (reference est le nom de ma textbox)

Code:

---

1 2 3 4 5 6 7

Private Sub Reference_AfterUpdate() If Len(Reference.Text) <> 7 Then MsgBox "La référence Client doit être sur 7 caractères" Reference.SetFocus   End If End Sub

---

Merci de bien vouloir me donner un coup de main.

Bonjour,

une seule question (et elle est loin d'être anodine) :

as-tu ce genre de contrôle également dans la textbox suivante ? (dans l'odre du taborder)

Edit : si ce que je pense est vrai, tu te retrouves dans une situation bien connue, du genre de celle relatée ici :
http://support.microsoft.com/search/...og=LCID%3D1036

La solution ne peut alors qu'être le résultat d'une acrobatie assez drôle (un peu folle, même ...:lol:)

Dis-nous....

Utilise l'événement Exit (à la place de AfterUpdate) et si la longueur est <> de 7, tu mets

Code:

---

Cancel = True

---

Cela empêche de quitter le textbox
Tu peux mettre un "échappatoire" en mettant

Code:

---

Cancel = Len(Reference.Text) = 7 or Reference.Text = ""

---

enfin, tu peux vérifier si ce sont des chiffres ou des lettres avec like -> F1
A+

Merci beaucoup c'est exctement ce que je voulais faire

A plus

Si ça fonctionne comme tu veux, un petit clic sur :resolu: ste plait ;)