Discussion :

[cheuch]

Bonjour à tous,

Je suis en train de developpez une petite application sous excel en utilisant un formulaire. Sur chaque valeur rentrer dans une textBox, je fais un control pour verifier si la valeur saisi à le bon nombre de caractere.

Si ce n'est pas le cas je veut que la valeur rentrer précédemment dans la textbox soit effacer et que ensuite le curseur vienne se placer directement dans cette textbox.

J'ai trouver une solution avec setfocus mais le curseur va dans le champ suivant.

Je vous mets un bout de code :

Code :

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

1
2
3
4
5
6
7
Private Sub TextBox1_AfterUpdate()
Reference = TextBox1.Text
    If Len(Reference) <> 8 Then
        MsgBox "La référence Client doit être sur 8 caractères"
        TextBox1.SetFocus
    End If
End Sub

Si quelqun veut bien m'aider ...

Merci d'avance.

Cheuch

[jfontaine]

En effet, même problème sur l'évenement exit
Pas trouvé de solution.

[jfontaine]

Tu peux essayer ca, mais la tu ne peux sortir de la textbox1 que s'il y a 8 caractères dedans

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox1.Text) <> 8 Then
 
    MsgBox "8 caractères"
    Cancel = True
 
End If
End Sub

[AlainTech]

Il n'y a que 2 événements qui permettent d'annuler la sortie:
BeforeUpdate et Exit.

Le traitement se fait, comme l'a montré jfontaine, en positionnant Cancel à True.