Curseur focus

JSCH19 Messages postés 128 Date d'inscription   Statut Membre Dernière intervention   -  
JSCH19 Messages postés 128 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour le forum, je suis dans l'incapacite de garder le focus a un endroit precis apres avoir effacer un chiffre dans un textbox
ex:
imaginez que j'ai comme nombre 123456789
et que j'efface 3 j'aimerais garder le focus apres 2 mais le focus se met jusqu'a l'arriere.

If Me.Txt_quantite.SelStart = 0 Then
Me.Txt_quantite = Left(Me.Txt_quantite, Len(Me.Txt_quantite) - 1)
Else
Me.Txt_quantite = Left(Me.Txt_quantite, Me.Txt_quantite.SelStart - 1) & Mid(Me.Txt_quantite, Me.Txt_quantite.SelStart + 1)

Me.Txt_quantite.SetFocus
End If
A voir également:

2 réponses

Utilisateur anonyme
 
Bonjour à tous les 2

si je comprends bien, la suppression dépend de la position initiale du curseur et à la fin ce curseur doit être au même endroit.

Dans ce cas, ceci devrait fonctionner
Dim position As Integer
position = Me.Txt_quantite.SelStart 'on sauvegarde la position initiale

If position = 0 Then
Me.Txt_quantite = Left(Me.Txt_quantite, Len(Me.Txt_quantite) - 1)
Else
Me.Txt_quantite = Left(Me.Txt_quantite, position - 1) & Mid(Me.Txt_quantite, position + 1)

Me.Txt_quantite.SetFocus
End If

Me.Txt_quantite.SelStart = position 'et on la remet



1
JSCH19 Messages postés 128 Date d'inscription   Statut Membre Dernière intervention  
 
Ta formule fonctionne assez bien,je compliquait et c'etait bien facil,merci
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713 > JSCH19 Messages postés 128 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour vous deux,

Montrez quand meme comment vous faites la saisie de cette textBox
0
Utilisateur anonyme > f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour à vous 2

Tant mieux si j’ai pu aider. Mais f894009 est bien meilleur que moi en vba, donc répondre à sa question sera certainement utile
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713 > Utilisateur anonyme
 
Bonjour Whismeril

Ca flotte?
0
Utilisateur anonyme > f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention  
 
Ben oui toujours et toi?
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Voir propriete SelSart de la TextBox
0
JSCH19 Messages postés 128 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour j ai tout essayé mais rien ne fonctionne le focus se place toujours a la fin dans le textbox
0
JSCH19 Messages postés 128 Date d'inscription   Statut Membre Dernière intervention  
 
J’ai essaye en utilisant un textbox pour avoir la position de selstart et de le soustraire a selstart cela fonctionne partiellement et ca bug
me.txt_quantite.selstart=me.txt_quantite.selstart-textbox1.value 
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713 > JSCH19 Messages postés 128 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,
Pas besoin de selstart sur propriete Change, vous gerez comment la saisie?
0
JSCH19 Messages postés 128 Date d'inscription   Statut Membre Dernière intervention   > f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention  
 
Laisse moi poster le fichier
0