sélectionner TextBox

[JC de Lorient]

Bonsoir le forum,

voilà j'ai une série de Textbox de 1 a 10
je fais un test sue le 1 si text Ok on passe au deux
Or j'aimerais que si le test n'est pas bon que mon curseur reste sur le TextBox1 car chez moi il passe au 2ème
g essaye TextBox1.setfocus mé a priori c pas ça

merci pour l'aide
JC

 

[JC de Lorient]

Re
merci Jmps
mé résultat inchangé
je te mets mon bout de code pour voir ce qui est faisable

For y = 1 To Len(TextBox1)
If Mid(TextBox1, y, 1) = ' ' Then
MsgBox 'Chiffres sans espace S.V.P. Recommencez la saisie !', vbCritical, 'ATTENTION'
TextBox1 = ''
Cancel = True
TextBox1.SetFocus
Exit Sub
End If
Next

 

[JC de Lorient]

re

j'ai cette macro dans un Private Sub TextBox1_AfterUpdate()

merci encore