SAlut,

ce code permet de limiter une textbox a 6 caracteres.

Private Sub txtjoueur1_KeyUp(KeyCode As Integer, Shift As Integer)
If Len(txtjoueur1.Text) > 6 Then
txtjoueur1.Text = Left(txtjoueur1.Text, 6)
End If
End Sub

le probleme c´est que lorsque je fait le txtjoueur1.Text = Left(txtjoueur1.Text, 6), le focus retourne au debut donc le resultat n´est pas bon.

donc comment faire pour que le focus retourne automatiquement a la fin svp.

c´est assez urgent svp aidez moi.

merci d´avance.

Il faut ajouter
txtjoueur1.setfocus
je pense

Enfin je suis pas sûre d´avoir compris ce que tu veux faire... tu peux détailler ?

Sinon tu ne voulais pas utilisé la propriété maxlength ?

non le txtjoueur1.setfocus met aussi le focus au debut mais de toute maniere j´ai trouvé.

je ne savais pas qu´il y avait une propriété maxlength mais de toute maniere je doit faire du code.

voila ce que j´ai fait :

Private Sub txtjoueur1_KeyPress(KeyAscii As Integer)
If ( KeyAscii < > 8) Then / /autorise la touche del
If ( Len(txtjoueur1.Text) > 6) Then
KeyAscii = 0
End If
End If
End Sub

ça marche mieux avec un keypress qu´avec un keyup. Car il n´y a pas besoin d´effacer, il suffit de mettre KeyAscii = 0.

Tant mieux

merci quand meme

c´est pas beau.
c´est bien mieux de mettre text1.SelStart=6 ce qui place le point d´insertion à la fin.

Mais je ne vois pas ce que ta question avait d´urgent.

bah je doit finir un programme pour demain, c´est pour ça que c´étais urgent.

mais merci pour le truc du selstart je connaissais pas.