Discussion :

[cheuch]

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 :

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

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.

[ucfoutu]

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

Dis-nous....

[ouskel'n'or]

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

Code :

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

Cancel = True

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

Code :

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

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+

[cheuch]

Merci beaucoup c'est exctement ce que je voulais faire

A plus

[ouskel'n'or]

Si ça fonctionne comme tu veux, un petit clic sur ste plait